Hücle Gizlemeye Formül Girme

[karizmax]

Arkadaşlar bu şekilde bir formül var

For Each t In Range("N2:N2000").Cells
If t.Value < 5000 Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t


n2 den n 2000 kadar olan hücreleri 5000 den küçük ise gizliyor
bu uzun zaman aldığında daha değişik bir formül yada
n2-n2000 arasındaki dolu hücrelere bak, sadece onlarla ilgili gizleme işlemini yap nasıl diyebilirim.
İlginiz için şimdiden tşk ederim

 

[usubaykan]

Merhaba;

Kodunuzu aşağıdaki şekilde değiştirip deneyiniz.

For Each t In Range("N2:N" & Range("N65536").End(3).Row)
If t <> "" Then
If t.Value < 5000 Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
End If
Next
End Sub

 

[karizmax]

Tşk ederim

 

[usubaykan]

Rica ederim ;-)

 

[karizmax]

ustam birşey daha sormak istiyorum N2-N2000 arasında formül var formül sonucu '0' olan değerler var onlarada bakmadan geçsin direk gizlesin nasıl yapabiliriz...

N2 ile N2000 arası örneğin Formül sonucuna göre N200 den sonrası 0
zaman kaybetmemesi açısından formül sonucu 0 ise direk gizle nasıl deris

 

[usubaykan]

Merhaba;

If t <> "" Then

kodu

If t = 0 Or t <> "" Then

Şeklinde düzenlerseniz istediğiniz sonuca ulaşabilirsiniz.

 

[karizmax]

İlginiz için teşekkür ederim Örnek dosya ile bunu yapabilirmizin
Yardımcı olursanız çok seviinirim..


Açıklama İçerisinde.