How to Create a line in footer in Excel with a Macro
7 هزار بار بازدید -
8 سال پیش
-
How to Macro to create
How to Macro to create a line in footer in Excel. Use VBA to create a footer with a line in it in Excel. Click this link to check out my one-on-one training http://www.calendly.com/easyexcelanswers
For more help visit my website www.easyexcelanswers.com or email me at [email protected].
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting http://www.calendly.com/easyexcelanswers
I am able to provide online help on your computer at a reasonable rate.
https://www.amazon.com/shop/barbhende...
I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa
Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83
I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelan...
Follow me on Facebook
Facebook: easyexcel.answers
TWEET THIS VIDEO How to Create a line in footer in Ex...
Follow me on twitter
easyexcelanswers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_p...
*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.
code
sub footline()
application.screenUpdating = False
With Activesheet.PageSetup
.leftfooter = "_________________________________" & Chr(10) & "&8&F"
.centerFooter= "_________________________________" & Chr(10) & "&8&A"
msgbox "Do you want to maintain today's date as static?", vbYesNoCancel
if response =vbYes then
.Rightfooter = "_________________________________" & Chr(10) & "&8" &Format(Now,"dd/mm/yy")
else
.Rightfooter = "_________________________________" & Chr(10) & "&8" & "&D"
end if
end With
End sub
For more help visit my website www.easyexcelanswers.com or email me at [email protected].
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting http://www.calendly.com/easyexcelanswers
I am able to provide online help on your computer at a reasonable rate.
https://www.amazon.com/shop/barbhende...
I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa
Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83
I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelan...
Follow me on Facebook
Facebook: easyexcel.answers
TWEET THIS VIDEO How to Create a line in footer in Ex...
Follow me on twitter
easyexcelanswers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_p...
*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.
code
sub footline()
application.screenUpdating = False
With Activesheet.PageSetup
.leftfooter = "_________________________________" & Chr(10) & "&8&F"
.centerFooter= "_________________________________" & Chr(10) & "&8&A"
msgbox "Do you want to maintain today's date as static?", vbYesNoCancel
if response =vbYes then
.Rightfooter = "_________________________________" & Chr(10) & "&8" &Format(Now,"dd/mm/yy")
else
.Rightfooter = "_________________________________" & Chr(10) & "&8" & "&D"
end if
end With
End sub
8 سال پیش
در تاریخ 1395/11/29 منتشر شده
است.
7,082
بـار بازدید شده