Exception to a rule within a Macro

[Livin404]

Greetings, I have the macro below which works perfectly in removing rows if a column contains specific text. I would like to add an exception to the rule. If I have "B737", "A310", "B767" , or "B777" in Column C I would like those rows NOT to be removed if otherwise would be removed based on the macro: Thank you,

Sub Delete_locals()
With ActiveSheet
.AutoFilterMode = False
With Range("H1", Range("H" & Rows.Count).End(xlUp))
.AutoFilter 1, "*CHS*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
With ActiveSheet
.AutoFilterMode = False
With Range("H1", Range("H" & Rows.Count).End(xlUp))
.AutoFilter 1, "*777*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
End Sub

 

[Peter_SSs]

No answer to my question about macro buttons?

You now continue to talk about aircraft. I have no idea what that relates to or what column that is in. Assume your helpers know nothing about your data and layout. Make it clear for them. As 6StringJazzer has alluded to several times already in the thread, some sample data (& expected results) would be very helpful! XL2BB

Yet another new concept has now been introduced: Hidden values in column C. Again we know nothing about that that.

 

[Livin404]

Sub Delete_locals()
    Dim rngExclude As Range
   
    With ActiveSheet
        .AutoFilterMode = False
        With Range("C1", Range("C" & Rows.Count).End(xlUp))
            .AutoFilter 1, Array("B737", "A310", "B767", "B777"), Operator:=xlFilterValues
            On Error Resume Next
            Set rngExclude = .Offset(1).SpecialCells(12).EntireRow
        End With
        .AutoFilterMode = False
       
        With Range("H1", Range("H" & Rows.Count).End(xlUp))
            .AutoFilter 1, Array("*CHS*", "*777*"), Operator:=xlFilterValues
            On Error Resume Next
            rngExclude.Hidden = True
            .Offset(1).SpecialCells(12).EntireRow.Delete
        End With
        .AutoFilterMode = False
    End With
   
End Sub

Thank you I went with your response in the end. I had to create another macro just to clean Column C up. Below is the macro I am referring to. Thank you and have a nice weekend.

Sub remove_hidden_Values_ColumnnC()
With ActiveSheet
For Each Cell In Range("C1", Range("C" & Rows.Count).End(xlUp))
        Cell.Value = Trim(Replace(Cell.Value, Chr(160), Chr(32)))
    Next
    End With
End Sub

 

[Livin404]

Thank you everyone for your help. I know I can be trying, but I am doing my best. After about 8 to 10 more hours working on it, I finally got 'Alpha Frog's" suggestion to work, and it works great? I just had to add another macro before it. I got my data from a website, and some Columns end up having hidden values in. The macro I used was.

Sub remove_hidden_Values_ColumnnC()
With ActiveSheet
For Each Cell In Range("C1", Range("C" & Rows.Count).End(xlUp))
        Cell.Value = Trim(Replace(Cell.Value, Chr(160), Chr(32)))
    Next
    End With
End Sub