Hücre Boş ise Sütun gizleme Makrosu

[ayagiz44]

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

Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsm dosyasını indir - download

Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsm dosyasını indir, download. Dosya.tc .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