Help Converting Macro to Vbscript

[krammer]

I'm having a hard time converting this excel macro into vbscript...it cuts column C and inserts the cells into column B, shifting column B down to C.

Sub Move_Columns()


    Columns("C:C").Select

    Selection.Cut

    Columns("B:B").Select

    Selection.Insert Shift:=xlToRight

End Sub

I was thinking something similar to this:

objExcel.Columns("C:C").Cut

But I have not found anything on the web about this...can anyone help?

 

[tsuji]

[tt]'Let [blue]osheet[/blue] is the activesheet of the application.
with osheet
.Columns("C:C").Select
.application.Selection.Cut
.Columns("B:B").Select
.application.Selection.Insert -4161 'xlToRight=-4161
end with
[/tt]

 

[krammer]

Thanks tsuji. I will try that when I get in this morning...do you think there is a way to cut it down to 1 line?

 

[krammer]

I can do it like this:

    objExcel.Columns("C:C").Select
    objExcel.Application.Selection.Cut
    objExcel.Columns("B:B").Select
    objExcel.Selection.Insert -4161

There's gotta be a way to shorten it down to one line...

 

[krammer]

Got it down to two lines...

    objExcel.Columns("C:C").Cut
    objExcel.Columns("B:B").Insert -4161