Show date and time of last change

[SBW]

Hello,

I have comments in column A and want Column B to reflect the date and time that the comment field was last modified.

For example, in A1, I type "need more information". I would like B1 to reflect the date and time I made the change to A1.

Same would go with the rest of the cells (A2 and B2, A3 and B3, etc)

Let me know if you guys have any ideas!

Thanks.

Sean

 

[lenze]

Private Sub Worksheet_Change(ByVal Target as Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Cells(Target.Row,2) = Now
End Sub

In the Worksheet module
lenze

 

[SBW]

Lenze, it works perfectly. Thank you.

 

[lenze]

I'm glad it worked, but personally, I would use a Comment

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Target.ClearComments
Target.AddComment "Changed " & Now & " by" & Environ("UserName")
End Sub

lenze

 

[SBW]

Lenze,

This is even better!!!

Thanks!

 

[lenze]

You can also add other info to your comment, such as previous value!! See
<a href="http://vbaexpress.com/kb/getarticle.php?kb_id=909">Tracking Changes with Comments</a>
lenze