Boa noite.
Alguém pode customizar o código: ?
Sub oculta()
'
Dim faixa As Range
Dim celula As Range
Set faixa = Range("A1:A100")
For Each celula In faixa
Rows(celula.Row).Select
Selection.EntireRow.Hidden
= (celula.Value = "X")
Next
End Sub
Explicando:
Quando executar a macro, todas as linhas que a céluna da coluna "A" conter "X" ficarão ocultas.
O Problema é que eu uso em cima de uma planilha com no máximo 500 linhas, mas ao executar a macro o excel seleciona linha por linha e vai ocultando onde tem o "X".
Queria algo mais rapido, que não precise ir linha por linha.
Na coluna A eu irei inserir fórmulas pois em uma unica planilha listo mais de um tipo de relatório e em alguns pode conter 400 linhas e em outros somente uma linha, por isso quero a macro que oculte sozinho.
Obrigado!