Microsoft Excel Training- From Beginner to Expert in 6 Hours/ EXCEL DASHBOARD REPORTS

Ozgrid, Experts in Microsoft Excel Spreadsheets

Excel VBA Macro - Adding Conditional Page Breaks

| | Information Helpful? Why Not Donate.


Originally Posted in our Excel Help Forum

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only $145.00. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

DeZaStR needed to write a macro that checks a column of numbers, and each time the number changes, insert a page break. For example, you have a column with all 10's in each row, but on row 25 it then becomes 15' that point he wanted a page break.
Richie(UK) provided the following code
Sub InsertPBs()
Dim rngMyRange As Range, rngCell As Range
With Worksheets("Sheet1")
    Set rngMyRange = .Range(.Range("B1"), .Range("B65536").End(xlUp))
    'the range to work with
    For Each rngCell In rngMyRange
    'loop through the range
        If rngCell.Value <> rngCell.Offset(1, 0).Value Then
            .HPageBreaks.Add Before:=rngCell.Offset(1, 0)
        End If
End With
End Sub
Epidemic provided an alternative loop

Sub pagebrk()
col = 2 ' what ever column you want to measure.
LastRw = ActiveSheet.UsedRange.Rows.Count
 For x = 2 To LastRw
  If Cells(x, col) <> Cells(x - 1, col) Then
   ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(x, col)
  End If
End Sub

DeZaStR noted that both coded solutions worked “great” – Thanks guys.

Excel Dashboard Reports & Excel Dashboard Charts 50% Off

Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Microsoft Excel Training- From Beginner to Expert in 6 Hours/ EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft