Was tested before posting and results were as advertised.

Can't get it to work means what?

Nothing at all?

Error message?

You sure you pasted into the worksheet module, not a general module?

You sure you are entering something in any cell of Column A?

Perhaps events have been disabled by some other code that ran?

Start by re-enabling events just in case.

When in the code window hit ViewImmediate Window

Paste this in then hit ENTER

Application.EnableEvents = True

Now try entering something in Column A

If no joy send the workbook to gorddibbATshawDOTca change the obvious


Gord

On Wed, 03 Feb 2010 20:50:28 -0800, JasonK wrote:


Gord,

Thanks for your help. I cut and paste your suggestion into the code
page following your directions and it didn't work for me.

I used columns A and B with the intent to edit it to the columns I
need when I got it working, but I can't get it to work with A and B as
you have it written.

I don't know why. I'm only running 2003 because that has been so much
easier for me to use, but I can't seem to get this problem solved.

Thanks for your help again, and if you can think of anything I'm doing
wrong, please let me know.

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