Inserting columns

[FinChase]

I have a number of spreadsheets where I need to go through and insert two
columns at 26 places in each spreadsheet. I'm trying to make this a little
faster by writing a VBA macro that I can run with keystrokes. What I tried
to do was tell it select the column that I am currently in and insert two
columns to the right of that column. The problem I am having is that it is
inserting the columns to the left instead of the right. I can't figure out
why. Here's the code I've written:

With ActiveCell
.EntireColumn.Select
End With
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight

Any help would be appreciated.

[Don Guillett]

try this but you really don't have to use the active cell.

Sub inserttwocolums()
x = ActiveCell.Row
y = ActiveCell.Column
Range(Cells(x, y), Cells(x, y + 1)).EntireColumn.Insert
End Sub


--
Don Guillett
SalesAid Software
[email protected]
"FinChase" <[email protected]> wrote in message
news:[email protected]...
>I have a number of spreadsheets where I need to go through and insert two
> columns at 26 places in each spreadsheet. I'm trying to make this a
> little
> faster by writing a VBA macro that I can run with keystrokes. What I
> tried
> to do was tell it select the column that I am currently in and insert two
> columns to the right of that column. The problem I am having is that it
> is
> inserting the columns to the left instead of the right. I can't figure
> out
> why. Here's the code I've written:
>
> With ActiveCell
> .EntireColumn.Select
> End With
> Selection.Insert Shift:=xlToRight
> Selection.Insert Shift:=xlToRight
>
> Any help would be appreciated.

[Norman Jones]

Hi Fin Chase.



--
---
Regards,
Norman



"FinChase" <[email protected]> wrote in message
news:[email protected]...
>I have a number of spreadsheets where I need to go through and insert two
> columns at 26 places in each spreadsheet. I'm trying to make this a
> little
> faster by writing a VBA macro that I can run with keystrokes. What I
> tried
> to do was tell it select the column that I am currently in and insert two
> columns to the right of that column. The problem I am having is that it
> is
> inserting the columns to the left instead of the right. I can't figure
> out
> why. Here's the code I've written:
>
> With ActiveCell
> .EntireColumn.Select
> End With
> Selection.Insert Shift:=xlToRight
> Selection.Insert Shift:=xlToRight
>
> Any help would be appreciated.

[Dave Peterson]

Either select the cell to the right either manually or via code.

activecell.offset(0,1).resize(1,2).entirecolumn.insert

FinChase wrote:
>
> I have a number of spreadsheets where I need to go through and insert two
> columns at 26 places in each spreadsheet. I'm trying to make this a little
> faster by writing a VBA macro that I can run with keystrokes. What I tried
> to do was tell it select the column that I am currently in and insert two
> columns to the right of that column. The problem I am having is that it is
> inserting the columns to the left instead of the right. I can't figure out
> why. Here's the code I've written:
>
> With ActiveCell
> .EntireColumn.Select
> End With
> Selection.Insert Shift:=xlToRight
> Selection.Insert Shift:=xlToRight
>
> Any help would be appreciated.

--

Dave Peterson

[Norman Jones]

Hi FinChase,

Try:
ActiveCell(1, 2).Resize(1, 2).EntireColumn.Insert

If the 26 positions can be identified by a given rule, then your macro could
be adapred to insert all the required columns on each worksheet.


---
Regards,
Norman

"FinChase" <[email protected]> wrote in message
news:[email protected]...
>I have a number of spreadsheets where I need to go through and insert two
> columns at 26 places in each spreadsheet. I'm trying to make this a
> little
> faster by writing a VBA macro that I can run with keystrokes. What I
> tried
> to do was tell it select the column that I am currently in and insert two
> columns to the right of that column. The problem I am having is that it
> is
> inserting the columns to the left instead of the right. I can't figure
> out
> why. Here's the code I've written:
>
> With ActiveCell
> .EntireColumn.Select
> End With
> Selection.Insert Shift:=xlToRight
> Selection.Insert Shift:=xlToRight
>
> Any help would be appreciated.

[rkappini]

Is it possible to insert a column into the first row programmatically using C#. I tried using
wsSales.Columns.EntireColumn.Insert(Excel.XlInsertShiftDirection.xlShiftToRight);

but it does not work. I even tried using a range and then inserting a column before that range but that didn't work either. Please help!