Date/Time Function

S

systemx

Hi all,

Just a little help - hopefully this is a simple one. When someone
enters data in a cell, I would like to record the date and time this
was done in the adjacent cell.

I can use -

=IF(A1="Y",NOW(),"Not Complete")

But this will auto update. I want the date and time to be fixed once
the cell has been updated.

Any help, as always, will be massively appreciated!

Cheers

Rob
 
S

Stefi

You can do this with a Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
Application.EnableEvents = False
If Range("A1") = "Y" Then
Range("B1") = Now()
Else
Range("B1") = "Not complete!"
End If
Application.EnableEvents = False
End If
End Sub

Regards,
Stefi

„systemx†ezt írta:
 
Top