sonucu sıfır olan sütunları gizlemek istiyorum

[sdegirmenci]

Değerki Hocalarım Merhaba;
Forum içinde araştırdım ama tam sonuç alamadım.Ekteki dosyamda göreceğiniz gibi , "L" Sütunundan "AL" sütununa kadar 25.satırdaki sonuçları sıfır olan sütunları sayfa aktif olfuğunda gizlenmesini istiyorum. Yardımlarınız için çok teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Sub Auto_Open()
Dim hcr As Range
If ActiveSheet.Name <> "muhFaturaAction" Then Exit Sub
For Each hcr In Sheets("muhFaturaAction").Range("L25:AL25")
    hcr.EntireColumn.Hidden = False
    If hcr.Value = 0 Or hcr.Value = "" Then hcr.EntireColumn.Hidden = True
Next
End Sub

 

[sdegirmenci]

Kıymetli Hocam Evren GİZLEN;
Çok teşekkür ederim.Tam istediğim gibi.Her zamanki gibi nezaketinizi gösterip hemen cevap verdiniz.İşleriniz kolay gelsin.Hoşçakalın

 

[Orion1]

Kıymetli Hocam Evren GİZLEN;
Çok teşekkür ederim.Tam istediğim gibi.Her zamanki gibi nezaketinizi gösterip hemen cevap verdiniz.İşleriniz kolay gelsin.Hoşçakalın

Rica ederim.
İyi çalışmalar.