Now as timestamp

[Guest]

Hi All,
I'm using the Now() function as a timestamp in a cell. The trouble is that
each time the sheet opens up, the timestampt is changeing to the current
date. How can i implement a timestamp without this to happen?
Thanks a lot in advance..

 

[Bob Phillips]

Ctrl-:, or Ctrl-Shift-;

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Guest]

Hi Bob,
Thanks for the response but I was referring to a cell that's getting
populated with timestamp according to a value of the near cell: If A1 isn't
null then A2 = Now(). I have this statement in several places in my sheet. I
need the date to be stable automatically and not with user active.
Thanks again

 

[Niek Otten]

http://www.mcgimpsey.com/excel/timestamp.html

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

| Hi Bob,
| Thanks for the response but I was referring to a cell that's getting
| populated with timestamp according to a value of the near cell: If A1 isn't
| null then A2 = Now(). I have this statement in several places in my sheet. I
| need the date to be stable automatically and not with user active.
| Thanks again
|
| "Bob Phillips" wrote:
|
| > Ctrl-:, or Ctrl-Shift-;
| >
| > --
| > HTH
| >
| > Bob Phillips
| >
| > (replace somewhere in email address with gmail if mailing direct)
| >
| > | > > Hi All,
| > > I'm using the Now() function as a timestamp in a cell. The trouble is that
| > > each time the sheet opens up, the timestampt is changeing to the current
| > > date. How can i implement a timestamp without this to happen?
| > > Thanks a lot in advance..
| >
| >
| >

 

[Guest]

Hi Niek,
Thanks for the answer but I use both formula and macro methods with Now
function, and I'm looking for an alternative for that cause Now() keeps
updating the cell on each entrance to the sheet. Its a timestamp for a
signature, once a user writes its initial in A1 I want A2 to write down the
timestamp. but once there's a value in A1 i dont want A2 to update to the
current date, only once. Hope i got myself clear.
Thanks a lot

 

[Bob Phillips]

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If .Value <> "" Then
.Offset(0, 1).Value = Format(Time, "hh:mm:ss")
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)