Lock in date

W

WLMPilot

Is there a way to lock in a date that an entry is made. Ex: Col A1:A10
contains a formula to indicate a date that entry is made is B1:B10.

The formula setup in A1 that comes to mind is: =IF(B1="","",TODAY()). But
that date changes with each day. I want to lock in the date an entry is made.

Thanks,
Les
 
S

Stefi

You need a change event sub to do that:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
Range("A" & Target.Row) = Date
Application.EnableEvents = True
End If
End Sub

Regards,
Stefi


„WLMPilot†ezt írta:
 
Top