UPDATE THE TIME OF VALUE CHANGED IN A COLUMN
UPDATE THE TIME OF VALUE CHANGED IN A COLUMN
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D:D")) Is Nothing Then
Target.Offset(0, 1).Value = Application.WorksheetFunction.Text(Now, "dd/mm/yyyy hh:mm AM/PM")
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("D:D")) Is Nothing Then
Target.Offset(0, 1).Value = Application.WorksheetFunction.Text(Now, "dd/mm/yyyy hh:mm AM/PM")
End If
End Sub
Comments
Post a Comment