Insert Page Break automatically??

[jray]

I generate a report with header information on each page. When I export it to to Excel it paginates differently from within the software.

On each page in column A is the word BUILDING. Is there a way to insert a page break above each occurence of the word BUILDING?

Thank you very much!!

 

[Jaye7]

Jray,

The following looks for the word in column A and then sets pagebreaks.

Change the range of for I = 10000 to meet your criteria as it will only search 10000 lines.

option compare text
Sub pagebreak1()
Application.ScreenUpdating = False
ActiveSheet.ResetAllPageBreaks
Dim rng1 As Range
    For I = 10000 To 1 Step -1
        Set rng1 = Range("A" & I)
        
        Select Case rng1.Value
            Case "BUILDING"
                'select row
                
                rng1.EntireRow.Select
                ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
                
        End Select
    Next I
    Range("a1").Select
    Application.ScreenUpdating = True
End Sub

 

[jray]

Thank you SOOOO much for the speedy reply.

It took me a while to actually reopen my computer. On first run it looks like you solved my problem!!

Thanks again!!!


Jim

 

[Jaye7]

You're welcome