Sonucu sıfır olan hücrelerin satırı gizlenirmi

[hakpin]

Merhaba arkadaşlar;
Ekte gönderdiğim excel sayfasındaki en son "Miktarı" sütunundaki satırlarda sonucu sıfır olan satırların sayfayı açtığımda gizlenmesini istiyorum.Eğer mümkün olursa çok minnete geçecek.Şimdiden teşekkür eder,iyi bayramlar dilerim.

 

[mehmett]

Dosynız ekte. Umarım istediğiniz gibi olmuştur.

 

[Ali]

Bir modüle aşağıdaki kodları ekleyin.

Sub auto_open()
For x = 23 To 47
If Cells(x, 2).Value = "0" Then Rows(x).Hidden = True
Next
End Sub

 

[hakpin]

Sonucu Sıfır olan hücrelerin gizlenmesi

Öncelikle ilgilendiğiniz için teşekkür ederim.Benim istediğim sayfa açıldığında "M" sütunundaki hücrelerden sıfır olan hücrelerinin satırlarının gizlenmesi idi ,Ayrıca Bu sayfa İstihkaklar adlı bir proğramın içinde çalışan sayfa ,ben içinden çıkarıp gönderdim size,tekrar bakarsanız sevinirim.Şimdiden teşekkür ederim.Kolay gelsin.

 

[hakpin]

Sonucu Sıfır olan hücrelerin gizlenmesi

Öncelikle ilgilendiğiniz için teşekkür ederim.Benim istediğim sayfa açıldığında "M" sütunundaki hücrelerden sıfır olan hücrelerinin satırlarının gizlenmesi idi ,Ayrıca Bu sayfa İstihkaklar adlı bir proğramın içinde çalışan sayfa ,ben içinden çıkarıp gönderdim size,tekrar bakarsanız sevinirim.Şimdiden teşekkür ederim.Kolay gelsin.

 

[orrhankaya]

Sayın Mehmett' in düzenlemesi sorunsuz çalışıyor. Ancak verilerden biri değiştiği zaman çalışır.

Aşağıdaki Kodu ilgili sayfanın kod sayfasına yapıştırın.
Sayfa aktifleşince çalışır. 13'ncü sütun yani M sütunu 23-47 satırları arasındaki sıfır değerli satırları gizler.

Private Sub Worksheet_Activate()
Rows("23:47").EntireRow.Hidden = False
For x = 23 To 47
If Cells(x, 13).Value = "0" Then Rows(x).Hidden = True
Next
End Sub

Bu kod içinde döngü olduğundan çalışması birkaç saniye sürer.
Hızlı çalışan bir şey istiyorsanız,
M23:M47 arasına otomatik süz ekleyin.
Önce tümünü süzün, sonra boş olmayanları süzün.
Bu işlemi sürekli yapmamak için makro kaydedin. Makronuz ise sayfa aktifleşince çalışsın.

 

[hakpin]

Orhan bey ellerinize sağlık.tam istediğim gibi olmuş,ayrıca yavaşta çalışmıyor,çok teşekkür eder,hayırlı bayramlar dilerm.

 

[cqners]

Sn. Mehmett Bey'e ait örnek dosya hem çok hızlı hemde isteğe uygun çalışmakta.


Saygılarımla;
C.SARIGÜL