Thanks to Mario_R for his code
'------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim w
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
w = Target: Application.Undo
If w <> Target Then
Target = w
If Target(, 2) = "" Then Target(, 2) = Now Else Target(, 3) = Now
End If
Application.EnableEvents = True
End Sub
'------------------------------------------------- --
Work fine!
But, after ENTER - only in Col A after confirming data entry - the cursor remains in the same cell. It only jumps to the next cell after the second ENTER.
Is it possible to release the cursor, please?
Grateful
anvs
'------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim w
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
w = Target: Application.Undo
If w <> Target Then
Target = w
If Target(, 2) = "" Then Target(, 2) = Now Else Target(, 3) = Now
End If
Application.EnableEvents = True
End Sub
'------------------------------------------------- --
Work fine!
But, after ENTER - only in Col A after confirming data entry - the cursor remains in the same cell. It only jumps to the next cell after the second ENTER.
Is it possible to release the cursor, please?
Grateful
anvs