GİZLE GÖSTER sorunu

[manisalı88]

Arkadaşlar merhaba
Ekte bulunan dosyada "GİZLE" düğmesine tıkladıgımda I6 ile I894 arasındaki sıfır olan satırları gizlesin. "GÖSTER" düğmesine tıkladıgımda ise gizlenen satırları göstersin.
bana yardımcı olabılır mısınız acaba

 

[manisalı88]

yardım edebilir misiniz

 

[dEdE]

Merhaba,
Aşağıdaki kodları dener misiniz?

Sub Gizle()
Application.ScreenUpdating = False
For i = 6 To 894
If Cells(i, "I").Value = 0 Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Sub Goster()
    Cells.EntireRow.Hidden = False
End Sub

 

[manisalı88]

cok tesekkur ederm elinize saglık