Hi
This can't be done by a formula. You'll VBA code for this. Enter the
following in the worksheet module for your sheet:
Private Sub Worksheet_change(ByVal Target As Range)
If Intersect(Target, Me.Range("A2")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
With Target
If .Value <> "" Then
.Offset(-1, 0).Value = Now
Else
.Offset(-1, 0).Value = ""
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub
Format the cell A1 according to your needs
HTH
Frank
Hi
the problem with this approach is that the value of NOW() will be
recalculated then the spreadsheet in re-calculated. E.g. Save and open
the workbook. the value in A1 will change
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.