What's in your Personal.xls??

My problem is the not undoable part. I do a lot of things that I like to undo. I guess it makes sense to do it the right way once though...

[E]

I just wanted to say I love the title and theme of this thread. Only in an actuarial forum. . .

As for what's in my personal.xlsb. . . well, that's personal.

[BigDawg]

Anyone care to share how you set up a personal.xls?

This is new to me, and I'm somewhat of a VBA novice, especially for writing code.

Once I know how to get this thing working, can someone tell me how to get a custom footer? That we be awesome instead of doing it for *every* single sheet I print!

[Abused Student]

Originally Posted by BigDawg

Anyone care to share how you set up a personal.xls?

This is new to me, and I'm somewhat of a VBA novice, especially for writing code.

Once I know how to get this thing working, can someone tell me how to get a custom footer? That we be awesome instead of doing it for *every* single sheet I print!

Start a new worksheet, save it in your excel start up folder, hide it and there you go. It will automatically open anytime you open Excel.

As for the custom footer, I don't have mine anymore but I think someone posted something already for the code. Then just link a button to the macro and there you go.

[Abused Student]

I don't see it but you can do


currentsheet.PageSetup.LeftFooter = "&[Path]&[File]"
currentsheet.PageSetup.CenterFooter = "&[Page]"
currentsheet.PageSetup.CenterFooter = "&[Date]&[Time]"

[BigDawg]

Thanks AS.

And how do you make a button and link it?

All of my current VB experience involves editting code that already exists.

[ShakeNBakes]

Originally Posted by BigDawg

Anyone care to share how you set up a personal.xls?

This is new to me, and I'm somewhat of a VBA novice, especially for writing code.

Once I know how to get this thing working, can someone tell me how to get a custom footer? That we be awesome instead of doing it for *every* single sheet I print!

Running this will make a footer with the filename and path on the left, date printed on the right:

Sub Footer()
    With ActiveSheet.PageSetup
       .LeftFooter = "&Z&F"
       .RightFooter = "Date Printed:" & Chr(10) & "&D"
    End With
End Sub

If you want a different footer, I'd recommend just recording a macro to make it how you want and then purge the extra garbage M$ adds in there.

[Abused Student]

Originally Posted by BigDawg

Thanks AS.

And how do you make a button and link it?

All of my current VB experience involves editting code that already exists.

Depends if you have 07 or a previous version.

Previous version you right click on the menu at the top and customize. The easiest way I found was to go to controls, find one that looks like what you want the picture to be and drag it up onto the menu somewhere, then right click on the icon and edit it if you want, then choose assign macro and select it from the list.

07 you have to do through the customization and you get to choose one of their predetermined icons to use.

[E]

Okay, I'll share one. . .

I created this custom footer code a while back and use it a good bit. I have a button that I can press to run it on any workbook. One nice feature I built in was an overwrite warning.

It puts page X of Y at the top right, full file path and name and tab name on the bottom left, and date with time on the bottom right. I also created an "overscore" effect using a bunch of underscores and a carriage return.

Sub MakeFooter()

    Dim OvrWrt
    
    OvrWrt = vbYes
    If ActiveSheet.PageSetup.LeftFooter <> "" Or ActiveSheet.PageSetup.RightFooter <> "" Then
        OvrWrt = MsgBox("Overwrite existing footer(s)?", vbYesNo)
    End If

    If OvrWrt = vbNo Then Exit Sub

    With ActiveSheet.PageSetup
        .RightHeader = "Page &P of &N"
        .LeftFooter = "________________________________________________________________" & Chr(10) & "&Z&F" & Chr(10) & "&A"
        .RightFooter = " " & Chr(10) & "&D" & Chr(10) & "&T"
    End With
    
End Sub

[Butters Stotch]

Originally Posted by E

I just wanted to say I love the title and theme of this thread. Only in an actuarial forum. . .

As for what's in my personal.xlsb. . . well, that's personal.

Yeah the parody thread has been right on the tip of my tongue but I can't quite get there.... Little help AS.