none
Excluir linhas mediante condições RRS feed

  • Pergunta

  • 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?
    quinta-feira, 22 de setembro de 2011 13:03

Respostas

  • 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

    sexta-feira, 23 de setembro de 2011 10:05

Todas as Respostas

  • 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

    sexta-feira, 23 de setembro de 2011 10:05
  • 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
    sábado, 24 de setembro de 2011 03:16