A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » New Users
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Rearranging aTable



 
 
Thread Tools Display Modes
  #1  
Old December 5th, 2005, 05:17 AM posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: n/a
Default Rearranging aTable

I created a worksheet consisting of two relatively narrow columns. But it's
about 7,000 rows deep. I'd like to rearrange it so I'd have five sets of
column pairs on a single page, so I could print it using one fifth the
paper.

Assuming there are 40 lines per page, I'd then want page 1 to hold items
1-40 in the Columns A and B, then items 41-80 in rows C and D, etc.. Is
there a simple command to do this? if not is there a simple macro?
--
PT


  #2  
Old December 5th, 2005, 12:37 PM posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: n/a
Default Rearranging aTable

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
Kind regards,

Niek Otten

"PT" wrote in message
...
I created a worksheet consisting of two relatively narrow columns. But
it's
about 7,000 rows deep. I'd like to rearrange it so I'd have five sets of
column pairs on a single page, so I could print it using one fifth the
paper.

Assuming there are 40 lines per page, I'd then want page 1 to hold items
1-40 in the Columns A and B, then items 41-80 in rows C and D, etc.. Is
there a simple command to do this? if not is there a simple macro?
--
PT




  #3  
Old December 5th, 2005, 06:34 PM posted to microsoft.public.excel.newusers
external usenet poster
 
Posts: n/a
Default Rearranging aTable

PT

Sub Move_Sets()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(40, 2).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 40, "A").Resize(40, 2).Cut _
Destination:=Cells(iTarget, "C")
Cells(iSource + 80, "A").Resize(40, 2).Cut _
Destination:=Cells(iTarget, "E")
Cells(iSource + 120, "A").Resize(40, 2).Cut _
Destination:=Cells(iTarget, "G")
Cells(iSource + 160, "A").Resize(40, 2).Cut _
Destination:=Cells(iTarget, "I")
iSource = iSource + 200
iTarget = iTarget + 41
Loop Until IsEmpty(Cells(iSource, "A"))

End Sub

Suggest you first make a copy of the sheet.


Gord Dibben Excel MVP

On Sun, 4 Dec 2005 20:17:54 -0800, "PT" wrote:

I created a worksheet consisting of two relatively narrow columns. But it's
about 7,000 rows deep. I'd like to rearrange it so I'd have five sets of
column pairs on a single page, so I could print it using one fifth the
paper.

Assuming there are 40 lines per page, I'd then want page 1 to hold items
1-40 in the Columns A and B, then items 41-80 in rows C and D, etc.. Is
there a simple command to do this? if not is there a simple macro?

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Rearranging entires PatriciaT General Discussion 5 May 27th, 2005 11:56 PM
database wizard rearranging shapes Matt Visio 4 March 24th, 2005 03:33 PM
REARRANGING FOLDERS IN ALPHABETICAL ORDER IN OFFICE 2002 Kofi Nyamekye General Discussions 1 May 19th, 2004 02:08 AM


All times are GMT +1. The time now is 12:01 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.