Toplamı 0 Olan Sütunların Gizlenmesi

[mehmet76]

Korhan Bey Ekte Göndermiş Olduğum Firma Listesi İsimli Dosyada Yardımcı Olabilirmisiniz. Forum Sayfalarında Arama Yaptım Ama Buna Benzer Bir Kayıt Bulamadım.

 

[Vedat Özer]

Selamlar,

Araçlar/Seçenekler/sıfır değerlerin deki inleçi kaldırım tamam diyin

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Not: Lütfen sorularınızda kişi adı belirtmeyiniz. Genel olarak sormaya özen gösteriniz.


Boş bir modüle uygulayın.

Option Explicit
 
Sub TOPLAMI_SIFIR_OLAN_SÜTUNLARI_GİZLE()
    Dim Sütun As Byte
 
    Application.ScreenUpdating = False
 
    Cells.EntireColumn.Hidden = False
 
    For Sütun = 2 To 5
        If Cells(25, Sütun) = 0 Then
            Cells(25, Sütun).EntireColumn.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Ayrıca aşağıdaki koduda Sayfa1 kod bölümüne uygularsanız her filtrelemede kod otomatik çalışacaktır.

Private Sub Worksheet_Calculate()
    TOPLAMI_SIFIR_OLAN_SÜTUNLARI_GİZLE
End Sub

 

[mehmet76]

Çok Sağolun Teşekkürler.