Repeat until value not found in column

[LuisVilarMoreira]

Hello everybody

I need same help.

I need to delete rows with the value 0 in column B
I made this:

Columns("B:B").Select
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp

I works just fine for the first row with the 0 value.
I need to repeat for all the rows with the same condition (0 int the column B).

Best regards
Thank you all

Luís

 

[My Aswer Is This]

Try this:

Sub Delete_Rows()
'Modified  4/15/2019  6:39:28 AM  EDT
Application.ScreenUpdating = False
Dim lastrow As Long
Dim c As Long
Dim s As Variant
c = 2 ' Column Number Modify this to your need
s = 0 '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

 

[LuisVilarMoreira]

Thank you very much
It works fine.

Best regards
Luís

 

[My Aswer Is This]

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

Thank you very much
It works fine.

Best regards
Luís