Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how?
Have "date" in header updating automatically in Excel 2002 (XP). How can I
also have the "day" inserted there and updated automatically? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how?
=TODAY()
"DrB" wrote: Have "date" in header updating automatically in Excel 2002 (XP). How can I also have the "day" inserted there and updated automatically? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... Have "date" in header updating automatically in Excel 2002 (XP). How can I also have the "day" inserted there and updated automatically? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how?
I copied the following:
Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub and pasted into a new workbook code obtain from viewing code in the file that I wanted this option, but nothing happened. Went into viewing Header/Footer and found nothing new there. Is there another step? "Bob Phillips" wrote in message ... Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... Have "date" in header updating automatically in Excel 2002 (XP). How can I also have the "day" inserted there and updated automatically? |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how?
It won't be in header/footer, it happens when you print. So a print preview.
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... I copied the following: Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub and pasted into a new workbook code obtain from viewing code in the file that I wanted this option, but nothing happened. Went into viewing Header/Footer and found nothing new there. Is there another step? "Bob Phillips" wrote in message ... Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... Have "date" in header updating automatically in Excel 2002 (XP). How can I also have the "day" inserted there and updated automatically? |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how?
I changed the security level to medium and closed. Reopened with it asking
me if I wanted to macro which I answered "yes". Went to print preview and it still showed the date but not the day. What am I missing? "Bob Phillips" wrote in message ... It won't be in header/footer, it happens when you print. So a print preview. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... I copied the following: Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub and pasted into a new workbook code obtain from viewing code in the file that I wanted this option, but nothing happened. Went into viewing Header/Footer and found nothing new there. Is there another step? "Bob Phillips" wrote in message ... Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... Have "date" in header updating automatically in Excel 2002 (XP). How can I also have the "day" inserted there and updated automatically? |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Inserting day with date automatically - how? CORRECTION
Sorry I was looking at the right margin rather than the left. Yes it works
so I changed it to the right margin. Thank you very much. "DrB" wrote in message ... I changed the security level to medium and closed. Reopened with it asking me if I wanted to macro which I answered "yes". Went to print preview and it still showed the date but not the day. What am I missing? "Bob Phillips" wrote in message ... It won't be in header/footer, it happens when you print. So a print preview. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... I copied the following: Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub and pasted into a new workbook code obtain from viewing code in the file that I wanted this option, but nothing happened. Went into viewing Header/Footer and found nothing new there. Is there another step? "Bob Phillips" wrote in message ... Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftHeader = Format(Date, "ddd dd mmm yyyy") End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "DrB" wrote in message ... Have "date" in header updating automatically in Excel 2002 (XP). How can I also have the "day" inserted there and updated automatically? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can Excel automatically change the font color of an expired date? | Excel Worksheet Functions | |||
insert date | Excel Worksheet Functions | |||
Insert date automatically | Excel Discussion (Misc queries) | |||
Excel to automatically enter a date | Excel Worksheet Functions | |||
Date in descending order to come up automatically in a column? | Excel Worksheet Functions |