Excel VBA excluir linhas que contém de 0 à 180

[jcgmcs]

Ajuda...

VBA na "Plan7" Clicar no botão ele excluí linhas na coluna "I" que contém números de 0 à 180.

[Midori]

Este tópico deve ajudar,

 

Aplique o mesmo método no loop. O critério será If Valor >= 0 And Valor <= 180.

 

https://www.clubedohardware.com.br/forums/topic/1563307-código-vba-excel-excluir-varias-linhas-baseadas-se-uma-certa-palavra-existe

[jcgmcs]

Midori bom dia!

Seria isso à fazer? Tá dando erro...

 

[Midori]

É quase isso, só faltou atribuir o valor.

 

Assim seu código está testando uma variável com o valor sempre zero já que no VBA esse é o padrão para as numéricas.

 

Declare Valor, sugiro Long, e faça a atribuição antes do If, assim: Valor = Area(Linha).Value.

 

De qualquer forma não devia acontecer erro. Mostre a mensagem que aparece caso continue.

[jcgmcs]

Midori, agora até funcionou mas por favor, se você puder dar uma revisada nesses códigos eu agradeço porque processo tá muito demorado pra processar apenas 200 linhas e tela fica piscando... No meu projeto real será até 5.000 linhas pra fazer exclusões tdeu...

VBA Impressão - VBA excluir linhas que contém de 0 à 180_Por Midori.xls

[Midori]

Para deixar o processo mais rápido é melhor ordenar a tabela com base na coluna I e depois identificar onde começa a linha no critério para apagar tudo de uma vez.

[jcgmcs]

você revendo todos meus código ae não consegue melhorar alguma coisa...??

[Midori]

A melhoria pode ser na questão da velocidade fazendo como comentei, p.ex,

 

Sub ExcUlt180dias()
    Dim Area    As Range
    Dim Coluna  As Range
    Dim Linha   As Long
    Dim Conta   As Long
    
    Set Area = [B5:N204]
    Set Coluna = Area.Columns(8)
    Conta = WorksheetFunction.CountIf(Coluna, "<=180")
    
    If Conta > 0 Then
        Linha = Coluna.Rows.Count - Conta
        Call Area.Sort(Coluna, xlDescending)
        Call Area.Rows(Linha + 1).Resize(Conta).Clear
        Call MsgBox(Conta & " registros excluídos", vbInformation)
    End If
End Sub

 

[jcgmcs]

beleza..!!

Mas só mais duas questões..

Substiuí o código e ao clicar no botão funcionou apenas uma vez e não mais mesmo fazendo o recarregamento dos dados o botão parece estar travado.

Outra coisa.. na primeira vez q funcionou, ele alterou a fonte de varias linhas ficando estranho.. até algumas com dd/mm/aa ficaram só o Ano...

[Midori]

Se o range atribuído for maior que a tabela, não vai funcionar. Então por exemplo no código coloquei B5:N204, supondo que a tabela tenha dados até a linha 100 ela seria menor que o range atribuído. No caso da fonte, deve ser questão de formatação. Para manter a configuração aplique ClearContents no lugar de Clear.

[jcgmcs]

Jóiaa... Funcionando belezinha!! rsrs

obrigado Midori..