can i see the date the last time a cell was changed?
You need event code to do that.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
'for a single cell use this line
'If Target.Address = "$A$1" Then
'for a single column use this line
'If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
With Target
If .Value < "" Then
.Offset(0, 1).Value = Format(Now, "dd mmm yyyy")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
This is sheet event code.
Right-click on the Sheet tab and "View Code". Copy/paste into that sheet
module.
Gord Dibben MS Excel MVP
On Thu, 10 May 2007 10:03:01 -0700, JohnNuTek
wrote:
I am trying to figure out a formulla to make the date appear in one cell
everytime anouther cell's data is chaged.
|