Delete row based on value

[ERed1]

Hi all,

I need some help trying to write a macro that will search Column A for the value "1" and delete that entire row when the Column A has a cell with a value of "1".

Thanks in advance for the help.

 

[My Aswer Is This]

Try this:

Sub Filter_Me_Please()
'Modified  10/16/2019  12:06:52 PM  EDT
Application.ScreenUpdating = False
Dim lastrow As Long
Dim c As Long
Dim s As Variant
c = 1 ' Column Number Modify this to your need
s = "1" 'Search 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
Application.ScreenUpdating = True
End Sub

 

[ERed1]

That worked, Thanks for the help!

 

[My Aswer Is This]

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

That worked, Thanks for the help!