I have a spreadsheet that is currently 143 pages long with 5 columns of
information. However, is there an easier way, other than 'copy and paste' 2
pages of information onto one? Can it be done the same way as in Word where
you highlight your information and then say 'I want 2 sections of 5 columns
of information on 1 page.'

I hope there is an easy way to do this other than 'copy and pasting'. Please
advise.

Can you tell me in Word where is such an option? In Excel why can't you try
for Data - Consolidate?

Regards,

Jaleel

"Karen" wrote:

I have a spreadsheet that is currently 143 pages long with 5 columns of
information. However, is there an easier way, other than 'copy and paste' 2
pages of information onto one? Can it be done the same way as in Word where
you highlight your information and then say 'I want 2 sections of 5 columns
of information on 1 page.'

I hope there is an easy way to do this other than 'copy and pasting'. Please
advise.

In Word, you would go to 'Format', 'Columns'. This option is also on the
Standard Toolbar.

If I use the 'Data', 'Consolidate', what do I need to put in the boxes to
make this happen?

"Jaleel" wrote:

Can you tell me in Word where is such an option? In Excel why can't you try
for Data - Consolidate?

Regards,

Jaleel

"Karen" wrote:

I have a spreadsheet that is currently 143 pages long with 5 columns of
information. However, is there an easier way, other than 'copy and paste' 2
pages of information onto one? Can it be done the same way as in Word where
you highlight your information and then say 'I want 2 sections of 5 columns
of information on 1 page.'

I hope there is an easy way to do this other than 'copy and pasting'. Please
advise.

Karen

10 columns, 50 rows per page.

Sub Move_Sets()
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 + 50
PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP

On Thu, 12 Oct 2006 13:44:02 -0700, Karen
wrote:

In Word, you would go to 'Format', 'Columns'. This option is also on the
Standard Toolbar.

If I use the 'Data', 'Consolidate', what do I need to put in the boxes to
make this happen?

"Jaleel" wrote:

Can you tell me in Word where is such an option? In Excel why can't you try
for Data - Consolidate?

Regards,

Jaleel

"Karen" wrote:

I have a spreadsheet that is currently 143 pages long with 5 columns of
information. However, is there an easier way, other than 'copy and paste' 2
pages of information onto one? Can it be done the same way as in Word where
you highlight your information and then say 'I want 2 sections of 5 columns
of information on 1 page.'

I hope there is an easy way to do this other than 'copy and pasting'. Please
advise.

Thanks Gord. I will try this when I at the office tomorrow. Wish me luck!

"Gord Dibben" wrote:

Karen

10 columns, 50 rows per page.

Sub Move_Sets()
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 + 50
PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP

On Thu, 12 Oct 2006 13:44:02 -0700, Karen
wrote:

In Word, you would go to 'Format', 'Columns'. This option is also on the
Standard Toolbar.

If I use the 'Data', 'Consolidate', what do I need to put in the boxes to
make this happen?

"Jaleel" wrote:

Can you tell me in Word where is such an option? In Excel why can't you try
for Data - Consolidate?

Regards,

Jaleel

"Karen" wrote:

I have a spreadsheet that is currently 143 pages long with 5 columns of
information. However, is there an easier way, other than 'copy and paste' 2
pages of information onto one? Can it be done the same way as in Word where
you highlight your information and then say 'I want 2 sections of 5 columns
of information on 1 page.'

I hope there is an easy way to do this other than 'copy and pasting'. Please
advise.