Hücre Boş ise Sütun gizleme Makrosu

[ayagiz44]

Eğer E2:Q500 hücre Boş ise Sütun gizleme Makrosu

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[Ömer]

Merhaba,

Deneyiniz.
Not: Dosyanızı açmadım. Açıklamanıza göre yazdım. Altın üyesiniz dosyalarınızı eklerken foruma eklemenizi rica ederim. İkinci tercih olarak harici linke ekleyebilirsiniz.

Sub test()
  
    Dim i As Integer
  
    Application.ScreenUpdating = False
    Range("E2:Q500").EntireColumn.Hidden = False
  
    For i = 5 To 17
        If WorksheetFunction.CountA(Cells(2, i).Resize(499, 1)) = 0 Then
            Columns(i).EntireColumn.Hidden = True
        End If
    Next i
   
    Application.ScreenUpdating = True
  
End Sub

 

[ayagiz44]

Sayın Hocam Saygıları sunuyorum selamlar

 

[Ömer]

Saygı bizden.
Bu arada daha öncede bu konuyu sormuştunuz, mesajınızı görünce hatırladım. Yoğunluktan atlamışım kusura bakmayın.

 

[ayagiz44]

Eyvallah