eğer boşsa formül ile satır gizleme

[carpediems]

sayın üstadlarım merhaba.

ekteki dosyada a31 hücresine rakam girdiğimde üstteki hücreler 1 sayı azalıyor. bu durumda a2 satırından 0 olan değerin bulunduğu satıra kadar formül yardımıyla (makrosuz) gizlensin istiyorum.

ekteki bilgiler daha aydınlatıcı. yardım ederseniz sevinirim.



http://www.dosya.tc/server24/YsxorX/yard_ml_tfen.xls.html

 

[bzace]

Hayırlı akşamlar,
Bu işlemi makrosuz yapamazsınız.
Şu şekilde isterseniz kullanabilirsiniz.

Sub gizle()
    Dim Ns As Long
    For Ns = 2 To 31
        If Cells(Ns, "A") < 0 And Cells(Ns, "A") <> "" Then
            Rows(Ns).Hidden = True
        End If
    Next
End Sub

 

[carpediems]

Hayırlı akşamlar,
Bu işlemi makrosuz yapamazsınız.
Şu şekilde isterseniz kullanabilirsiniz.

Sub gizle()
    Dim Ns As Long
    For Ns = 2 To 31
        If Cells(Ns, "A") < 0 And Cells(Ns, "A") <> "" Then
            Rows(Ns).Hidden = True
        End If
    Next
End Sub

Çok teşekkür ederim. Allah razı olsun. İyi akşamlar.