Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting page break conditionally
Hi
I want to insert a page break before a cell if the cell value meets certain conditions. I've tried the code below which seemd to work some of the time ut not consistently. Sub InsertPageBreaks() Application.ScreenUpdating = False ActiveSheet.Activate 'ActiveSheet.ResetAllPageBreaks lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 6 Step -1 If InStr(Cells(i, 1).Value, "---") 0 Then ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=Cells(i, 1) End If Next Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inserting page break | Excel Discussion (Misc queries) | |||
VBA From MS Access: Inserting Page Break? | Excel Programming | |||
Inserting A row & page break | Excel Programming | |||
Inserting header @ page break | Excel Discussion (Misc queries) | |||
Inserting rows before page break | Excel Programming |