Moving colC to colA
 

I want to move colC to ColA. I also want colA to not be destroyed. This is
what I'm doing so far. Thanks in advance.


Set objRange = objWorksheet.Range("C1").EntireColumn
objRange.Copy

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("A1")
objWorksheet.Paste (objRange)

Moving colC to colA
 

Mike, this is straight from the macro recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/13/2007 by cchickering
'

'
Columns("C:C").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End Sub

And this is the same code cleaned up:
Sub Macro1()
Columns("C:C").Cut
Columns("A:A").Insert Shift:=xlToRight
End Sub
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

I want to move colC to ColA. I also want colA to not be destroyed. This is
what I'm doing so far. Thanks in advance.


Set objRange = objWorksheet.Range("C1").EntireColumn
objRange.Copy

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("A1")
objWorksheet.Paste (objRange)

Moving colC to colA
 

How would you wirte that in VBScript?

"Charles Chickering" wrote:

Mike, this is straight from the macro recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/13/2007 by cchickering
'

'
Columns("C:C").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End Sub

And this is the same code cleaned up:
Sub Macro1()
Columns("C:C").Cut
Columns("A:A").Insert Shift:=xlToRight
End Sub
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

I want to move colC to ColA. I also want colA to not be destroyed. This is
what I'm doing so far. Thanks in advance.


Set objRange = objWorksheet.Range("C1").EntireColumn
objRange.Copy

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("A1")
objWorksheet.Paste (objRange)

Moving colC to colA
 

Sub MoveC()
Dim eApp As Object
Dim WB As Object
Dim r As Object
Set eApp = CreateObject(Excel.Application)
Set WB = eApp.Workbooks.Add
WB.Worksheets(1).Columns("C:C").Cut
WB.Worksheets(1).Columns("A:A").Insert Shift:=xlToRight
End Sub

Something along those lines should get a scripting file to work. I'm not
sure exactly what the rest of your code looks like though.
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

How would you wirte that in VBScript?

"Charles Chickering" wrote:

Mike, this is straight from the macro recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/13/2007 by cchickering
'

'
Columns("C:C").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End Sub

And this is the same code cleaned up:
Sub Macro1()
Columns("C:C").Cut
Columns("A:A").Insert Shift:=xlToRight
End Sub
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

I want to move colC to ColA. I also want colA to not be destroyed. This is
what I'm doing so far. Thanks in advance.


Set objRange = objWorksheet.Range("C1").EntireColumn
objRange.Copy

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("A1")
objWorksheet.Paste (objRange)

Moving colC to colA
 

Ok that works fine.

"Charles Chickering" wrote:

Sub MoveC()
Dim eApp As Object
Dim WB As Object
Dim r As Object
Set eApp = CreateObject(Excel.Application)
Set WB = eApp.Workbooks.Add
WB.Worksheets(1).Columns("C:C").Cut
WB.Worksheets(1).Columns("A:A").Insert Shift:=xlToRight
End Sub

Something along those lines should get a scripting file to work. I'm not
sure exactly what the rest of your code looks like though.
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

How would you wirte that in VBScript?

"Charles Chickering" wrote:

Mike, this is straight from the macro recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/13/2007 by cchickering
'

'
Columns("C:C").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
End Sub

And this is the same code cleaned up:
Sub Macro1()
Columns("C:C").Cut
Columns("A:A").Insert Shift:=xlToRight
End Sub
--
Charles Chickering

"A good example is twice the value of good advice."


"Mike" wrote:

I want to move colC to ColA. I also want colA to not be destroyed. This is
what I'm doing so far. Thanks in advance.


Set objRange = objWorksheet.Range("C1").EntireColumn
objRange.Copy

Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

Set objRange = objWorksheet.Range("A1")
objWorksheet.Paste (objRange)