Breaking a long column to print on one sheet
Your subject saya "a long column" but your description says "two columns".
Which is correct and if two columns how do you want them sorted?
Each column independently sorted or?
Here is example code to place 2 columns of 200 rows into 8 columns of 50
rows for printing
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")
Cells(iSource + 150, "A").Resize(50, 2).Cut _
Destination:=Cells(iTarget, "G")
iSource = iSource + 200
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)
End Sub
Gord Dibben MS Excel MVP
On Sat, 30 Aug 2008 12:03:01 -0700, Pathwalker
wrote:
I have two columns of data that I must update and sort alphabetically, then
break the columns to print on one sheet instead of three pages. Is there a
way to set this up to print without cutting and pasting to fit on one page?
|