CheckBox İle Boş Satırları Gizle-Göster

[ormann]

İyi akşamlar;
Ekli dosyada I11:I25 hücre aralığında veri olmayan satırları CheckBox İle nasıl gizleyip gösterebiliriz.?Ana sayfada I11:I25 hücre aralığında veri yoksa anasayfa daki I11:I25 ve ,a,b,c,d sayfalarındaki aynı hücre aralığındaki satırlarda gizlenecek.
http://dosya.co/rj8ipf5ltjee/örnek.xlsx.html

 

[Muzaffer Ali]

Merhaba. İyi akşamlar.

Aşağıdaki kodları "Anasayfa" nın kod editörüne kopyalayın.

Private Sub CheckBox2_Change()
    Dim bak As Range
    Dim Gizle As Boolean
    For Each bak In Range("I11:I25")
        If bak = "" Then
            Rows(bak.Row).Hidden = CheckBox2.Value
            Worksheets("a").Rows(bak.Row).Hidden = CheckBox2.Value
            Worksheets("b").Rows(bak.Row).Hidden = CheckBox2.Value
            Worksheets("c").Rows(bak.Row).Hidden = CheckBox2.Value
            Worksheets("d").Rows(bak.Row).Hidden = CheckBox2.Value
        Else
            Rows(bak.Row).Hidden = False
            Worksheets("a").Rows(bak.Row).Hidden = False
            Worksheets("b").Rows(bak.Row).Hidden = False
            Worksheets("c").Rows(bak.Row).Hidden = False
            Worksheets("d").Rows(bak.Row).Hidden = False
        End If
    Next
End Sub

 

[ormann]

Sayın Dalgalikur teşekkür ederim

 

[ormann]

Ekli kodda makro J18:J24 hücre aralığındaki veri olmayan satırları gizleyip gösteriyor.Bunu J18:J14,j16,J17:J24 olarak nasıl makroya uygularız?

Private Sub CheckBox1_Click()
Dim bak As Range
    Dim Gizle As Boolean
    For Each bak In Range("j18:j24")
        If bak = "" Then
            Rows(bak.Row).Hidden = CheckBox1.Value
            Worksheets("ÖLÇÜ").Rows(bak.Row).Hidden = CheckBox1.Value
            
      
        Else
            Rows(bak.Row).Hidden = False
            Worksheets("ÖLÇÜ").Rows(bak.Row).Hidden = False
          
        End If
    Next
End Sub

 

[Ömer BARAN]

İlgili kod satırını, uygulama istediğiniz hücre veya aralık için aşağıdaki gibi düzenleyerek deneyiniz.
( ÇİFT TIRNAK ile başlayıp, aralara VİRGÜL ve BOŞLUK ekleyip, yine ÇİFT TIRNAK ile kapatarak )

For Each bak In Range("A10:A250, J18:J24, J550, K3:K16")

 

[ormann]

Teşekkür ederim Ömer bey