Views

Histats

Vitrine

VBA Excel - Encontre critérios na célula e exclua a linha - Find Values Delete Rows

 Sub FindValueDeleteRow()

    Dim s As String, Count As Integer
    Let Application.ScreenUpdating = False
    Let s = "A"
    For Count = 1 To ActiveSheet.UsedRange.Rows.Count

        Set f = Cells.Find(s, LookIn:=xlValues)
        If Not f Is Nothing Then
            f.EntireRow.Delete    'Shift:=xlUp
            Let Application.ScreenUpdating = True
        End If
    Next Count
End Sub

Tags: Excel, VBA, find, values, delete, row, rows, 


Inline image 1

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...