Date Formula

[Todd]

I am having difficulty with the "NOW" formula. What I
would like for it to do is when I enter a value in one
cell have it update in another cell the date when the
information was entered and that date stay permanenty.
What I am having is the date changes to the current date
everyday. Is this possible to do? Any help would be
appreciated. Thanks.

Todd

 

[Ron de Bruin]

You can do it with the change event of the worksheet
This example will place the date/time in the B column if you change
a cell in the range A1:A20.

Place the code in the Sheet module

Right click on a sheet tab and choose view code
Paste the code there
Alt-Q to go back to Excel


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("a1:a20"), Target) Is Nothing Then
Target.Offset(0, 1).Value = Format(Now, "mm-dd-yy hh:mm:ss")
End If
End Sub