Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Page Breaks
I'd like to know if there's an easy way to insert page breaks into my
spreadsheet. I have a list in column B. Some of the items in the colums a listed more than once. I've sorted the list in ascending order and now I'd like to insert a page break between each individual item. Is there a way to accomplish this with some formula (or other method), or do I have to manually insert a page break after each item? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Page Breaks
This VBA subroutine seems to work
Sub breakup() ActiveWindow.View = xlPageBreakPreview Range("B1").Select Range(Selection, Selection.End(xlDown)).Select mytest = Range("B1").Value For Each mycell In Selection If mycell.Value < mytest Then ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=mycell mytest = mycell.Value End If ActiveWindow.View = xlNormalView Next End Sub Need help with VBA? See David McRitchie's site on "getting started" with VBA http://www.mvps.org/dmcritchie/excel/getstarted.htm best wishes -- Bernard V Liengme www.stfx.ca/people/bliengme remove caps from email "blasds78" wrote in message ... I'd like to know if there's an easy way to insert page breaks into my spreadsheet. I have a list in column B. Some of the items in the colums a listed more than once. I've sorted the list in ascending order and now I'd like to insert a page break between each individual item. Is there a way to accomplish this with some formula (or other method), or do I have to manually insert a page break after each item? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Page Breaks
Bernard,
Thanks for your help. I'm sure that works, but I'm too much of a novice to understand those commands. Thanks, Doug "Bernard Liengme" wrote: This VBA subroutine seems to work Sub breakup() ActiveWindow.View = xlPageBreakPreview Range("B1").Select Range(Selection, Selection.End(xlDown)).Select mytest = Range("B1").Value For Each mycell In Selection If mycell.Value < mytest Then ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=mycell mytest = mycell.Value End If ActiveWindow.View = xlNormalView Next End Sub Need help with VBA? See David McRitchie's site on "getting started" with VBA http://www.mvps.org/dmcritchie/excel/getstarted.htm best wishes -- Bernard V Liengme www.stfx.ca/people/bliengme remove caps from email "blasds78" wrote in message ... I'd like to know if there's an easy way to insert page breaks into my spreadsheet. I have a list in column B. Some of the items in the colums a listed more than once. I've sorted the list in ascending order and now I'd like to insert a page break between each individual item. Is there a way to accomplish this with some formula (or other method), or do I have to manually insert a page break after each item? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Inserting Page Breaks
If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started". http://www.mvps.org/dmcritchie/excel/getstarted.htm In the meantime.......... First...create a backup copy of your original workbook. To create a General Module, hit ALT + F11 to open the Visual Basic Editor. Hit CRTL + r to open Project Explorer. Find your workbook/project and select it. Right-click and InsertModule. Paste the code in there. Save the workbook and hit ALT + Q to return to your workbook. Run or edit the macro by going to ToolMacroMacros. You can also assign this macro to a button or a shortcut key combo. Gord On Tue, 22 May 2007 06:42:02 -0700, blasds78 wrote: Bernard, Thanks for your help. I'm sure that works, but I'm too much of a novice to understand those commands. Thanks, Doug "Bernard Liengme" wrote: This VBA subroutine seems to work Sub breakup() ActiveWindow.View = xlPageBreakPreview Range("B1").Select Range(Selection, Selection.End(xlDown)).Select mytest = Range("B1").Value For Each mycell In Selection If mycell.Value < mytest Then ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=mycell mytest = mycell.Value End If ActiveWindow.View = xlNormalView Next End Sub Need help with VBA? See David McRitchie's site on "getting started" with VBA http://www.mvps.org/dmcritchie/excel/getstarted.htm best wishes -- Bernard V Liengme www.stfx.ca/people/bliengme remove caps from email "blasds78" wrote in message ... I'd like to know if there's an easy way to insert page breaks into my spreadsheet. I have a list in column B. Some of the items in the colums a listed more than once. I've sorted the list in ascending order and now I'd like to insert a page break between each individual item. Is there a way to accomplish this with some formula (or other method), or do I have to manually insert a page break after each item? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I can't move my page breaks in Page Break Preview | Excel Discussion (Misc queries) | |||
inserting page breaks for specific data groups | Excel Discussion (Misc queries) | |||
inserting multiple page breaks at one time | Excel Discussion (Misc queries) | |||
Inserting Page Breaks | Excel Discussion (Misc queries) | |||
Inserting line breaks into merged text cells. | Excel Discussion (Misc queries) |