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

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Procure Valores e Delete Linhas:

 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,