Soru CheckBox İle Boş Sütunları Gizle/Göster

[Hsn55]

Merhabalar;
Ekli puantaj dosyasında Özel Bütçe-Kadrolu,Özel Bütçe-Mevsimlik,Döner Sermaye-Kadrolu ve Döner Sermaye-Mevsimlik sayfalarında AH15:AY100 sütunları arasında veri olmayan sütunları makro yardımı ile gizleyip gösterebilir miyiz.?.Yardımcı olursanız sevinirim.Şimdiden teşekkür ederim

İndir PUANTAJ PROGRAMI

Dosyayı indir PUANTAJ PROGRAMI

dosya.co

 

[Muzaffer Ali]

Merhaba.

 

[Hsn55]

Hocam link olarak eklerseniz sevinirim.Şimdiden teşekkür ederim

 

[Muzaffer Ali]

Hocam link olarak eklerseniz sevinirim.Şimdiden teşekkür ederim

İndir PUANTAJ PROGRAMI

Dosyayı indir PUANTAJ PROGRAMI

dosya.co

 

[Hsn55]

Gizleme olmuyor hocam. Checbox ile olacak. İstediğim sayfalar gizlenip gösterilecek

 

[Muzaffer Ali]

Giriş sayfasındaki CheckBox ile olacaksa aşağıdaki kodu Giriş sayfasının kod sayfasına ekleyin.

Private Sub CheckBox1_Click()
    Dim Bak As Range
    Dim Syf As Variant
    For Each Syf In Array("ÖZEL BÜTÇE-Kadrolu", "DÖNER SERMAYE-Kadrolu", "ÖZEL BÜTÇE-Mevsimlik", "DÖNER SERMAYE-Mevsimlik")
        If CheckBox1 Then
            For Each Bak In Worksheets(Syf).Range("AI102:AY102")
                If Bak.Text = "" Then
                    Bak.EntireColumn.Hidden = True
                End If
            Next
        Else
            Worksheets(Syf).Range("AI102:AY102").EntireColumn.Hidden = False
        End If
    Next
End Sub

 

[Hsn55]

Muzaffer bey çok teşekkür ederim