boş sütunun otomatik gizlenmesi

[conter]

sayın ilgili,

Ekli dosyada da belirttiğim sütunlarda ,hiçbir değer yoksa gizlenmesi gerekmekte.
Bu hususta yardımlarınızı rica ederim.Saygılarımla,

 

[acar6783]

Merhabalar,
Dosyanzı acar6783@yandex.com mail adresine gönderirseniz yardımcı olmaya çalışayım.
Altın üyelik sürem dolduğu için dosyanızı göremiyorum.

 

[antonio]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub sutunlari_gizle()
If Application.WorksheetFunction.CountA(Sayfa1.Range("G:H")) = 0 Then
    Sayfa1.Columns("G:H").Hidden = True
End If
End Sub