Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
why this code not working
For one, your naming convention is a bit confusing. rng, rng1, rng2
would be better named rngCurrent, rngPrint, rngSelect instead of the more used and lazy method that we all want to get into. My suspects are it is a conflict with your rng names, but I need to know more of the application to make a more def responce. Thurman "sulu" wrote in message ... hi all, i just want to select first 6 column s of my filtered data range what is wrong with my code? Set rng = ActiveSheet.AutoFilter.Range On Error Resume Next With rng Set rng1 = .Offset(1, 0).Resize(.Rows.Count - 1, 6) _ .SpecialCells(xlCellTypeVisible) End With With ActiveSheet.PageSetup .PrintArea = Range ("rng2") .CenterFooter = "Page &P of &N" .RightFooter = "Printed on &D" .PrintHeadings = False .CenterHorizontally = True .Orientation = xlPortrait .PrintTitleRows = "$2:$2" .FitToPagesWide = 1 End With Sulu |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA Code Not Working | Excel Discussion (Misc queries) | |||
VBA Code Not Working | Excel Discussion (Misc queries) | |||
VB Code Is Not Working | Excel Discussion (Misc queries) | |||
Code not working and can't see why | Excel Discussion (Misc queries) | |||
Code not working | Excel Programming |