Add date to worksheet template automatically

[ilcaa]

Hi, i created a template worksheet and cant figure a code on automatically adding the current date in a "March 14" format when I insert the template to my current workbook...

any help would be appreciated , thanks. Max

 

[HalfAce]

Hello ilcaa,
I'm not sure what exactly you mean by "insert the template to my current workbook" (you
mean copy it from somewhere & paste it into the current Wb?) but here are a few ways to get
the current date.
In a cell somewhere (I would imagine in your Template Wb) you can use the formula: =TODAY()
Bear in mind that this must be copied & PasteSpecial'ed as Value or it will update to the
current date whenever the Wb gets opened.

Another option might be to use vba at some point, in which you could use:
Sheets("Sheet1").Range("A1").Value = Date
This will insert the date as a static value which will not update in the future once it's entered.

[Edit:]
Corrected a couple bonehead typos.
Hey Smitty! How's things?

 

[Smitty]

How arre you adding the template to the existing wb? Does the date need to be static or dynamic?

What's your existing code?

Smitty

 

[tvkrys]

Max -

"ActiveCell = Date" enters the date when you run the macro and it will not automatically update to new date later. I use it alot so have it associated with a toolbar button and copied/pasted the equivalent icon from Word. But to automate it, try simply adding code to select the appropriate cell and then the above to your current code...

Example, if date to go in D3:

Range("D3").Activate
ActiveCell = Date

Hope this works for you,
Krys

 

[ilcaa]

thanks for everyones reply..

I basically right click on the current wb sheet tab and click "insert". my template box shows my templates and i choose the template I want...

my goal is....when that template gets inserted into my current wb, its contains the current days date (March 14) format, and i dont need to rename that sheet...

i think this makes more sense. thanks.

 

[tvkrys]

Max -

Didn't notice that you stressed a March 14 format... IF the template is already formatted that way and it doesn't translate that way when you paste it in to the new sheet, you need to add one more line of code.

Range("D3").Activate
ActiveCell = Date
Selection.NumberFormat = "mmmm d"

Does that work for you?
Krys

 

[HalfAce]

The object of interest (in this case the range D3) seldom if ever really needs to be activated
or selected in your code. (Code will run smoother & faster if we don't select/activate
the objects, but just refer to them instead.)

for example:

With Range("D3")
  .Value = Date
  .NumberFormat = "mmmm d"
End With