How to use Today's date in a cell and make it stay the same date

[ADSK]

Hello all

I am working on a purchase order form in Excel 2003. On top of the sheet I
have a cell with the formulla =TODAY() which shows todays date on that cell.
Obviously this is not the correct code for what I need. If I open the file
tomorrow it will show me tomorrows date and thats not what I am after. Is
there a way to get todays date on that cell and make it permanent? For
example, I create a new sheet and automatically I get the date on top and no
matter when I open that sheet again, I get the date that I created that sheet.

 

[Argy - Arcasoft]

Hi;
There are several things you can do. However, if you just need to save the
file with the date when the sheet was created, simply enter the date over the
field and it will never change. In other words, overwrithe the formula with
the date you need and then save it.

Argy

 

[ADSK]

Argy;
Thank you for your quick reply. your solution is good however, The date cell
is locked and I would like to keep it that way so that no one can change
dates by mistake. I appologize for not mentioning this in the begining.

We created a purchase order form and use it everyday for projects we work
on. People at work order materials everyday and create a sheet for whatever
they order. What I would like to have is to let them create a new sheet and
automatically set the date to the date they created the sheet. Again, the
cell that shows the date is locked.

Thank you

Adsk

 

[Sheeloo]

How do they create a new sheet?

What you can do is write a statement in the code which creates the new
worksheet like
Range("A1").Value = Date

 

[Dave Peterson]

You can use a shortcut key:
ctrl-;
(control semicolon)
to enter the date in the cell.

 

[RickC]

Hello all

I am working on a purchase order form in Excel 2003. On top of the sheet I
have a cell with the formulla =TODAY() which shows todays date on that cell.
Obviously this is not the correct code for what I need. If I open the file
tomorrow it will show me tomorrows date and thats not what I am after. Is
there a way to get todays date on that cell and make it permanent? For
example, I create a new sheet and automatically I get the date on top and no
matter when I open that sheet again, I get the date that I created that sheet.

Hi ADSK - call something like this from the Worksheet_Activate() event ...

Sub DateOnce()

With Me
If Not (.Range("A2").Value = "Date done") Then
.Unprotect ("YourPassword")
.Range("A1").FormulaR1C1 = "=TODAY()"
.Range("A1").Calculate
.Range("A2").Value = "Date done"
.Protect ("YourPassword")
End If
End With
End Sub

....after also locking whichever cell holds the flag (A2 in the example).

 

[Harry's GMail World]

Hello all

I am working on a purchase order form in Excel 2003. On top of the sheet I
have a cell with the formulla =TODAY() which shows todays date on that cell.
Obviously this is not the correct code for what I need. If I open the file
tomorrow it will show me tomorrows date and thats not what I am after. Is
there a way to get todays date on that cell and make it permanent? For
example, I create a new sheet and automatically I get the date on top andno
matter when I open that sheet again, I get the date that I created that sheet.

I just checked that. Even if you have the formula: Today() in a cell
you can type over it and put in any date.
I used: '11Nov89....NOTE: Colon will not show..Semi Colon will
show.Empty cell: I changed my computer date and it stayed the same. as
11Nov89. Unknown if this helps.