Excel: Swapping columns using VBA

[mmtraining]

In order to consolidate two tables, I need to swap the columns in one of them so that the information is in the right order. How do I do this? As an example: I want to move column c to be before column b.

Thanx for any ideas

Carol
Berlin, Germany

 

[xlbo]

Carol - I just recorded a macro of swapping columns and got this:
Columns("H:H&quot.Select
Selection.Cut Destination:=Columns("D&quot

HTH Rgds
Geoff

Si hoc legere scis, nimis eruditionis habes

 

[RobBroekhuis]

I would use

columns("B&quot.insert
columns("D&quot.copy columns("B&quot
columns("D&quot.delete
Rob

 

[scottsek]

Here is an example where the column with the active cell is swapped with the column to the right:


Sub SwapColumnRight()
SwapRight ActiveCell
End Sub

Sub SwapRight(rngActiveCell As Range)
Dim rngActiveColumn As Range
'gets entire column
Set rngOriginalColumn = rngActiveCell.EntireColumn
'inserts column 2 columns over from original column
rngOriginalColumn.Offset(0, 2).Insert xlToRight
'cuts original and puts it in two columns over
'NOTE: rngOriginalColumn changes with the cut to the new location
rngOriginalColumn.Cut rngOriginalColumn.Offset(0, 2)
'deletes original location (2 columns to the left)
rngOriginalColumn.Offset(0, -2).Delete
End Sub


HTH,
Scott

 

[mmtraining]

Thanx a lot, all three of you. You have given me three different ways of doing what I want to do.

All the best

Carol
Berlin, Germany