Excel Macro Question

[Mooslar]

Hello everybody,

I did some digging around the forum and couldn't find anything pertaining to my question. I have a macro that performs a huge of amount of maintenance on a particular file. However, because nothing is easy, the one of the worksheets will be missing a certain column under certain conditions. This causes the macro to fail. The only change I need to make to correct the problem is to insert a 'dummy' column in its place.

Is there a way I can have the macro read a certain cells value, and depending on whether or not a particular value is present, insert another column? I've tried creating if/else statements but with no luck.

Thanks.

 

[tonyyy]

Mooslar,

Welcome to the Board.

You might consider...

If Range("D1").Value <> "YourValue" Then Range("D1").EntireColumn.Insert

Of course, change the ranges to your particular range.

Cheers,

tonyyy

 

[rpaulson]

try this,

Sub do_it()
If Range("G1") = "" Then Columns(10).Insert Shift:=xlToRight
End Sub

it will insert a new column in column 10 if cell G1 is blank.
change column and cell reference as needed.

hth,

Ross

 

[V_Malkoti]

Something like this:

If Range("A2")=1 and Range("B2")=1 Then Range("D1").EntireColumn.Insert Shift:=xlShiftToRight

This checks value in A2 and B2 and inserts a column in place of column, shifting columns to the right.