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.
Bacana o usuário acima manda o userform vazia kkkkkkk...
Não se trata de Userform.
Eu faria assim:
Sub Oculta_Linha()
Dim faixa As Range
Dim celula As Range
For x = 50 To 1 Step -1
If UCase(Cells(x, 1).Value) = UCase("x") Then
Rows(x & ":" & x).Select
Selection.Delete Shift:=xlUp ' = (celula.Value = "X")
End If
Next
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Legal Reinaldo.
Valeu.
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Bacana o usuário acima manda o userform vazia kkkkkkk...
???
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.