
Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
Don,
Thank You.
I am trying to understand the code, but will this code work if I am moving
columns c,a,e,f,g,aa,bb,ff,kk,uu,etc to columns to columns
a,b,c,d,e,f,g,h,etc?
Where would this code be placed and accessed?
Greg
> lr=cells(rows.count,"a").end(xlup).row
> range(cells(1,1),cells(lr,21).copy
[quoted text clipped - 17 lines]
> >
> > Greg
Don Guillett - 05 Dec 2007 22:07 GMT
This is the idea to put in the order requested with c before a.
You could put in the source or destination sheet and modify to suit.
Sub copycols()
myarray = Array("c", "a", "e:g","aa")'source columns
With Sheets("Sheet3")
For Each c In myarray
'MsgBox c
lc = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
'MsgBox lc
Columns(c).Copy .Columns(lc) 'Cells(1, lc)
Next c
End With
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> Don,
>
[quoted text clipped - 32 lines]
>> >
>> > Greg
Greg - 06 Dec 2007 01:17 GMT
Don,
Thank You, I am working on it.
If you have any other advice please let me know.
Greg
> This is the idea to put in the order requested with c before a.
> You could put in the source or destination sheet and modify to suit.
[quoted text clipped - 46 lines]
> >> >
> >> > Greg