Insert Page Break every 35 rows; unless there is a number in C cell, the PB in row above.

[countryfan_nt]

Hi! Thank you for your kind time.

Can you please help with a VBA code that page breaks the rows of sheet "Report".

A. PB Every 35 rows. The rows range is Row 1:600.

B. If the row that will have a Page Break has data in the C column (current row).

The page break will take place in the upper row (offset); instead of the current row.

Guys you rock! Thank you very much

 

[igold]

Does this get you close to what you want...

Sub PageBrk()
    
    Dim wsR As Worksheet: Set wsR = Worksheets("Report")
    Dim i As Long
    Dim rngC As Range
    
    wsR.ResetAllPageBreaks
    Set rngC = wsR.Range("C1:C600")
        For i = 35 To 600 Step 35
            If rngC.Cells(i) = "" Then
                wsR.HPageBreaks.Add before:=rngC.rows(i + 1)
            Else
               wsR.HPageBreaks.Add before:=rngC.rows(i)
            End If
        Next
    
End Sub

 

[countryfan_nt]

very VERY cool Thank you!

 

[igold]

You're very very welcome. I was happy to help. Thanks for the feedback!