Programming footer

[Donald]

The following code will programmatically add the user's name as well as date
and time to the right footer as well as setting the fonts of both lines in
the footer.

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14" & Application.UserName & _
Chr(10) & "&""Times New Roman""&8" & "&D &T"

How do I get it to underline the user name? (only the user name)

 

[Guest]

Hi
AFAIK you can't achieve this as you can set the font style only for the
complete fotter text

 

[Dave Peterson]

If you record a macro when you do this manually, you'll see that &U turns on/off
underlining. Just select your charactersto underline, then hit the A icon and
format those characters like you want:

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&U&""Times New Roman""&8" & "&D &T"

 

[Donald Stockton]

Whoops, this actually seems to underline ALL of my footer

D.S.

 

[Dave Peterson]

The code I posted worked nicely for me (xl2002).

Can you post your code--and what is returned by application.username?

 

[Donald]

My code is as follows:
ActiveSheet.PageSetup.RightFooter = "&""Brush Script mt,italic""&14&U" &
Application.UserName & Chr(10) & "&""Times New Roman""&8" & "&D &T"

my network login "J_Doe" is returned by <application.username>

The problem right now is that all of the footer is underlined, not the
username only.

 

[Dave Peterson]

Can you find the difference:

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&U&""Times New Roman""&8" & "&D &T"

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&""Times New Roman""&8" & "&D &T"

(look for an extra &U after the chr(10) portion.)

(Sometimes copying and pasting from the newsgroup post is a good thing. <vbg>.)

 

[Donald]

No U after char(10), the code I posted actually was copied and pasted. Only
one 'U' in the code.

 

[Donald]

BTW, I'm running OfficeXP (Excel ver 10.0)

--
Donald

No U after char(10), the code I posted actually was copied and pasted.
Only one 'U' in the code.

 

[Dave Peterson]

Try this version with the extra U:

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14&U" & Application.UserName & _
Chr(10) & "&U&""Times New Roman""&8" & "&D &T"


One &U turns on the underlining. One &U turns off the underlining. Just like
Grace Slick wrote (or something like that!)

(Sometimes, I'm too subtle for my own good.)

BTW, I'm running OfficeXP (Excel ver 10.0)

 

[Donald]

Great! Was wondering if there was a way to turn it off. Just ask Dave, when
he's feeling ten feet tall.

 

[jose luis]

Hi All,

How could i catch the result of a MsgBox and derive actions from th
user decision? Any help welcome!.

Thanks in advance

jose luis

P.D. Here is what i though will do the trick. I was wrong.


GuardarAntes()
MsgBox "Save Changes?", vbYesNoCancel, "Save?"

If VbMsgBoxResult.vbYes = 6 Then
MsgBox "Yes"
End If
If VbMsgBoxResult.vbNo = 7 Then
MsgBox "No"
End If
End Su

 

[Myrna Larson]

Have you tried the documentation for Msgbox? It gives an example...

 

[Dave Peterson]

Excellent response!!!

Great! Was wondering if there was a way to turn it off. Just ask Dave, when
he's feeling ten feet tall.