Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Page Breaks when data is NOT on column "A"
The following works great EXCEPT it needs to put the
break in column A, NOT in B. Help Please. BeeJay Dim OldVal As String Dim Rng As Range With Application .Calculation = xlManual .ScreenUpdating = False End With OldVal = Range("B1") StartTime = Timer For Each Rng In Range("B1:B10000") '<< change range If Rng.Text < OldVal Then Rng.PageBreak = xlPageBreakManual OldVal = Rng.Text End If Next Rng MsgBox Timer - StartTime With Application .Calculation = xlAutomatic .ScreenUpdating = True End With MsgBox "COMPLETE!" End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Page Breaks when data is NOT on column "A"
Try using the Horizontal Page Break rather than just th xlPageBreakManual xlHPageBreaks.Ad -- bhofset ----------------------------------------------------------------------- bhofsetz's Profile: http://www.excelforum.com/member.php...fo&userid=1880 View this thread: http://www.excelforum.com/showthread.php?threadid=38129 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Create Pivot Table Data with Column "Sum" rather than "count" defa | Excel Discussion (Misc queries) | |||
"manual page breaks error" | Excel Worksheet Functions | |||
"Print Selection" doesn't print beyond automatic page breaks | Excel Discussion (Misc queries) | |||
Change data in a single column from "last, first" to "first last" | Excel Discussion (Misc queries) | |||
Adding "New" "Insert" "Delete" into a workbook to change from data 1 to data 2 etc | Excel Programming |