insert a new column based on conditions

[BORUCH]

hi

i would like an excel macro that would insert a new column to the left of the selected cell only if its not blank for ex,

if i'm selecting cell A1 and cell B1 is blank then it should do nothing, if cell B1 has data in it then it should insert a new column in between column A and column B

 

[Joe4]

Try this:

Sub MyColInsert()
    If ActiveCell.Offset(0, 1) <> "" Then
        Columns(ActiveCell.Offset(0, 1).Column).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End Sub

 

[BORUCH]

I would also like that if it needs to insert a column, it should make sure that the column inserted is formatted as general not as text or any other format

Thanks

 

[Joe4]

Pretty simple modification:

Sub MyColInsert()
    If ActiveCell.Offset(0, 1) <> "" Then
        Columns(ActiveCell.Offset(0, 1).Column).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Columns(ActiveCell.Offset(0, 1).Column).NumberFormat = "General"
    End If
End Sub