aloy78
08-24-2011, 12:54 AM
Hi,
I've search on some sites that "undo" is not enable when the following code is applied:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Offset.Offset(0, 1) = Now()
Application.EnableEvents = True
End If
End Sub
It will be better if we can "undo" cause when I accidentally type over on the next cell, I have to not safe my work and redo the whole thing all over again.
I've search on some sites that "undo" is not enable when the following code is applied:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target.Offset.Offset(0, 1) = Now()
Application.EnableEvents = True
End If
End Sub
It will be better if we can "undo" cause when I accidentally type over on the next cell, I have to not safe my work and redo the whole thing all over again.