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?

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?

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?

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?