Never Changing Date

[Ric F]

Good afternoon!
I'm trying to figure if there is a way to populate the date that someone enters a value in say column A with today's date, but then that date never changes when someone opens up the filetomorrow or 2 weeks from now to add to the list. so in otherwords - in D2 - IF(A2 >0,{then today's never changing date},"").
Can this be done?

Thanks in advance!!
Ric

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

When you enter any value in column (A) todays date will me entered in same row column(D)

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  3/31/2021  5:47:41 PM  EDT
If Target.Column = 1 Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Target(, 4).Value = Date
End If
End Sub

 

[Ric F]

Thanks! I'll give that a try!

 

[Ric F]

Thanks! I'll give that a try!

Works perfectly! Thanks My Answer Is This!!

 

[Ric F]

What if I want to put the time stamp in column E?

 

[My Aswer Is This]

Works perfectly! Thanks My Answer Is This!!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  4/1/2021  8:51:39 AM  EDT
If Target.Column = 1 Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Target(, 4).Value = Date
Target(, 5).Value = Time

End If
End Sub

 

[My Aswer Is This]

Try this if you want to format the time and or date to your specific liking

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  4/1/2021  8:58:29 AM  EDT
If Target.Column = 1 Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Target(, 4).Value = Date
Target(, 5).Value = Format(Time, "hh:m:ss")

End If
End Sub

 

[Ric F]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  4/1/2021  8:51:39 AM  EDT
If Target.Column = 1 Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Target(, 4).Value = Date
Target(, 5).Value = Time

End If
End Sub

 

[Ric F]

Amazing! Thanks again!