Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cant find project or library
hi, havin alittle trouble if any1 can help. A command button on my use
form set headers & footers on worksheets according to textbox entries On the footer it's required to use 2 lines so i added the comman &Chr(10) to drop down a line. i know this must be right as did i manually using Record Macro to get jist of code. When run now though just get compile error, any ideas ??? copy of code below Sub Machine_HeadFoot() ' Set Machine List Header\Footer Worksheets("Machine List").Select With ActiveSheet.PageSetup .LeftHeader = "&""Arial,Bold Italic""&12&D" .CenterHeader = "&""Arial,Bold Italic""&12Machine List" .RightHeader = "&""Arial,Bold Italic""&12Site: " Main.SiteBox.Value .CenterFooter = "&""Arial,Bold Italic""&12Nobles Amusements, & Main.AddressBox.Text & ", " & Main.TownBox.Text & ", " Main.CountyBox.Text & ", " & Main.PostBox.Text & Chr(10) & "Tel:" Main.TelBox.Text & " Fax:" & Main.FaxBox.Text End With Seals_HeadFoot End Su -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cant find project or library
Are you sure it is the CHR(10) that is giving the compile error. It doesn't
throw one for me. Break the code down, adding a bit at a time, until you get the error. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Swift2003 " wrote in message ... hi, havin alittle trouble if any1 can help. A command button on my user form set headers & footers on worksheets according to textbox entries. On the footer it's required to use 2 lines so i added the command &Chr(10) to drop down a line. i know this must be right as did it manually using Record Macro to get jist of code. When run now though i just get compile error, any ideas ??? copy of code below Sub Machine_HeadFoot() ' Set Machine List Header\Footer Worksheets("Machine List").Select With ActiveSheet.PageSetup LeftHeader = "&""Arial,Bold Italic""&12&D" CenterHeader = "&""Arial,Bold Italic""&12Machine List" RightHeader = "&""Arial,Bold Italic""&12Site: " & Main.SiteBox.Value CenterFooter = "&""Arial,Bold Italic""&12Nobles Amusements, " & Main.AddressBox.Text & ", " & Main.TownBox.Text & ", " & Main.CountyBox.Text & ", " & Main.PostBox.Text & Chr(10) & "Tel:" & Main.TelBox.Text & " Fax:" & Main.FaxBox.Text End With Seals_HeadFoot End Sub --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't find project of library | Excel Discussion (Misc queries) | |||
Can't find project or library | Excel Worksheet Functions | |||
cant find project or library | New Users to Excel | |||
Can't find project or library | Excel Discussion (Misc queries) | |||
Can't find project or library | Excel Programming |