View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Max Max is offline
external usenet poster
 
Posts: 9,221
Default Excel formula timestamp for a data entry of a referenced cell

"jmasaki" wrote:
I would like to make a cell display the date/time of a referenced cell when
it has been updated/data changed. The formula =IF($A10,NOW(),"") for
example, updates all similar formulas in the entire worksheet (entire column
when autofilled). Does Microsoft make a timestamp for the data entry of a
referenced cell? ...or could you guys please consider putting one in a later
excel version.


Think you could make it happen right now <g ..

Try JE McGimpsey's coverage of "Time and date stamps" at his page:
http://www.mcgimpsey.com/excel/timestamp.html

A sample implemented with JE's first sub (below) is available at:
http://www.savefile.com/files/5575880
Date_Time_Stamping.xls

---------
Steps:
Right-click the sheet tab Choose View code
Clear the defaults, and paste-in JE's code below
(from: http://www.mcgimpsey.com/excel/timestamp.html)
Press Alt+Q to get back to Excel

Test it out. When you input entries into A2:A10, the date/time stamp will be
logged into col B. Clearing entries will clear the corresponding stamps.
Adapt the range to suit: Range("A2:A10").

'-------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range("A2:A10"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy hh:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub
'------
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---