How do I get the cell in the first column to specify the date if I change any data in that row from column B on?

[nancymk]

Hi!

I am trying to figure out a way to track any changes for a row in the first column.

I would like the date of the change to pop up in Column A if anything in that row was changed.

A formula or VBA is fine. I have seen similar code, but I don't quite understand the code to change it to what I want. Here is one sample I found.

If you change column 3 puts date in column 4 or change column 8, date in column 9:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 8 Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Application.EnableEvents = True
End If
End Sub

 

[Norie]

Nancy

It's not quite clear what you want but try this.

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        Cells(Target.Row, 1) = Date
        Application.EnableEvents = True
End Sub

 

[nancymk]

Exactly what I wanted!!! Thanks

 

[lenze]

Hi andwelcome to the board!!!!

A change Event will work. In the WorkSheet module(Right Click the Sheet Tabe and choose view code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column < 2 Then Exit Sub
Cells(Target.Row, 1) = Now 'You might just use Date as Now also returns the time
End Sub

Having said that, have a look at my article <a href="http://vbaexpress.com/kb/getarticle.php?kb_id=909">Tracking Changes with Comments<a> posted at VBAEXPRESS.

lenze

 

[nancymk]

Thanks for your quick response. I will check out your article!