Excel código VBA EXCEL (excluir varias linhas baseadas se uma certa palavra existe)

[Gabriel Gallonetti]

Preciso de uma ajuda com um código VBA, o seu objetivo é excluir linhas da minha planilha baseado se ela tem ou não as palavras (Filial) ou então a palavra (Financéira)

esse é o esboço que estou tentando utilizar mas mesmo assim ele está dando erros demais 

    Next
    For Each cell In Range("A1:A1000")
    If cell = "Filial" Then Rows(cell.Rows).Delete
    Next
    For Each cell In Range("A2:A1000")
    If cell = "Financéira" Then Rows(cell.Rows).Delete
    Next
    For Each cell In Range("A2:A1000")
    If cell = "Total" Then Rows(cell.Ros).Delete

[Zain Majzoub]

@Gabriel Gallonetti oi Gabriel, conseguiu achar a resposta disso? Estou com a mesma dúvida, mas no meu caso eu preciso ocultar as linhas ao invés de remover, e precisam ser ocultadas baseadas em um resultado de uma fórmula de tal célula. Você tem alguma ideia de como eu faço isso?

[Midori]

O correto seria usar cell.Row para pegar a linha de cell e não Rows (com s) que retorna um objeto range. Para listar as linhas e procurar as palavras pode ser só com um loop. Veja se assim resolve,

 

Sub ExcluiLinha()
    Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [A1:A1000]
        
    For Linha = Area.Rows.Count To 1 Step -1
        If Area(Linha) = "Filial" _
        Or Area(Linha) = "Financeira" Then
            Area(Linha).EntireRow.Delete
        End If
    Next Linha
End Sub

 

[Gabriel Gallonetti]

@Midori putz, eu tentei rodar esse código e mesmo assim não foi

[Midori]

@Gabriel Gallonetti Não foi como? Deu algum erro? Dê mais detalhes. O código vai excluir todas as linhas do range A1:A1000 com o texto Filial ou Financeira.

[Gabriel Gallonetti]

@Midori Boa tarde Midori, simplesmente o código não deu nada, tipo nada aconteceu vou até rever pra ver se foi algo que eu não ativei ou algo assim.

[Midori]

@Gabriel Gallonetti Então na coluna da sua planilha não tem os texto que a macro procurar que são Filial e Financeira (e não Financéira com acento).

[Gabriel Gallonetti]

@MidoriA planilha seria essa, na linha 9 está escrito Filial ali no cantinho, isso não contaria? (eu pergunto porque realmente comecei agora a aprender VBA.

[Midori]

@Gabriel Gallonetti Só com a imagem não dá para saber exatamente o formato dessa célula. É só "Filial" ou "Filial: TRANSPORTES LTDA-ES"? Isso faz diferença porque se for o segundo caso o código não deve procurar o texto exato, mas a posição dele na célula (isso pode ser feito com a função InStr). E a macro está procurando na coluna A e parece que deve ser na B.

[Gabriel Gallonetti]

@Midori Opa, agora que voce falou sim é na A mesmo, seria achar o texto inteiro então? porque sim seria Filial(...), vou tentar colocar o texto todo lá e mudar a coluna e volto aqui.

@Midori Muito obrigado, agora funcionou.!!

@MidoriBoa tarde, teria como você me ajudar só mais uma vez, aquele caso que você me disse é real eu tenho que pesquisar por todas as palavras que apareceriam na linha, porém desse modo o VBA mesmo me impossibilita de construir mais que 25 linhas, teria alguma forma de procurar somente pela palavra ou será que eu posso ficar construindo varias sub, para assim fazer varias linhas?