Şarta Göre Satır Gizleyen Makro !!!

[mschumi]

Arkadaşlar Merhaba;
Kısaca, bir hücredeki değer 0 ve altında ise o satırı gizleyen makro koduna ihtiyacım var.
Örnek dosya ektedir.
Dosya da AK sütununda yer alan kalan değerleri 0 ve altında ise ona ait satır gizlensin.
Mesela AK3 hücresinde değer -1169 olduğu için o satırın gizlenmesi gerekiyor.

Yardımlarınızı rica ederim...

 

[Ali]

Aşağıda kodları bir butona bağlayıp çalıştırınız.

Sub gizle()
    Application.ScreenUpdating = False
        Dim i As Integer
            For i = 3 To 60
                If Cells(i, 37) <= 0 Then
            Rows(i).Hidden = True
        End If
   Next i
Application.ScreenUpdating = True
End Sub

 

[mschumi]

Ali Bey, çok teşekkür ederim. İyi Çalışmlar dilerim.

 

[mschumi]

Ali Bey eğer 60. satırdan sonra da hücre girilirse;
kod da ki 60 değerini 65536 satır yapsam olur mu ? For i = 3 To 60
bütün satırlar için olsun.

Denedim ama hata veriyor.

 

[Ali]

65536'ya kadar satırınız yok ise makronun daha uzun süreli çalışmasını engellemek için en son dolu satıra kadar döngünün çalışması daha sağlıklı olacaktır. Bu nedenle

Sub gizle()
    Application.ScreenUpdating = False
        Dim i As Integer
            For i = 3 To Range("AK65536").End(xlUp).Row
                If Cells(i, 37) <= 0 Then
            Rows(i).Hidden = True
        End If
   Next i
Application.ScreenUpdating = True
End Sub

şeklinde deneyiniz.