Not sure what to call this Delete column if statment is true

[counterscc]

Hello, Here is what I am looking at and what I would like to do is, if Column B does not have ETA in it Delete that row. Any help with this would be greatly apprecaited. Thanks again!

Cloumn A
Row 1 = 12345
Row 2 = 98765
Row 3 = 54637

Column B
Row 1 = ETA
Row 2 = (blank)
Row 3 = ETA

 

[jss1234]

Sub deleterows()
Dim a As Long
For a = Range("A65536").End(xlUp).Row To 2 Step -1
    If Range("B" & a).Value <> "ETA" Then
        Rows(a).EntireRow.Delete
    End If
Next a
End Sub

 

[counterscc]

I must be doing something wrong. The column that would have the ETA in it is actually Column AC so I switched the "B" to "AC" I would like this to be built into a macro. Is there anything I need to do to do that? Thanks for your help!!

 

[jss1234]

Do you know how to create a macro? Just press Alt & F11. Then insert a module, and copy and paste the code into the module. This will create a macro for you. Then switch the "B" with "AC" and it should work as long as row 1 has headers, and column A always has data in it.

 

[counterscc]

It deletes the entire page

 

[jss1234]

Make sure that column AC contains "ETA" without spaces before, in the middle of,m or after the "ETA".

 

[jss1234]

Try This - it will get rid of extra spaces in the "ETA" cells:

Sub deleterows()
Dim a As Long
For a = Range("A65536").End(xlUp).Row To 2 Step -1
    If Trim(Range("AC" & a).Value) <> "ETA" Then
        Rows(a).EntireRow.Delete
    End If
Next a
End Sub

 

[counterscc]

Excellent thank you very much!!!!!!!!!!!!!!!!! You people here are the best!