Este fórum está sendo desativado

[WLOPES]

- Olá a todos.
Como já falei antes tive que voltar a usar Excel mais a fundo e relembrar o VBA Excel para resolver alguns problemas herdados...
Antes de começar quero agradecer ao amigo Parkeless pela ajuda anterior.
O problema agora é o seguinte: herdei diversas planilhas de uma pessoa um pouco sem organização e esta planilha em particular eu precisei apresentar e estava com alguns erros. Fiz as correções na mão...editei umas 200 linhas na marra.
Pensei em um código para automatizar o processo pois já vi que tem muitas outras iguais.
Preciso eliminar linhas da planilha que o valor da celula C seja diferente de 1. Seria começar na linha 3, verificar a celula C. Se celula C diferente de 1, eliminar a linha e pular para a próxima até ao fim da plan. Já formatei a maioria das planilhas para ter esse mesmo formato.
Poderiam me ajudar?
Segue em anexo um pequeno exemplo, coloquei poucas linhas para visualizar. As que eu tenho são bem maiores mas isso eu me viro, só queria a rotina de loop para apagar a linha.
Agradeço antecipadamente pela atenção.
Abs.

[Reinaldo]

Teste/experimente

Código: Selecionar todos

Sub Elim_gualaHum()
' Macro destinada a eliminar as linhas
' onde a celula na coluna for igual a 1
' ==========================================
'Altere para o nome de sua planilha
Dim Final As Long, Linha As Long
With Sheets("Plan1")
' Variável final recebe o número da última linha na coluna A
Final = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
' Comando (Loop) para percorrer todas as linhas da planilha de baixo para cima
    For Linha = Final To 3 Step -1
    'Verifica se o valor da celula é Hum (1)
        If .Cells(Linha, "C") = 1 Then
           ' Comando para deletar a linha
             .Rows(Linha & ":" & Linha).Delete
        End If
    'If Linha > Final Then Exit Sub
    Next
End With
End Sub

[WLOPES]

- Amigo Reinaldo, boa tarde.
Fiz uma modificação no teu código e funcionou maravilhosamente bem.
O que quero é eliminar linhas onde a célula C é diferente de 1, o teu código elimina a linha que a célula C é igual a 1.
Uma pequena alteração no teu grandioso código.
Muito obrigado pela ajuda.
Abs e um 2016 repleto de muitas conquistas com as bênçãos de Deus.