Boa tarde Pessoal.
Achei esse código na internet.
Sub Oculta_Linha()
Dim faixa As Range
Dim celula As Range
Set faixa = Range("A1:A50")
For Each celula In faixa
Rows(celula.Row).Select
Selection.EntireRow.Hidden = (celula.Value = "X")
Next
End Sub
Só por curiosidade eu tentei em vez de ocultar excluir as linhas deixando o código assim:
Sub Oculta_Linha()
Dim faixa As Range
Dim celula As Range
Set faixa = Range("A1:A50")
For Each celula In faixa
Rows(celula.Row).Select
Selection.Delete Shift:=xlUp = (celula.Value = "X")
Next
End Sub
Quase da certo, eu coloquei na seleção de A1 até A50, deixei 30 células com o Valor "X", e a macro exclui somente uns 8, nunca exclui a mesma quantidade.
Alguém sabe o porque ?
Obrigado!
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Postado : 13/10/2015 2:41 pm