output date modified if data is entered for multiple rows

R

rsummers

Hello,

I'm currently creating an excel programin which i want to create some
vb code that will check to see if a particular row's (from C to AA)
cell has been modified and to then output that modification date to the
corresponding row's AB cell. So for instance...if someone modifies the
cell H7...then the modification date would be outputted to AB7. I have
approximately 100 rows of data that needs this to be done for, and I
can get the code to work for an individual row, but I cant figure out
how to have it check all the rows in my spreadsheet and output it to
the corresponding row. Here is my code for outuputting row 7:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim KeyRows As Range
Dim X As Variant


' The variable KeyCells contains the cells that will
' cause an alert when they are changed.

Set KeyCells = Range("D7:AA7")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

[AB7].Value = "This order was last modified on " & Format(Now,
"dd/mm/yy")

End If
End Sub


Any ideas? Thank you so much!

Rick
 
B

Bob Phillips

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim KeyRows As Range
Dim X As Variant

Set KeyCells = Range("D7:AA7")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Cells(target.row,"AB").Value = "This order was last modified on " &
Format(Now,"dd/mm/yy")
End If
End Sub

will add it for whatever row is change.
 
R

rsummers

Thanks for the reply!

I still can only get it to output for row 7 in cell AB7...does it have
anything to do with the statement:

Set KeyCells = Range("D7:AA7")

I have a feeling I need to change that to accomodate all rows, not just
row 7. Any ideas? Thanks again!
 
R

rsummers

nevermind!...i fixed it...set AA7 to AA100 and it works perfect...thank
you so much!!!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Worksheet Change Event 10
Remove Identical words 0
Worksheet_Change 7
Simple colour dropdown 3
Macro 0
I almost have it - excel hidden - see message 2
Code to delete rows based on value 11
VBA Coding Help for Beginner 0

Top