Excel Erro VBA Botão de Macro

[Gabriel Gallonetti]

Boa tarde, eu estou com um problema no VBA, eu montei uma planilha (bem extensa, porque não consegui abreviar alguns comandos) e acabei criando ao total 20 sub no mesmo modulo e tentei configurar para o botão do macro, executar todos eles, porém ao clicar no botão alguns macros vão e outros macros não, segue em anexo alguns sub, e o macro que está no botão.

[AfonsoMira]

Boas @Gabriel Gallonetti ,

Poderia anexar o ficheiro?
Talvez consiga reduzir o seu código e remover o erro.

Obrigado.

 

[Midori]

@Gabriel Gallonetti Acho que devia tentar usar apenas uma sub com um critério. No primeiro print parece que quer excluir as linhas que tenham o texto "Total" (e no outro print o "Filial"). Se for isso você pode fazer assim,

 

For Linha = Area.Rows.Count To step - 1
    If InStr(Area(Linha), "Total") <> 0 Or _
        InStr(Area(Linha), "Filial") <> 0 Then
        Area(Linha).EntireRow.Delete
    End If
Next Linha

 

[Gabriel Gallonetti]

@AfonsoMira Novo Documento de Texto.txt Aí está o documento inteiro exatamente igual está na minha planilha.

@Midori Essa linha de código que você está me informando ela pesquisaria somente por essa palavra ou "Total" ou então a "Filial"?.

[Midori]

5 minutos atrás, Gabriel Gallonetti disse:

Essa linha de código que você está me informando ela pesquisaria somente por essa palavra ou "Total" ou então a "Filial"?.

A função InStr procura pela ocorrência de determinada palavra no texto, no código que postei é "Total" ou "Filial".

[Gabriel Gallonetti]

@Midori Caso então eu usasse esse código ele buscaria por essa palavra no texto e se ela estivesse lá, ele apagaria a linha certo? eu só teria que indicar a coluna então certo? irei testar assim.

[Gabriel Gallonetti]

@Midori Esse é o codigo que você me passou e eu montei em cima do meu que ja tinha seria isso mesmo? pois não esta funcionando.

[Midori]

@Gabriel Gallonetti Faltou o For. Nesse print só tem o Next Linha.

[Gabriel Gallonetti]

@Midori Ficou assim e mesmo desse jeito ele não esta dando resultado nenhum, e colocando as informações de antes essas:

Dim Area    As Range
    Dim Linha   As Long

 

Também não da resultado algum.

[Midori]

@Gabriel Gallonetti Antes do Step tem o número 1, assim vai funcionar,

 

Sub ExcluirLinha()
    Dim Linha   As Long
    Dim Area    As Range

    Set Area = [B1:B1000]

    For Linha = Area.Rows.Count To 1 Step -1
        If InStr(Area(Linha), "Total") <> 0 Or _
            InStr(Area(Linha), "Filial") <> 0 Then
                Area(Linha).EntireRow.Delete
        End If
    Next Linha
End Sub