Using IF statement in Macro

[Tim in Toronto]

Hi Everyone,

I'm having a hard time figuring out a simple thing. Maybe I'm over thinking it. I simply want the macro to see if the word "FALSE" exists in column I, and if so then delete the column. Failing that, I just want it to return to cell A1. Tain't working. Any ideas on what I'm doing wrong here?

Range("I1").Select

If ActiveCell.Value = "FALSE" Then
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
Else
Range("A1").Select


End If

Tim

 

[Michael M]

Hi Tim
Your Macro is only checking Range "I1" for the FALSE
You need to check the entire range, eg, Range ("I1:I100).Select
It might be easier if you set your last used row and then did the search over that range.

Sub delete()
Dim r As Long, lrow As Long
Application.ScreenUpdating = False
lrow = Worksheets("sheetname").Cells(Rows.Count, "columnname").End(xlUp).Row
For r = lrow To 10 Step -1
If Range("I" & r).Value = "FALSE" Then
columns.entireColumn.Delete = True
End If
Next r
End Sub

Regards
Michael M

 

[Peter_SSs]

Tim

See if this is it:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> DelColI()<br>    <SPAN style="color:#00007F">Dim</SPAN> f <SPAN style="color:#00007F">As</SPAN> Range<br>    <br>    <SPAN style="color:#00007F">Set</SPAN> f = Range("I:I").Find(What:="FALSE")<br>    <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> f <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> f.EntireColumn.Delete<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Michael M]

Hi Peter
Always an easier way to skin the cat isn't there.
You can see my code has a ways to go to get to yours, but if it works I s'pose

5mm rain in 2 months out here.!!
Regards
Michael M

 

[Tim in Toronto]

Peter,

If anyone hasn't told you lately, you're a genious Thank you so much! That does exactly what I want it to do.

Keep on Excelerating!
Tim