VBA - Delete row if cell start with "this" or "that"

[kparadise]

Hello,

Looking for VBA code to put in my Module. I have Columns A:D which can have different amount of rows each time i run the code. What I am trying to do is to look in Column D, called "TYPE" and delete and row if the cell in Column D starts with either "Green-" or "Red-".

 

[kparadise]

I apologize, I meant to say, DELETE the row, if the cell DOES NOT start with "Green-" or "Red-".

 

[Joe4]

Assuming that your data starts on row 1, try this:

Sub DeleteMacro()

    Dim lRows As Long

'   Filter to only show "Green-" and "Red-" entries in Type column
    Range("A1").CurrentRegion.AutoFilter Field:=4, Criteria1:="=Green-", _
        Operator:=xlOr, Criteria2:="=Red-"

    Application.ScreenUpdating = False
        
'   Delete hidden rows
    For lRows = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If Cells(lRows, 1).EntireRow.Hidden = True Then Cells(lRows, 1).EntireRow.Delete
    Next lRows

    Application.ScreenUpdating = True
    
'   Remove filter
    ActiveSheet.UsedRange.AutoFilter
    
End Sub

 

[kparadise]

That works, that you. I changed it to "Green-*", because the cells just need to START with that.

 

[Joe4]

Excellent. Glad you were able to adapt it to work for you.