Moving columns order

[EXCELMACROS]

Hi..., I want to move the order of my columns, do you know a more efficient
way besides doing:

Cells.Find(What:="abc").EntireColumn.Cut
Range("A1").Offset(0, 8).EntireColumn.Insert Shift:=xlToRight

probably something like moving column 6 before 3...


thanks,

 

[Mike H]

Hi,

there's no slick method other then cutting. have a look here

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

Mike

 

[EXCELMACROS]

that's what i was afriad... thanks I'll keep doing my cut/insert...

 

[egun]

There is also a manual method that's not too time consuming if you only have
to do the column sort once or twice.

Temporarily add a row that will be the index for sorting your columns. For
example:

Col 1 Col 2 Col 3 Col 4 Col 5
apple pear orange grape kiwi
joe jim jan fred sheila
3 5 2 1 4 <---- This will be the sort index

Then select the columns you want to sort, and select "Data/Sort..." from the
menu.
Under "Options..." select "Sort left to right". Then select the inserted
row to sort by. The example will look like:

Col 4 Col 3 Col 1 Col 5 Col 2
grape orange apple kiwi pear
fred jan joe sheila jim
1 2 3 4 5

You can then delete the index row.

HTH,

Eric

 

[EXCELMACROS]

that's a good idea.., I guess i can make that part of my macro, just
wondering which one is more slick/efficient, cutting - inserting or adding a
row with order number and then have the macro sort left to right columns.