Bom dia!
código abaixo busca pelo número "1" em todas as linhas da coluna c, quando encontrada oculta a segunda linha abaixo del.
Gostaria de substituir "1" ( um ) por <>"" ( diferente de vazio ou se preenchido )
Quebrando a cabeça aqui...
Código escrito pelo amigo EDERSONARRUDA2 de outro forum.

S

ub OCULTAR()

Sheets("Plan1").Cells.EntireRow.Hidden = False
Y = 1

denovo:
Set w = Sheets("Plan1").Range("c" & Y & ":a65000").Find(1, lookat:=xlWhole)
If w Is Nothing Then
Exit Sub
Else
Y = w.Row + 2

If Sheets("Plan1").Range("c" & Y).Value <> 1 Then
Sheets("Plan1").Rows(Y & ":" & Y).EntireRow.Hidden = True
End If
GoTo denovo:
End If

End Sub