formula to place real time in a cell when data entered in an adjacent cell
Gord,
I have no idea what I was doing wrong, but the code you wrote worked
for me. I recopied it and it worked.
Thanks for your help.
JasonK
On Tue, 02 Feb 2010 10:35:07 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:
I would use a sheet change event.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
n = Target.Row
If Me.Range("A" & n).Value < "" Then
Me.Range("B" & n).Value = Format(Now, "mm/dd/yy hh:mm:ss")
End If
End If
enditall:
Application.EnableEvents = True
End Sub
Right-click on the sheet tab and "View Code". Copy/paste the code into that
sheet module.
Edit columns to suit.
Alt + q to return to Excel.
Gord Dibben MS Excel MVP
On Tue, 02 Feb 2010 08:14:12 -0800, JasonK wrote:
Still using 2003.
I have a spread sheet that records data in a column that is entered by
the user. I need a cell next to the entered data cell to reflect the
accurate date and time the data was entered.
Is there a formula I can enter into the adjacent cell that will
automatically place the instant date/time that will not update with
the next data entry?
Thanks in advance,
JasonK
|