DeĞerİ Sifir Olan HÜcrelerİ Gİzleme

[86126]

Sorum başllıktan da anlaşılacağı gibi formül sonucu sıfır olan satırların gizlenmesi.
ayrıca dosyada göstermedim formül sonucu sıfır olan sutunları gizlemek için makro örneği istiyorum. yardımcı olursaız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre aşağıdaki kodları kullanabilirsiniz. İkinci koddaki 13 değeri "SARIMSAK" verisinden sonra toplam aldırdığınızı düşünerek verdiğim bir değerdir. Siz kendinize göre uyarlayınız. Umarım faydası olur.

Sub SIFIR_OLAN_SATIRLARI_GİZLE()
    Cells.EntireRow.Hidden = False
    For X = 8 To [A65536].End(3).Row
    If Cells(X, "G") = 0 Then Rows(X).EntireRow.Hidden = True
    Next
End Sub

Sub SIFIR_OLAN_SÜTUNLARI_GİZLE()
    Cells.EntireColumn.Hidden = False
    For X = 1 To [IV13].End(1).Column
    If Cells(13, X) <> "" And Cells(13, X) = 0 Then Columns(X).EntireColumn.Hidden = True
    Next
End Sub

 

[86126]

çok teşekkür ederim. ancak sutunlardada sıfır olan formül sonuçlarınıda gizlemek istiyorum onu nasıl yaparım. bununla ilgili göster gösterme butonu nasıl yaparım.

 

[86126]

Alttakİ Kodu AnlamamiŞtim Çok TeŞekkÜr. Sadece GÖster Makrosu Lazim.

 

[86126]

Bu iki macro nasıl birleştirebiliriz. Ayrıca sorum şu değer geldiğinde otomatik olarak gösterecekmi.

 

[Korhan Ayhan]

Selamlar,

Değerler tablonuza başka bir sayfadanmı geliyor?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

 

[86126]

sorunu yeni okudum.
formül sonuçları başka sayfadan geliyor.
bu nedenle otomatik olmasını istiyorum.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız dosyanızın benzeri bir örnek dosya ekleyebilirmisiniz.

 

[86126]

Örnek dosya ekte. İlgin için çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Sayfa2 de değişiklik yaptığınız anda Sayfa1 de güncelleme yapılacaktır. Umarım faydası olur.

 

[86126]

çok teşekkür ederim ellerine sağlık