Add timestamp via an IF comand ?

[300zxev]

Hi All

I was wondering if it is possible to insert the currect date via an IF command ... but have it as a fixed date or timestamp and not get updated every time the workbook opens.

For example if I have any data endered into column A ... column D enters the current date ... but fixed with that date until column A is updated again ?

 

[dcardno]

I can't think of any way to do it formulaically, but you can add some VBA code to your workbook:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
    Cells(Target.Row, 4).Value = Now()
End If

End Sub

This would go in the "worksheet" module for the worksheet you wanted to have set up this way. One small problem - it records the time the cell is edited, even if the edit is not a change - that is, if you click on (or cursor to) a cell in Column A and then hit F2 or click in the formula bar, then hit "enter" without making a change, the date in Column D will be updated, even if you didn't change anything.

 

[lenze]

You can use Date, if you don't need the time!!

    Cells(Target.Row, 4).Value = Date

Also, you can use a comment to track changes. See my VBAExpress article here
http://www.vbaexpress.com/kb/getarticle.php?kb_id=909

lenze

 

[300zxev]

Hi All

Just incase any others want to know ...
I was able to perform this using the If command
=IF(A3<>"",IF(D3="",NOW(),D3),"")

This will leave my cells in D3 with the date of the modified A3

 

[dcardno]

Where are you putting that formula?

If I try it in D3, it gives me a circular reference warning, and then returns a zero. Elsewhere, I am not sure how D3 obtains a date / time when A3 is modified.