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



Comments

Popular posts from this blog

Formatting a Range of Cells In Excel VBA

Trunc() Function

BREAK THE PASSWORD OF THE SHEET IN EXCEL