I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

Check out this page of David McRitchie:

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

--

HTH,

RD
================================================== ===
Please keep all correspondence within the Group, so all may benefit!
================================================== ===

"Candice" wrote in message
...
I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know
that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is
there
any way of setting this up to automatically do it for me or do I just have
to
cut and paste??

Not exactly sure what you mean
"would like the data to automatically fill over to make additional columns"
and
"I can fit my current columns 3 times on the page width."
However, have you tried from the menu path Format / Cells. Choose the
Alignment tab and then check the Wrap text box in the text control section.
This will wrap your text in the cell so that it is all displayed in the
current width of the column. You could then adjust your column width to as
large as it can go and still print on 1 page wide. The rest of the data will
wrap around onto the next line of the cell and the column width will stay
fixed.

Hope that helps a little.

Bill

"Candice" wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

Jim Cone has a nifty little commercial Add-in that does this job real fine.
It's called "Side by side" and is available at

http://www.realezsites.com/bus/primi...e/products.php

Vaya con Dios,
Chuck, CABGx3



"Candice" wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

Candice

How do you want the new six columns laid out?

"Snaked" or in sets of say, 50 rows each?

I can provide a macro for either mode.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 08:26:01 -0700, Candice
wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

"snaked". I didn't know the terminology. I want it to fill the first 2
columns to the bottom of the first page, then go to the 3 & 4 columns of the
first page, then 5 & 6 columns of the first page, then go to the first &
second columns of the second page.

Thanks!

"Gord Dibben" wrote:

Candice

How do you want the new six columns laid out?

"Snaked" or in sets of say, 50 rows each?

I can provide a macro for either mode.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 08:26:01 -0700, Candice
wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

Candice

This macro should do what you want. Rows 1-50 in columns A & B

51-100 in columns C & D

101-150 in columns E & F

151-200 in columns A & B

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord

On Mon, 9 Apr 2007 10:38:00 -0700, Candice
wrote:

"snaked". I didn't know the terminology. I want it to fill the first 2
columns to the bottom of the first page, then go to the 3 & 4 columns of the
first page, then 5 & 6 columns of the first page, then go to the first &
second columns of the second page.

Thanks!

"Gord Dibben" wrote:

Candice

How do you want the new six columns laid out?

"Snaked" or in sets of say, 50 rows each?

I can provide a macro for either mode.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 08:26:01 -0700, Candice
wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

As you add more rows these will be placed in C & D and E & F always 50 rows to a
set.

As written the code inserts a blank row between each set of 50.

If you would prefer a pagebreak use this code.

Sub Move_Sets_PBreak()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 50

PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub

Gord

On Mon, 09 Apr 2007 11:02:14 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

Candice

This macro should do what you want. Rows 1-50 in columns A & B

51-100 in columns C & D

101-150 in columns E & F

151-200 in columns A & B

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord

On Mon, 9 Apr 2007 10:38:00 -0700, Candice
wrote:

"snaked". I didn't know the terminology. I want it to fill the first 2
columns to the bottom of the first page, then go to the 3 & 4 columns of the
first page, then 5 & 6 columns of the first page, then go to the first &
second columns of the second page.

Thanks!

"Gord Dibben" wrote:

Candice

How do you want the new six columns laid out?

"Snaked" or in sets of say, 50 rows each?

I can provide a macro for either mode.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 08:26:01 -0700, Candice
wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

THANKS!! We got it to work! I really appreciate your help.

"Gord Dibben" wrote:

As you add more rows these will be placed in C & D and E & F always 50 rows to a
set.

As written the code inserts a blank row between each set of 50.

If you would prefer a pagebreak use this code.

Sub Move_Sets_PBreak()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 50

PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub

Gord

On Mon, 09 Apr 2007 11:02:14 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

Candice

This macro should do what you want. Rows 1-50 in columns A & B

51-100 in columns C & D

101-150 in columns E & F

151-200 in columns A & B

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord

On Mon, 9 Apr 2007 10:38:00 -0700, Candice
wrote:

"snaked". I didn't know the terminology. I want it to fill the first 2
columns to the bottom of the first page, then go to the 3 & 4 columns of the
first page, then 5 & 6 columns of the first page, then go to the first &
second columns of the second page.

Thanks!

"Gord Dibben" wrote:

Candice

How do you want the new six columns laid out?

"Snaked" or in sets of say, 50 rows each?

I can provide a macro for either mode.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 08:26:01 -0700, Candice
wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??

You're welcome.

Thanks for the feedback.


Gord

On Mon, 9 Apr 2007 12:10:04 -0700, Candice
wrote:

THANKS!! We got it to work! I really appreciate your help.

"Gord Dibben" wrote:

As you add more rows these will be placed in C & D and E & F always 50 rows to a
set.

As written the code inserts a blank row between each set of 50.

If you would prefer a pagebreak use this code.

Sub Move_Sets_PBreak()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 50

PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub

Gord

On Mon, 09 Apr 2007 11:02:14 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

Candice

This macro should do what you want. Rows 1-50 in columns A & B

51-100 in columns C & D

101-150 in columns E & F

151-200 in columns A & B

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 100, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 150
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord

On Mon, 9 Apr 2007 10:38:00 -0700, Candice
wrote:

"snaked". I didn't know the terminology. I want it to fill the first 2
columns to the bottom of the first page, then go to the 3 & 4 columns of the
first page, then 5 & 6 columns of the first page, then go to the first &
second columns of the second page.

Thanks!

"Gord Dibben" wrote:

Candice

How do you want the new six columns laid out?

"Snaked" or in sets of say, 50 rows each?

I can provide a macro for either mode.


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 08:26:01 -0700, Candice
wrote:

I have a long list of data. It is currently in 2 columns, one large in
width, and the second small in width. It is over 200 rows in length (and
will need to be continually added to).

I am trying to print on as few pages as possible, so would like the data to
automatically fill over to make additional columns on each page. I know that
in "Word" there is the ability to set the columns automatically to the
desired #. I can fit my current columns 3 times on the page width. Is there
any way of setting this up to automatically do it for me or do I just have to
cut and paste??