Date time stamp in a row

[Lakabi]

I am trying to capture the date in row2 when data entered in the column below.
The VBA codes I have seen they capture the date in one column for changes by the rows.
Any suggestions?

Thanks.

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 Then
    Application.EnableEvents = False
    Cells(2, Target.Column).Value = Date
    Application.EnableEvents = True
End If
End Sub

 

[Lakabi]

Peter
Works like a charm. Two more requests: perhaps the cell above in the column to capture the original date for the first time of entry, and to ignore the first ten columns.
Your help is very much is appreciated.
Thanks,

Las

 

[VoG]

Maybe like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Column > 10 Then
    Application.EnableEvents = False
    If Cells(1, Target.Column).Value = "" Then
        Cells(1, Target.Column).Value = Date
    Else
        Cells(2, Target.Column) = Date
    End If
    Application.EnableEvents = True
End If
End Sub

 

[Lakabi]

Perfect.

Thank you much.