Forum Discussion

Hansmjanus's avatar
Hansmjanus
Copper Contributor
Oct 14, 2023

conditional page shift in Excel

I have an Excel sheet with the first column showing order numbers from a webshop. The second column shows product codes. I want to print with page shift for each shift in order number in the first c...
excel
Formulas and Functions
HansVogelaar's avatar
HansVogelaar
MVP
Oct 14, 2023

Hansmjanus 

Run this macro:

Sub AddPageBreaks()
    Dim r As Long
    Dim m As Long
    Application.ScreenUpdating = False
    ActiveSheet.ResetAllPageBreaks
    m = Range("A" & Rows.Count).End(xlUp).Row
    For r = m To 2 Step -1
        If Range("A" & r).Value <> Range("A" & r - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & r)
        End If
    Next r
    Application.ScreenUpdating = True
End Sub

Resources