Excluir linhas mediante condições

Question

Bom dia povo,


seguinte, estou precisandod de uma Macro que exclua linhas na seguinte condição:

* Se na COLUNA A conter a palavra NAO, exclua essa linha, e as outras linhas precisam se agrupar

Tipo.. é um excluir linha normal... só que eu não consigo fazer com que as linhas que ficam no arquivo "subam"/se agrupem...

alguem aí pode me ajudar?

Answer 1

bom pessoal... eu fiz de outra forma que funcionou perfeitamente:

 

Sub Excluir_Inativos()

' Excluir Inativos

Range("A1:A65000").Select

Dim w As Range
Dim faixa As Range

Set faixa = Selection
    Dim criterio As String
        criterio = "encargos inss"
        For Each w In faixa
            If InStr(1, w.Value2, criterio) <> 0 Then
                w.Activate
                ActiveCell.EntireRow.Delete
                Call Excluir_Inativos
                Exit Sub
            End If
        Next
Range("A1").Select
End Sub

Abs

Answer 2

bom pessoal... eu fiz de outra forma que funcionou perfeitamente:

 

 

Sub Excluir_Inativos()

' Excluir Inativos

Range("A1:A65000").Select

Dim w As Range
Dim faixa As Range

Set faixa = Selection
    Dim criterio As String
        criterio = "INATIVO"
        For Each w In faixa
            If InStr(1, w.Value2, criterio) <> 0 Then
                w.Activate
                ActiveCell.EntireRow.Delete
                Call Excluir_Inativos
                Exit Sub
            End If
        Next
Range("A1").Select
End Sub

Abs

 

fiz uma correção