Boa tarde Cristiano

Eu já achei na Rede vários códigos que ocultam linhas/colunas com determinado valor.

Mas confesso que embora quem escreveu os códigos sabem bem mais que eu, utilizo uma maneira mais simples, porque tive alguns problemas com as que eu achei.

Até tenho um tópico para tentar resolver.

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=18326

Eu colocaria essa macro para ocultar.

Sub Reexibe_Oculta()
    
    Rows("1:10").Select
    Selection.EntireRow.Hidden = False

    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-6]="""","""",1)"
    Selection.Copy
    Range("G2:G9").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Range("G1:G9").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Hidden = True
End Sub

carlosrgs, muito obrigado.

Entretanto quando todas as linhas são preenchidas, não restando espaços em branco, surge um erro na penultima linha do código:
Selection.SpecialCells(xlCellTypeBlanks).Select

Alguém sabe como resolver?

Cristiano,

Veja se atende. Só não entendi em qual das plan vc vai executar a macro, mas isso é fácil de muda no código.

Abs!

Agora funcionou!!! Muito obrigado!!!