Help! How do I insert a manual page break on a change in cell contents
If I sort spreedshet on Column A, I want to print a paper report that starts a new page whenever the contents of col. A changes. How? TIA. -- Al Dykes News is something someone wants to suppress, everything else is advertising. - Lord Northcliffe, publisher of the Daily Mail |
Help! How do I insert a manual page break on a change in cell co
Hi,
Right click your sheet tab, view code and paste this in and run it Sub marine() lastrow = Cells(Rows.Count, "A").End(xlUp).Row Set myrange = Range("A2:A" & lastrow) For Each c In myrange c.Select If c.Value < c.Offset(-1, 0).Value Then ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell End If Next End Sub Mike "Al Dykes" wrote: If I sort spreedshet on Column A, I want to print a paper report that starts a new page whenever the contents of col. A changes. How? TIA. -- Al Dykes News is something someone wants to suppress, everything else is advertising. - Lord Northcliffe, publisher of the Daily Mail |
Help! How do I insert a manual page break on a change in cell contents
Sub Insert_PBreak()
Dim OldVal As String Dim rng As Range OldVal = Range("A1") For Each rng In Range("A1:A300") '<< change range If rng.text < OldVal Then rng.PageBreak = xlPageBreakManual OldVal = rng.text End If Next rng End Sub Gord Dibben MS Excel MVP On 23 Jul 2008 14:31:08 -0400, (Al Dykes) wrote: If I sort spreedshet on Column A, I want to print a paper report that starts a new page whenever the contents of col. A changes. How? TIA. |
All times are GMT +1. The time now is 07:27 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com