Pessoal acabei usando macro, talvez nao seja o modo mais elegante

Sub ESCONDE()

Dim i As Integer
For i = 4 To 30
If Range("C" & i).Value = 0 Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True
Else
End If
Next i



End Sub

Sub exibe()

Dim i As Integer
For i = 4 To 30

Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = False


Next i



End Sub

Boa tarde

O que vc deseja só dá para fazer com macros, não existe ferramenta do Excel que faça isso.

[]s