Not sure how you want the pages to be laid out but have a try with
this code which puts 1-52 and 53-104 side by side on one page.
Sort your original first on last names then run the macro.
Sub Move_Sets_PBreak()
'pbreak inserted
Dim iSource As Long
Dim iTarget As Long
Dim i As Long
iSource = 1
iTarget = 1
Application.ScreenUpdating = False
Do
Cells(iSource, "A").Resize(52, 7).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 52, "A").Resize(52, 7).Cut _
Destination:=Cells(iTarget, "H")
iSource = iSource + 104
iTarget = iTarget + 52
Loop Until IsEmpty(Cells(iSource, "A"))
For i = 53 To Cells(Rows.Count, "A").End(xlUp).Row Step 52
Cells(i, 1).Select
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
Next i
Application.ScreenUpdating = True
End Sub
Gord
On Wed, 13 Jun 2012 16:37:46 +0000, Atochabsh
<(E-Mail Removed)> wrote:
>
>I have a data sheet with nearly 9000 "rows" of data. Those rows have 7
>columns of data. The first column is last names. I need to keep the
>data in alphabetical order. But since we print this data in book form,
>I'd like to save paper by creating two columns of this data on one piece
>of paper. So far there are 52 rows per page. How can I transfer this
>data into two sets of data per page? keeping it in alphabetical order.
>In the past we have copy and pasted, but it takes a very long time to do
>that with this much data.
>
>Thank you,
>
>Atochabsh
|
Similar Threads
