Array to copy columns

[FIRSTROUNDKO via OfficeKB.com]

Hi,

I would like to copy from Sheet1 Columns B ,A, C in that order

to

Sheet 2 Columns A , B, C

can this be done by array

i.e myarray(B,A,C)

Thanks in advance

 

[FIRSTROUNDKO via OfficeKB.com]

I found this code but the order of columns remains A,B,C


myarray = "B:B,A:A,C:C"
Worksheets("Sheet1").Range(myarray).Copy Worksheets("Sheet2").Range("A1")

 

[FIRSTROUNDKO via OfficeKB.com]

here is the answer

Sub assignArray()
Dim Arr(3)

Dim X As Long

Arr(1) = "B:B"
Arr(2) = "A:A"
Arr(3) = "C:C"

For X = 1 To 3
' Columns("K:K").Select

Worksheets("Sheet1").Columns(Arr(X)).Copy Worksheets
("Sheet2").Cells(1, X)

Next X

End Sub

I found this code but the order of columns remains A,B,C

myarray = "B:B,A:A,C:C"
Worksheets("Sheet1").Range(myarray).Copy Worksheets("Sheet2").Range("A1")

Hi,

[quoted text clipped - 9 lines]

Thanks in advance

 

[Don Guillett]

Another way
Sub CopycolumnsCustom()
With Sheets("Sheet14")
Sheets("sheet9").Columns("A:C").Copy .Range("a1")
Application.CutCopyMode = False
.Columns("B").Cut
.Columns("A").Insert , Shift:=xlToRight
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

here is the answer

Sub assignArray()
Dim Arr(3)

Dim X As Long

Arr(1) = "B:B"
Arr(2) = "A:A"
Arr(3) = "C:C"

For X = 1 To 3
' Columns("K:K").Select

Worksheets("Sheet1").Columns(Arr(X)).Copy Worksheets
("Sheet2").Cells(1, X)

Next X

End Sub

I found this code but the order of columns remains A,B,C

myarray = "B:B,A:A,C:C"
Worksheets("Sheet1").Range(myarray).Copy Worksheets("Sheet2").Range("A1")

Hi,

[quoted text clipped - 9 lines]

Thanks in advance