Auto Date entry that doesn't change

[MCB123x]

Hello, I'm looking to have data entered into say b1 and have a1(which is where the formula will be) enter todays date. I have used Today() but the day changes along with the day, I need that date to stay the same when the day changes

 

[mumps]

If you are willing to use a short macro then copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter some data in B1 and press the RETURN key. Today's date will be entered in A1 and will not change unless you change the contents of B1 on a different day.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Range("A1") = Date
    Application.ScreenUpdating = False
End Sub

 

[MCB123x]

Ok, thank you. I used that and it works. However, do I have to do that for every cell? There are 71 of them so far, and may increase as time goes on.

 

[mumps]

What is the range where the date will go and the corresponding range where you will enter the data?

 

[MCB123x]

data("J16:J71"), date("I16:I71")

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("J16:J71")) Is Nothing Then Exit Sub
    Target.Offset(, -1) = Date
    Application.ScreenUpdating = False
End Sub

 

[MCB123x]

thank you

 

[mumps]

You are very welcome.