Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
break page based on specific conditions
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
break page based on specific conditions
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 Befo=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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
break page based on specific conditions
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 Befo=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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 Page Break Adjustments causes a page break each cell | Excel Worksheet Functions | |||
Insert page break based on change in Cell Color? | Excel Programming | |||
Page break macro based on cell content / formula | Excel Programming | |||
Page Break based on Dates | Excel Programming | |||
adding a new page break to an existing page break | Excel Discussion (Misc queries) |