Macro to delete row dependant on value of cell

[Jburgy]

Hello!

How would I go about setting up a macro to delete certain rows based on a value in cell I for example

So like: IF Column I = "Cancelled" THEN DELETE Row (Then go on to next row until every row is checked)


I'm new to macros, trying to learn but i'm struggling a bit, help is appreciated!

 

[My Aswer Is This]

Try this:

Sub Filter_Me_Please()
'Modified  8/16/2018  7:24:54 AM  EDT
Dim Lastrow As Long
Dim c As Long
Dim s As Variant
c = "9" 'Column Number Modify this to your need
s = "Cancelled" 'Saerch Value Modify to your need
Lastrow = Cells(Rows.Count, c).End(xlUp).Row
With ActiveSheet.Cells(1, c).Resize(Lastrow)
    .AutoFilter 1, s
    counter = .Columns(c).SpecialCells(xlCellTypeVisible).Count
    If counter > 1 Then
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Else
        MsgBox "No values found"
    End If
    .AutoFilter
End With
End Sub

 

[Jburgy]

Works perfectly thank you!!

Nicely laid out and nice descriptions, I think i could do this again for different purposes

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Yes I laid it out where maybe it would be easy to modify to your needs in another project.