Este fórum está sendo desativado

[alanisfcsm]

Bom dia!
É possível adaptar esse código para:
Buscar em uma coluna qualquer linha preenchida com 1 ocultar linha inteira abaixo dela , e continuar buscando.
Agradeço pela ajuda.


Sub OcultaLinB1()
Application.ScreenUpdating = False
For Each myCell In Sheets("Plan2").Range("C13:C61")
If myCell <> "" Then
myCell.EntireRow.Hidden = True
End If
Next myCell
Application.ScreenUpdating = True
End Sub

[EDERSONARRUDA2]

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


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

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

[alanisfcsm]

Muito obrigado!
Cara funcionou perfeitamente!
Queria te pedir mais um favor, eu fiz umas modificações... se eu quiser usar ">0" ou diferente de <>"" ao invés de "<> 1", como seria?
Segue planilha em anexo.
Novamente te agradeço!