ExcelBanter - Lock in date

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Lock in date (https://www.excelbanter.com/excel-discussion-misc-queries/116636-lock-date.html)

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

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:

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