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.
--
Amarjeet Kr. Sahay

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

"Amarjeey" wrote:

> 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.
> --
> Amarjeet Kr. Sahay

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

--
If this post helps click Yes
---------------
Jacob Skaria


"Amarjeey" wrote:

> 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.
> --
> Amarjeet Kr. Sahay

Thank you very much. This is what i needed.
--
Amarjeet Kr. Sahay


"Mike H" wrote:

> 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
>
> "Amarjeey" wrote:
>
> > 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.
> > --
> > Amarjeet Kr. Sahay

Thanks you very much. This is what i needed.
--
Amarjeet Kr. Sahay


"Jacob Skaria" wrote:

> 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
>
> --
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Amarjeey" wrote:
>
> > 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.
> > --
> > Amarjeet Kr. Sahay