Modified Date

J

John L

I would like to record (just the date) in a cell when some
data in another cell is changed by a third party. I know
you can do this through track changes but I would like it
to be visible to everyone.
 
D

Don Guillett

Don't know exactly what you want but
right click sheet tab>view code>copy\paste this.
Now, if you input anything into cell a1, cell a2 will show the date

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("a2") = Date
End Sub
 
G

Guest

Thanks Don, that works great. Can this be modified for a
range so if a1:a5 changes b1:b5 (appropriate row) date
changes

cheers

John
 
D

Don Guillett

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address = "$A$1" Then Range("a2") = Date
If Target.Row < =5 And Target.Column = 1 Then Target.Offset(, 1) = Date
End Sub
 
Top