Sorry Gord, I got it.

It was the syntax I was using.

I used....= Format(Now + ((Cells(1,6).value) * .00001157), "mm/dd/yy
hh:mm:ss")
and it worked perfectly.

thanks for your time.

JasonK




On Thu, 04 Feb 2010 15:46:08 -0800, Gord Dibben <gorddibbATshawDOTca
wrote:

Good to hear.

Gord

On Thu, 04 Feb 2010 10:43:15 -0800, JasonK wrote:


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