Date Button in Header (Excel 2000)

Is there a way to change the format of the date button in the header?  I get 
12/11/04 and would like December 11, 2004.  

Jim8980 (510)
12/11/2004 2:47:01 PM
excel.misc 78881 articles. 5 followers. Follow

1 Replies

Similar Articles

[PageSpeed] 34

I bet you're writing about File|page setup|Header/footer tab and clicking that
date button to insert the current date (you get this:  &[Date]  in the header

If yes, you could type anything you want (a static date, though).  Or you could
use a macro that sets the header whenever you print/print preview.

I recorded a macro when I changed the header.  I got this code (after deleting
lots of stuff I didn't care about):

    With ActiveSheet.PageSetup
        .RightHeader = "&D"
    End With

I could change it to:

    With ActiveSheet.PageSetup
        .RightHeader = format(date,"mmmm dd, yyyy")
    End With

But if you live with what I did, you may lose stuff that you want.

So record your macro and modify it according to what you really want (along with
the date stuff).

But now you have to put that code in a special spot.

Inside the VBE (where that recorded macro is)
hit ctrl-r (to see the project explorer)
find your project and expand it using the +'s in front of each object.  (Just
like Windows explorer and folders.)

When you see ThisWorkbook, double click on it and paste your code there.

But you'll have to modify it slightly.  I used this:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Me.Worksheets("sheet1")
        .RightHeader = Format(Date, "mmmm dd, yyyy")
    End With
End Sub

I only want the right header of worksheets Sheet1 to get that head--and I don't
want anything else to change.

If you're new to macros, you may want to read David McRitchie's intro at:

Jim wrote:
> Is there a way to change the format of the date button in the header?  I get
> 12/11/04 and would like December 11, 2004.
> Thanks,
> Jim


Dave Peterson
ec357201 (5290)
12/11/2004 4:47:00 PM

Similar Artilces:

Excel 2002 print problem
Excel 2002 rearanges cells and rows when iI print deos any one know why and how to fix it these are spread sheets created in other computers I am using a tablet pc ...

filter by date and action
I have a table with three columns: Name Date Action Fred Today this Fred Today this Fred Today that Wilma Today this I want to sort by name and by date, but only if 'this' was done more than once on the same day, and not if 'that' was done on the same day,They have to perform this more than once, and they cannot have performed that on the same day. If not in excel, mssql maybe? Thanks, Harry On Aug 18, 1:53=A0pm, Harry <> wrote: > I have a table with three co...

How do I reposition a column on an excel spreadsheet
I want to move column J with data over to become column B. How to do this? Select Col J. Right click>Cut Select ColB. Right click>Insert Cut Cells -- Jacob "JonesALewis" wrote: > I want to move column J with data over to become column B. How to do this? Jacob's was is a good way of doing it. Here is another. Highlight the column. Hold down the Shift Key and Drag it to column B and Drop it. Note that when you are holding the shift key and drag you get an I Beam to indicate where you are about to drop the row. If you do not hold down the Shift key...

Calculate Years/Months Between Dates and then Average
We are using the formula =DATEDIF(A1,NOW(),"y") & "." & DATEDIF(A1,NOW(),"ym") to calculate the years and months from an employee hire date. Is there an easy way to average the years and months for a group of employees with the results of that formula? You could use: =AVERAGE(A1:A10*1) Array-entered, meaning press ctrl-shift-enter. But you could also just change your current formula to: =1*(DATEDIF(A1,NOW(),"y") & "." & DATEDIF(A1,NOW(),"ym")) Then just use: =AVERAGE(A1:A10) which is *not* array-entered. ...

Transaction Date VS Business Date
Our accounting department needs/wants to have all RMS SO reporting by business date opposed to transaction date. Usually these are the same unless you have sales and batches that close after midnight. For our store I would like to set 3 a.m. as the business day closing time. So when I run any type of reports I would like to get the information for a business date (range) starting at 3 a.m. till 3 a.m. the next day. I guess I could accomplish this by subtracting 3 hours from all the transaction (date and) times but I would have to do this for every single report which would be a lot of ...

Post Dated Checks
I had to prepare some post dated checks and we did not have fiscal periods set up yet to match the dates of the checks. Currently the check batches are waiting to be posted. What is the best way to handle post dated checks? If I create new fiscal years to match these dates, I will end up having 4 Open years. Is this the only way to do it? You can manage post dated checks in Microsoft Dynamics GP with the Payment Document Management module available on the Feature Pack 1 DVD image. For more info, take a look at MVP Mohammad Daoud's post on the subject at: https://communit...

ocx abd 97 to 2000 conversion
I have an Access 97 database using comdlg32.ocx which works fine. I have setup a new machine with Access 2000 on it. On opening the database in Access 2000, error message "One or more forms or reports contains an activex control that cannot be loaded - These controls will not function properly until you register them, open the forms or reports in design view and save the forms or reports". The rest of the open process proceeds without hitch. Also, if a form containing the comdlg32.ocx control is opened everything operates as normal except that if the button (which invokes ...

edit Excel template
I have an existing template that was passed down to me from the previous person working my job. My problem is that I need to modify it. How do I do this? One of the items I want to be able to do is to automatically insert blank rows, and I have no idea how to accomplish this. Any ideas? 1) Copy the .xlt file (so you retain the original as backup) 2) Rename the file extension .xls 3) Make your changes 4) Save As YourFileName.xlt How you insert your row depends what problem you need to solve. Some examples follow. This is a recorded macro that always selects row 3 and inserts a row: Su...

Converting Spreadsheet Header Info Into Columns
I work for an eyeglasses retailer, and I am creating a database to monitor our inventory. I want to be able to provide our many vendors with a spreadsheet which they will receive by email, and complete to tell us exactly what is being sent to our store with each order. I will then import the spreadsheet directly into our inventory database. My problem is that there will be information such as Vendor Name, P.O.#, billing terms, etc that is the same for each item in the order, and is more appropriate to include in the header of the spreadsheet instead of as seperate fields for the vendors to...

Header Problems
I am using word 2003 On the 4th page and section 2 of a 22 page document, I created a header that I want on all of the following pages. But it is also appearing on the first page that I had checked as "different first page", but does not appear on pages 2 or 3. How can I get it off of page 1? What am I doing wrong? I have never had this problem before when I have created the whole document. But I am working on someone else's document trying to straighten out their header problems. Can anyone help me??? Aurora I'm not sure I'm reading your descripti...

Remove "Date: Yesterday" or "Date: Monday" from Outlook Inbox?
Outlook mail inbox now has headers that tell you what day the the email was sent. I find this visually annoying. Each emailalready has the time and day it was sent. I don't need the daily titles in the midst of the list of emails. How do I make them go away? I think you are talking about OL 2003 & the Arrange in Groups setting. Change it in View, Arrange by, uncheck Show in Groups. "silky" wrote: > Outlook mail inbox now has headers that tell you what day the the email was > sent. I find this visually annoying. Each emailalready has the time and day >...

Automation Excel too slow..
I like to get some help from Excel-automation-experienced guys: I started from article which shows how to open, read some contents, close excel file in MFC. I copied codes from article and pasted to OnInitDialog() with slight modification. Every time I click button, it opens, reads, displays Excel file contents in poped-up dialog, then when OK button clicked, it closes Excel file and application. It seems works and I have two problems here(I am using VC++6.0, win2000, excel 2000): 1. Too slow.. about 8 seconds after button clicked, 'Server Busy'...

Help with an Excel formula
Hey, wondering if anyone can help me with a formula i need it to recognise that if the answer is negative it needs to be red. I think i need an if/then statement but do not know how?? Eg say the formula was just simply = F15-G15 then i need something to say if this anwer is negative then highlight red any help would be great thanks Create a custom format. Right click on the cell, choose Format Cells... On the Number tab, choose Custom. Try one of the formats with [Red] in it. If you like it, great. If not, you can create your own format. The rule is anythi...

Vanishing Control Toolbox Command Buttons
I have recently had my work PC upgraded from Windows NT to XP, and am now using Excel 2003 rather than 97. A spreadsheet I use each day contains a number of command buttons (from the control toolbox menu rather than forms). When I open this spreadsheet I cannot see the buttons. If I click on where the buttons are they still work, and I can still see the code behind them, but I cannot see the buttons themselves. Similarly if I try to create a new command button - or indeed any control - from the control toolbox I get the same problem. But again I am able to create buttons from the form...

strange date format problem
Hi, I downloaded some data on excel using Bloomberg. One column has dates and the other has numbers. Dates appear as 01/01/1980 format which I want in Jan-80 format. I have changed the format cell properties but it still appears as 01/01/1980. I have to goto individual cell and press F2 <enter> so see the effect. Dont know why? I cant even copy paste format after that .... TIA/amag I am not sure, but is your workbook set to Auto-Recalculate? Try pushing <F9> to do a manual re-calculation, see if that changes the formats. If it does, go to Tools (on the menu bar), Options, Ca...

Is there an interpolation-function in Excel to read a chart more .
Your question appears to be incomplete. It is usually best to elaborate in the body of your post. The worksheet functions FORECAST(), TREND(), and GROWTH() can be used to interpolate linear, multiple linear (including polynomial) and exponential regressions. Jerry ...

How to sort by name then date?
I would like to look through all the emails to a particular person. If I click on the "To" column I can see all the emails to a particular person (actually there is a problem with that which I will mention next) but they seem to be in random order. Is there a way to have them sorted by date? (i.e. by name first, then by date). Actually, sorting on the "To" column does not get all the emails sent to a given email address. Because Outlook uses the "display as" field. It will often give different "display as" names to the same email address. C...

Place the first and last name on ever page printed in header
I have a large data base of names, address and other information that requires several pages to print out. Along with the rest of the information, I would like to print out the first and last name of each page to be place in the header like a phone book for easy access. ...

Excel price history import...
Hello, I have Money 2004 Deluxe and an excel file with a mutual fund price history. Is there a way to import the price history straight from the excel file avoiding manual imput??? (online update doesn't work because the mutual fund I'm dealing with is not available) Thanks, Lionel Modi ...

how do i add a logo to an excel 2003 invoice template?
In Office 2000 you were able to add a logo in the left upper corner of an invoice when customizing. In Office 2003 it seems that you cannot. PLEASE HELP! Thank You I don't know what special facility Office 2000 had, but can't you just paste a bitmap onto the Excel cell? - DH ...

Concatenate including a date so that the date appears as a date
When I try to join the contents of several cells, one of which is a date and time obtained from =now(), the date and time part appears as a number. How can I make it appear as a date and time? I have tried changing the cell formats - probably there is a combination that works but I haven't found it. I also tried copying the original date cell to another cell and changing the latter cell's format and concatenating using that latter cell, but still no success. Use the TEXT function. For example, =TEXT(NOW(),"mmmm d, yyyy") would give January 6, 2010 "dd...

Outlook's button 'Attach File' does not work
I am creating simple mail using Microsoft.Office.Interop.Outlook. I do not want to attach file in the code - I need simple mail without any attach. Mail is successfully created and opened, but after this button 'Attach File' does not work (it could be clicked, file could be selected but it is not attached). Here is simple code: Dim Outlook As New Outlook.Application Dim OutlookMessage As Outlook.MailItem OutlookMessage = Outlook.CreateItem(OlItemType.olMailItem) OutlookMessage.Display() I am using Outlook 2007. Could anyone help me with this? Where is this code ru...

Getting titlebar button's sizes
Hi All, I am working with a custom titlebar. I want to get the current size of the close button and set the value for the button which i am drawing. The problem is, if i put the left point in a CRect as pCapRect->left = rcWindow.Width()-(; and draw the close button using pDc->DrawFrameControl(pCapRect, DFC_CAPTION, DFCS_CAPTIONCLOSE); // For Close the left position (also the size) is not getting aligned with the default close button(which shows up), when i change from one skin to another. Awaiting your reply ...

if statement with dates #2
I would like to have a statement like: IF(a1>0,1/1/2004) with 1/1/2004 beint a date. EXCEL is interpreting 1/1/2004 as an arithmetic statement and giving me the result of the arithemtic. I could put in the numeric offste for the date and write IF(a1>0,37987), formatting the cell as a date, but this seems awkward. What else can I do? TIA, Sanford ...

Access 2000 compatibility with Access 2002
I am currently working on databases which were developed in Access 97, converted to 2000 they are all currently in 2000. My company recently purchased a new system for me which came with XP and Office 2002, since this time my databases are not working fully. I have had problems with "program not responding" when trying to open tables. I tried opening the same table at one of the older systems and there were no problems. Has anyone else had problems similar with Databases in 2000 but using 2002?? I would hate to have to delete 2002 and go back to 2000 but I am considering thi...