Entering static Date/Time

[GAMOSTEVE]

Thanks for the help - I changed to column C being the trigger for A an
B. I put the code below into the sheet. I get no errors, but nothin
happens in the sheet. Any ideas on what I have missed?

Thanks


Private Sub Sheet1(ByVal Target As Range)
If Target.Columns.Count > 3 Then Exit Sub
If Target.Column <> 3 Then
Exit Sub
For Each cell In Target
If Not IsEmpty(cell) Then
Cells(Target.Row, "A").Value = Date
Cells(Target.Row, "B").Value = Time
Columns("A:B").AutoFit
End If
Next

End Su

 

[Tom Ogilvy]

If you want this to fire when the entry is made in column C, then don't
change the name of the procedure. Paste it in the code module for the sheet
where you want this behavior. The below worked fine for me for entries in
column C.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
If Target.Column <> 3 Then _
Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
For Each cell In Target
If Not IsEmpty(cell) Then
Cells(Target.Row, "A").Value = Date
Cells(Target.Row, "B").Value = Time
Columns("A:B").AutoFit
End If
Next
ErrHandler:
Application.EnableEvents = True
End Sub