Datum/ tijd van invoer vast leggen

[VenA]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B3" Then
    Cells(Rows.Count, 2).End(xlUp).Offset(1, -1).Resize(, 2) = Array(Now, Target.Value)
    Application.Goto Range(Target.Address) 'Range(Target.Address).Select
  End If
End Sub

Beter is het om de events uit en in te schakelen dan wordt de procedure maar 1 keer aangeroepen.

 

[HSV]

Application.Goto target