I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks

On May 1, 7:51 pm, Stella wrote:
I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks

What would happen if you had formulas in columns E:G that refered to
the items below page 1. and then set the Page Area to A1:G30 (or
whatever). the original info would remain in the same column that you
can continue to sort and you have the additional columns to print.

May work, but then if I add or delete rows in my original list, then would
have to check formulas. Would be just as easy to do what I am doing now -
that is when ready to print I cut the bottom bit off and paste on page one.
After printing I put it back to assist with adding and deleting names in the
list. Thanks for your time.

"Stan" wrote:

On May 1, 7:51 pm, Stella wrote:
I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks

What would happen if you had formulas in columns E:G that refered to
the items below page 1. and then set the Page Area to A1:G30 (or
whatever). the original info would remain in the same column that you
can continue to sort and you have the additional columns to print.

You can paste into Word and use Format | Columns
-or -
David McRitchie has some vba code to do it...
http://www.mvps.org/dmcritchie/excel/snakecol.htm
-or -
buy a commercial application...
http://www.realezsites.com/bus/primitivesoftware
Jim Cone
San Francisco, USA


"Stella"
wrote in message
I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks

Thanks. Will try when I get time. But as you and David M detailed - no simple
way - not like simplicity of say "columns" in word and other things in word.

"Jim Cone" wrote:


You can paste into Word and use Format | Columns
-or -
David McRitchie has some vba code to do it...
http://www.mvps.org/dmcritchie/excel/snakecol.htm
-or -
buy a commercial application...
http://www.realezsites.com/bus/primitivesoftware
Jim Cone
San Francisco, USA


"Stella"
wrote in message
I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks

Stella

Public Sub Snake3to6()
Dim myRange As Range
Dim colsize As Long
Dim maxrow As Long
Const numgroup As Integer = 2
Const NUMCOLS As Integer = 6
On Error GoTo fileerror
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
((NUMCOLS - 1)) / NUMCOLS)) / numgroup
MsgBox "Number of Rows to Move is: " & colsize
Range("A1").Select
With ActiveCell.Parent.UsedRange
maxrow = .Cells(.Cells.Count).Row + 1
End With
ActiveCell.Parent.Cells(maxrow, ActiveCell.Column) _
.End(xlUp).Offset(1, 0).Select
Set myRange = Range(ActiveCell.Address & ":" _
& ActiveCell.Offset(-colsize, (numgroup)).Address)
myRange.Cut Destination:=ActiveSheet.Range("D1")
Application.CutCopyMode = False
Range("A1").Select

fileerror:
End Sub


Gord Dibben MS Excel MVP

On Tue, 1 May 2007 09:51:00 -0700, Stella
wrote:

I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks

Thanks for time, but need really simple solution - as i have to pass on to
others - who barely use Excel. Seems - no simple way - not like simplicity of
say "columns" in word and other things in word.



"Gord Dibben" wrote:

Stella

Public Sub Snake3to6()
Dim myRange As Range
Dim colsize As Long
Dim maxrow As Long
Const numgroup As Integer = 2
Const NUMCOLS As Integer = 6
On Error GoTo fileerror
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
((NUMCOLS - 1)) / NUMCOLS)) / numgroup
MsgBox "Number of Rows to Move is: " & colsize
Range("A1").Select
With ActiveCell.Parent.UsedRange
maxrow = .Cells(.Cells.Count).Row + 1
End With
ActiveCell.Parent.Cells(maxrow, ActiveCell.Column) _
.End(xlUp).Offset(1, 0).Select
Set myRange = Range(ActiveCell.Address & ":" _
& ActiveCell.Offset(-colsize, (numgroup)).Address)
myRange.Cut Destination:=ActiveSheet.Range("D1")
Application.CutCopyMode = False
Range("A1").Select

fileerror:
End Sub


Gord Dibben MS Excel MVP

On Tue, 1 May 2007 09:51:00 -0700, Stella
wrote:

I have a 3 narrow columns with a long list that runs down over 2 pages.
I want to leave all the text in the same columns (for sorting, adding to
etc), but when I print I would like it to fit on one page. That is - to show
the same long list, but side by side on one page. Thanks