again with the timer thing!!!

[Lane]

I am currently using this code to enter the time automatically for on
particular column, however, i wanted the same thing to happen i
another set of rows, and it keeps telling me that syntax is invali
when i try to enter the below code the second time. I have been to th
McGimpsey site that Frank sent me a link to, but I cannot get the cod
right for the second timer. Can anyone figure this out?

1st code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A2:CL2"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy h:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub


How do I get this to also time stamp a24, when a23 changes

 

[kkknie]

Just add it to the main range intersect check...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A2:CL2,*A23* "), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy h:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub

 

[Lane]

I have spend much too long trying to figure that out, Thank you, than
you, thank you!


You have a wonderful day sir!!