Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Excel problem trying to format columns of data
Probably an easy problem for the Excel Wizard. However, not for me.
Presently I have a price list that is 3 columns wide and extends to over 300 pages if printed in its current format. I would like to move the data so that it shows/prints page 1 and 2 on a single sheet of paper. There would be room on single sheet of paper for the 3 rows of data for pages 1 and 2. Thereby reducing the printed version to half. Thanks for any help |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Excel problem trying to format columns of data
Check out this link to David McRitchie's page on the subject:
http://www.mvps.org/dmcritchie/excel/snakecol.htm -- HTH, RD --------------------------------------------------------------------------- Please keep all correspondence within the NewsGroup, so all may benefit ! --------------------------------------------------------------------------- "imac1948" wrote in message ... Probably an easy problem for the Excel Wizard. However, not for me. Presently I have a price list that is 3 columns wide and extends to over 300 pages if printed in its current format. I would like to move the data so that it shows/prints page 1 and 2 on a single sheet of paper. There would be room on single sheet of paper for the 3 rows of data for pages 1 and 2. Thereby reducing the printed version to half. Thanks for any help |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Excel problem trying to format columns of data
This macro will give 6 columns 50 rows deep per printed page. Assuming original
data is in in Columns A:C Sub Set_Two_Times() Dim iSource As Long Dim iTarget As Long Dim cCols As Long Dim rrows As Long iSource = 1 iTarget = 1 cCols = 3 rrows = 50 Do Cells(iSource, "A").Resize(rrows, cCols) _ .Cut Destination:=Cells(iTarget, "A") Cells(iSource + rrows, "A").Resize(rrows, cCols) _ .Cut Destination:=Cells(iTarget, (cCols + 1)) iSource = iSource + (rrows * cCols) iTarget = iTarget + (rrows + 1) Loop Until IsEmpty(Cells(iSource, "A").Value) End Sub Gord Dibben MS Excel MVP On Sun, 11 Jun 2006 00:59:01 -0700, imac1948 wrote: Probably an easy problem for the Excel Wizard. However, not for me. Presently I have a price list that is 3 columns wide and extends to over 300 pages if printed in its current format. I would like to move the data so that it shows/prints page 1 and 2 on a single sheet of paper. There would be room on single sheet of paper for the 3 rows of data for pages 1 and 2. Thereby reducing the printed version to half. Thanks for any help |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Excel problem trying to format columns of data
You are wonderful, the snake columns using Word did the trick. Thank you
Thank you Thank you "imac1948" wrote: Probably an easy problem for the Excel Wizard. However, not for me. Presently I have a price list that is 3 columns wide and extends to over 300 pages if printed in its current format. I would like to move the data so that it shows/prints page 1 and 2 on a single sheet of paper. There would be room on single sheet of paper for the 3 rows of data for pages 1 and 2. Thereby reducing the printed version to half. Thanks for any help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 FAILS, but Excel 2000 SUCCEEDS ??? | Excel Discussion (Misc queries) | |||
consolidation of tables in excel with text and figures | Excel Worksheet Functions | |||
How do I number format the Data Table in an Excel Chart? | Charts and Charting in Excel | |||
Exported Data to excel appearing wrong in Columns | Excel Discussion (Misc queries) | |||
How do i copy columns of data in notepad into microsoft excel? | Excel Discussion (Misc queries) |