Facebook
From auth, 2 Years ago, written in Visual Basic.
Embed
Download Paste or View Raw
Hits: 49
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Column = 1 And Target.Offset(0, 1).Value = "" Then
  3.         Target.Offset(0, 1).Value = Format(Now(), "HH:MM:SS")
  4.     End If
  5. End Sub
  6.