Breaking a long column to print on one sheet
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? |
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? |
All times are GMT +1. The time now is 10:46 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com