Date/Time Function

[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

[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:

>
> 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
>
>
> --
> systemx
> ------------------------------------------------------------------------
> systemx's Profile: http://www.excelforum.com/member.php...o&userid=29254
> View this thread: http://www.excelforum.com/showthread...hreadid=490986
>
>