break page based on specific conditions

A

Amarjeey

Hi,

Could anyone let me know how can i use page break based on specific
conditions? I need macro for this. For example, search for table in A1
column, wherever table word will found it should start new page break.

Please help me on this regards. Thanks.
 
M

Mike H

Hi,

This looks for a lower case 'a' in column A and inserts a page break after
every one.

Right click your sheet tab, view code and paste this in

Sub stance()
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = 2 To lastrow
If Cells(x - 1, 1).Value = "a" Then
HPageBreaks.Add Before:=Cells(x, 1)
End If
Next
End Sub

Mike
 
J

Jacob Skaria

The below macro will go through column A and put a pagebreak whenever it
finds an entry "PageBreak" in Col A. Set the Security level to low/medium in
(Tools|Macro|Security). 'Launch VBE using short-key Alt+F11. . Insert a
module and paste the below code. Save. Get back to Workbook. Tools|Macro|Run
Macro1()

Sub Macro1()
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For lngRow = 1 To lngLastRow
If Range("A" & lngRow) = "PageBreak" Then
Sheets("Sheet1").HPageBreaks.Add Before:=Range("A" & lngRow)
End If
Next
End Sub
 
Top