Define a date as "savedate"??

G

GG

I need to put the file save date in my workbook; the
current date -- [&Date] in the Header -- doesn't do me any
good. (I'd prefer to have this date in the Header, but a
cell on each worksheet will do.) This is so easy to do in
Word by inserting the field! But I haven't been able to
figure out how to do it in Excel.

Any help would be much appreciated!!
 
F

Frank Kabel

Hi
you need VBA for this. Put the following code in your
workbook module (not in a standard module):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = Me.BuiltinDocumentProperties _
("last save time")
End With
Next wkSht
End Sub
 
G

GG

Thanks for the quick reply!
I haven't ever worked with VBA, so my apologies if my
question is really basic: How do I get to the "workbook
module"?

In Excel, I right-clicked on a tab name / clicked View
Code to open the VBA window. I can see Insert/Module,
which the Help tells me is a standard module, and
Insert/Class Module...

Thanks!
-----Original Message-----
Hi
you need VBA for this. Put the following code in your
workbook module (not in a standard module):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = Me.BuiltinDocumentProperties _
("last save time")
End With
Next wkSht
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany

I need to put the file save date in my workbook; the
current date -- [&Date] in the Header -- doesn't do me any
good. (I'd prefer to have this date in the Header, but a
cell on each worksheet will do.) This is so easy to do in
Word by inserting the field! But I haven't been able to
figure out how to do it in Excel.

Any help would be much appreciated!!
Click to expand...
.
Click to expand...
 
F

Frank Kabel

Hi
after you have opened the VBA editor you see in the left explorer tree
view an entry named 'ThisWorkbook'. double click on this entry and
insert the code

--
Regards
Frank Kabel
Frankfurt, Germany

Thanks for the quick reply!
I haven't ever worked with VBA, so my apologies if my
question is really basic: How do I get to the "workbook
module"?

In Excel, I right-clicked on a tab name / clicked View
Code to open the VBA window. I can see Insert/Module,
which the Help tells me is a standard module, and
Insert/Class Module...

Thanks!
-----Original Message-----
Hi
you need VBA for this. Put the following code in your
workbook module (not in a standard module):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = Me.BuiltinDocumentProperties _
("last save time")
End With
Next wkSht
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany

I need to put the file save date in my workbook; the
current date -- [&Date] in the Header -- doesn't do me any
good. (I'd prefer to have this date in the Header, but a
cell on each worksheet will do.) This is so easy to do in
Word by inserting the field! But I haven't been able to
figure out how to do it in Excel.

Any help would be much appreciated!!
Click to expand...
.
Click to expand...
Click to expand...
 
R

Rollin_Again

After you click VIEW CODE the Visual Basic editor will pop up. On th
left side of the VB editor you will see the Project Explorer. Jus
right-click the Icon that is labeled "ThisWorkbook" and choose vie
code. This is the workbook module.


Rolli
 
G

GG

Thank you!!
That was pretty painless, and it worked great!

Of course, it's still not as easy as what Microsoft does
in Word... but this issue has been bothering me for a long
time, and I'm very happy to have a solution!!

One more question: The code you provided has "last save
time", which inserts both the date (MM/DD/YYYY) and time
(HH:MM:SS). Is there a way to make it be just the
date? ...If not, I'll certainly take it the way it is!

Thanks again,
Gaelen
-----Original Message-----
Hi
after you have opened the VBA editor you see in the left
explorer tree view an entry named 'ThisWorkbook'. double
click on this entry andinsert the code

--
Regards
Frank Kabel
Frankfurt, Germany

Thanks for the quick reply!
I haven't ever worked with VBA, so my apologies if my
question is really basic: How do I get to the "workbook
module"?

In Excel, I right-clicked on a tab name / clicked View
Code to open the VBA window. I can see Insert/Module,
which the Help tells me is a standard module, and
Insert/Class Module...

Thanks!
-----Original Message-----
Hi
you need VBA for this. Put the following code in your
workbook module (not in a standard module):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = Me.BuiltinDocumentProperties _
("last save time")
End With
Next wkSht
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


GG wrote:
I need to put the file save date in my workbook; the
current date -- [&Date] in the Header -- doesn't do me any
good. (I'd prefer to have this date in the Header, but a
cell on each worksheet will do.) This is so easy to do in
Word by inserting the field! But I haven't been able to
figure out how to do it in Excel.

Any help would be much appreciated!!
.
Click to expand...
Click to expand...

.
Click to expand...
 
F

Frank Kabel

Hi
change the line
.CenterHeader = Me.BuiltinDocumentProperties _
("last save time")

to
.CenterHeader = Format(Me.BuiltinDocumentProperties _
("last save time"),"MM/DD/YYY")


--
Regards
Frank Kabel
Frankfurt, Germany

Thank you!!
That was pretty painless, and it worked great!

Of course, it's still not as easy as what Microsoft does
in Word... but this issue has been bothering me for a long
time, and I'm very happy to have a solution!!

One more question: The code you provided has "last save
time", which inserts both the date (MM/DD/YYYY) and time
(HH:MM:SS). Is there a way to make it be just the
date? ...If not, I'll certainly take it the way it is!

Thanks again,
Gaelen
-----Original Message-----
Hi
after you have opened the VBA editor you see in the left
explorer tree view an entry named 'ThisWorkbook'. double
click on this entry andinsert the code

--
Regards
Frank Kabel
Frankfurt, Germany

Thanks for the quick reply!
I haven't ever worked with VBA, so my apologies if my
question is really basic: How do I get to the "workbook
module"?

In Excel, I right-clicked on a tab name / clicked View
Code to open the VBA window. I can see Insert/Module,
which the Help tells me is a standard module, and
Insert/Class Module...

Thanks!

-----Original Message-----
Hi
you need VBA for this. Put the following code in your
workbook module (not in a standard module):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = Me.BuiltinDocumentProperties _
("last save time")
End With
Next wkSht
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


GG wrote:
I need to put the file save date in my workbook; the
current date -- [&Date] in the Header -- doesn't do me any
good. (I'd prefer to have this date in the Header, but a
cell on each worksheet will do.) This is so easy to do in
Word by inserting the field! But I haven't been able to
figure out how to do it in Excel.

Any help would be much appreciated!!
.
Click to expand...

.
Click to expand...
Click to expand...
 
Top