Excel Spreadsheet
 

I am working on an excel spreadsheet which is 5 columns and approximately 180
rows. I would like to be able to make the data flow to the right side of the
paper before starting a new page to limit the number of pages used for the
report.

Excel Spreadsheet
 

Please explain what you mean by: "make the data flow to the right side of
the paper before starting a new page"? Give an example of what you want to
happen when you enter data. HTH Otto
"sissiechurch2" wrote in message
...
I am working on an excel spreadsheet which is 5 columns and approximately
180
rows. I would like to be able to make the data flow to the right side of
the
paper before starting a new page to limit the number of pages used for the
report.

Excel Spreadsheet
 

Check out this web page of David McRitchie:

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------

"sissiechurch2" wrote in message
...
I am working on an excel spreadsheet which is 5 columns and approximately
180
rows. I would like to be able to make the data flow to the right side of
the
paper before starting a new page to limit the number of pages used for the
report.

Excel Spreadsheet
 

Are you willing and able to use a macro?

Do you want 10 columns and 90 rows to print
in a snaked fashion like 1-90 at left and 91-180 at right?

Public Sub Snake5_to_10()
Dim myRange As Range
Dim colsize As Long
Dim maxrow As Long
Const numgroup As Integer = 2
Const NUMCOLS As Integer = 5
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, (NUMCOLS - 1)).Address)
myRange.Cut Destination:=ActiveSheet.Range("F1")
Application.CutCopyMode = False
Range("A1").Select
fileerror:
End Sub

Or 10 columns with 1-50 at left and 51-100 at right?

Sub Five_to_Ten()
Dim iSource As Long
Dim iTarget As Long
iSource = 1
iTarget = 1
Do
Cells(iSource, "A").Resize(50, 5).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 5).Cut _
Destination:=Cells(iTarget, "F")
iSource = iSource + 100
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)
End Sub


Gord Dibben MS Excel MVP

On Sat, 2 Sep 2006 07:25:01 -0700, sissiechurch2
wrote:

I am working on an excel spreadsheet which is 5 columns and approximately 180
rows. I would like to be able to make the data flow to the right side of the
paper before starting a new page to limit the number of pages used for the
report.

Excel Spreadsheet
 

Thanks for the info, but I'm afraid the macros are a bit beyond my expertise!



"Ragdyer" wrote:

Check out this web page of David McRitchie:

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------

"sissiechurch2" wrote in message
...
I am working on an excel spreadsheet which is 5 columns and approximately
180
rows. I would like to be able to make the data flow to the right side of
the
paper before starting a new page to limit the number of pages used for the
report.

Excel Spreadsheet
 

Maybe you can copy|paste into MSWord and use it's Format|Columns to save paper.

If you're not doing many calculations, you may just want to keep that data in a
table in MSWord.

sissiechurch2 wrote:

I am working on an excel spreadsheet which is 5 columns and approximately 180
rows. I would like to be able to make the data flow to the right side of the
paper before starting a new page to limit the number of pages used for the
report.

--

Dave Peterson

Excel Spreadsheet
 

But you can learn to use them.

To use either of the two macros I posted...........

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 the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.



Gord Dibben MS Excel MVP

On Sat, 2 Sep 2006 13:20:01 -0700, sissiechurch2
wrote:

Thanks for the info, but I'm afraid the macros are a bit beyond my expertise!



"Ragdyer" wrote:

Check out this web page of David McRitchie:

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------

"sissiechurch2" wrote in message
...
I am working on an excel spreadsheet which is 5 columns and approximately
180
rows. I would like to be able to make the data flow to the right side of
the
paper before starting a new page to limit the number of pages used for the
report.



Gord Dibben MS Excel MVP

Excel Spreadsheet
 

Thanks for the instructions. I've tried to use SnakeCols numerous times and
just can't get it to work. Don't know exactly what I'm doing wrong, but no
luck yet.



"Gord Dibben" wrote:

But you can learn to use them.

To use either of the two macros I posted...........

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 the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.



Gord Dibben MS Excel MVP

On Sat, 2 Sep 2006 13:20:01 -0700, sissiechurch2
wrote:

Thanks for the info, but I'm afraid the macros are a bit beyond my expertise!



"Ragdyer" wrote:

Check out this web page of David McRitchie:

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------

"sissiechurch2" wrote in message
...
I am working on an excel spreadsheet which is 5 columns and approximately
180
rows. I would like to be able to make the data flow to the right side of
the
paper before starting a new page to limit the number of pages used for the
report.



Gord Dibben MS Excel MVP