vba macro swap two column values ?

[muhmath2002]

hi all
i need vba code with button browse file excel then swap multiple two column values
columns A B
columns C D
columns E F
then save changes in the same file
best regards

 

[offthelip]

try this;

Sub test()
For i = 1 To 5 Step 2
    lasta = Cells(Rows.Count, i).End(xlUp).Row
    ar = Range(Cells(1, i), Cells(lasta, i))
    Range(Cells(1, i), Cells(lasta, i)) = ""
    lastb = Cells(Rows.Count, i + 1).End(xlUp).Row
    br = Range(Cells(1, i + 1), Cells(lastb, i + 1))
    Range(Cells(1, i + 1), Cells(lastb, i + 1)) = ""
    Range(Cells(1, i), Cells(lastb, i)) = br
    Range(Cells(1, i + 1), Cells(lasta, i + 1)) = ar
Next i
ActiveWorkbook.Save
End Sub

 

[muhmath2002]

try this;

Sub test()
For i = 1 To 5 Step 2
    lasta = Cells(Rows.Count, i).End(xlUp).Row
    ar = Range(Cells(1, i), Cells(lasta, i))
    Range(Cells(1, i), Cells(lasta, i)) = ""
    lastb = Cells(Rows.Count, i + 1).End(xlUp).Row
    br = Range(Cells(1, i + 1), Cells(lastb, i + 1))
    Range(Cells(1, i + 1), Cells(lastb, i + 1)) = ""
    Range(Cells(1, i), Cells(lastb, i)) = br
    Range(Cells(1, i + 1), Cells(lasta, i + 1)) = ar
Next i
ActiveWorkbook.Save
End Sub

mr offthelip
big thanks for advance vba code
work perfectly

 

[Marc L]

Hi, according to Excel basics a VBA demonstration for starters :​

Sub Demo1()
    With ActiveSheet.UsedRange
        .Value = Application.Index(.Columns("A:F"), Evaluate("ROW(1:" & .Rows.Count & ")"), [{2,1,4,3,6,5}])
        .Parent.Parent.Save
    End With
End Sub

 

[muhmath2002]

Hi, according to Excel basics a VBA demonstration for starters :​

Sub Demo1()
    With ActiveSheet.UsedRange
        .Value = Application.Index(.Columns("A:F"), Evaluate("ROW(1:" & .Rows.Count & ")"), [{2,1,4,3,6,5}])
        .Parent.Parent.Save
    End With
End Sub

brother Mrac L
thanks for nice vba code it work perfectly
best wishes