Insert column

[Damo10]

Hi,

I would like a macro to insert a new column to the left of the selected cell but copy all the formulas and formats from column E

 

[cgendron]

step 1---If you want a macro, if this is something that will be repeated over and over again and in the same format, click on the developer tab and select "record macro". Then go through the steps to record the macro and save it...it should walk you through the steps to do this.

step 2---First insert a column where you will put your data. then highlight column E and right click copy. Then highlight where you want to place the column and right click and do a paste special and choose formulas and number formats.

If this is a one time thing then just follow step 2 above

 

[Damo10]

Hi,

I tried this before but it uses the specific cell references for where to insert the row and then when to paste the data from column E, the insert column could be on any column so the code needs to move to the selected cell.

 

[mikerickson]

Post the code that you got from the Recorder. It should be easy to change it to peg it to ActiveCell rather than a fixed column.

 

[Damo10]

Sub Insert()
    Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("E:E").Select
    Selection.Copy
    Columns("L:L").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("L1").Select
    Application.CutCopyMode = False
End Sub

 

[VoG]

Try

Sub NewCol()
Columns("E").Copy
ActiveCell.Offset(, -1).EntireColumn.Insert
With Cells(1, ActiveCell.Column - 1)
    .PasteSpecial Paste:=xlPasteFormulas
    .PasteSpecial Paste:=xlPasteFormats
End With
End Sub

 

[Damo10]

Great thanks, you guys are very helpfull