Checkbox ile birden fazla satır gizleme

[artdzy]

Merhabalar
Checkbox' u tiklediğimde formdaki 15:16;18:19;21:21;29:33;42:46 bu satırların Hide olmasını istiyorum, checkbox tiki kaldırıldıgında ise tekrar gelmelerini istiyorum.

Tek bir satırı yada arka arkaya gelen satırları checkbox ile hide/unhide edebiliyorum ama sıra sıra olmayan birden fazla satırı yok edemedim.

**Kullandığım kod aşağıdaki gibidir, nasıl modify edebiliriz istediğim görevi yaptırmak için yardımcı olabilirseniz çok sevinirim.
Bu arada çok giriş seviyesi VBA biliyorum :redface:

Sub OnayKutusu22_Tıkla()
If Range("O1").Value = "True" Then
           Call Hide
       ElseIf Range("O1").Value = "False" Then
           Call Unhide
       Else
           Return
       End If
   End Sub

  Sub Hide()
        ActiveSheet.Rows("46:46").EntireRow.Hidden = True
    End Sub

   Sub Unhide()
       ActiveSheet.Rows("46:46").EntireRow.Hidden = False
   End Sub

 

[askm]

Sub OnayKutusu1_Tıkla()
If Range("O1").Value = True Then
    Call Hide
ElseIf Range("O1").Value = False Then
    Call Unhide
End If
End Sub

 

[artdzy]

Sub OnayKutusu1_Tıkla()
If Range("O1").Value = True Then
    Call Hide
ElseIf Range("O1").Value = False Then
    Call Unhide
End If
End Sub

Maalesef anlayamadım, sanırım kopyala/yapıştır yaparken eksik yapıştırdınız. :frown:

 

[askm]

Aşağı kısmını siz yaparsınız diye düşünmüştüm.

Sub OnayKutusu1_Tıkla()
If Range("O1").Value = True Then
    Call Hide
ElseIf Range("O1").Value = False Then
    Call Unhide
End If
End Sub

Sub Hide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = True
ActiveSheet.Rows("18:19").EntireRow.Hidden = True
ActiveSheet.Rows("21").EntireRow.Hidden = True
ActiveSheet.Rows("29:33").EntireRow.Hidden = True
ActiveSheet.Rows("42:46").EntireRow.Hidden = True
End Sub

Sub Unhide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = False
ActiveSheet.Rows("18:19").EntireRow.Hidden = False
ActiveSheet.Rows("21").EntireRow.Hidden = False
ActiveSheet.Rows("29:33").EntireRow.Hidden = False
ActiveSheet.Rows("42:46").EntireRow.Hidden = False
End Sub

 

[artdzy]

Aşağı kısmını siz yaparsınız diye düşünmüştüm.

Sub OnayKutusu1_Tıkla()
If Range("O1").Value = True Then
    Call Hide
ElseIf Range("O1").Value = False Then
    Call Unhide
End If
End Sub

Sub Hide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = True
ActiveSheet.Rows("18:19").EntireRow.Hidden = True
ActiveSheet.Rows("21").EntireRow.Hidden = True
ActiveSheet.Rows("29:33").EntireRow.Hidden = True
ActiveSheet.Rows("42:46").EntireRow.Hidden = True
End Sub

Sub Unhide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = False
ActiveSheet.Rows("18:19").EntireRow.Hidden = False
ActiveSheet.Rows("21").EntireRow.Hidden = False
ActiveSheet.Rows("29:33").EntireRow.Hidden = False
ActiveSheet.Rows("42:46").EntireRow.Hidden = False
End Sub

Nasıl mutlu oldum anlatamam, çok teşekkürler
İyi pazarlar!!

 

[askm]

Rica ederim. İyi pazarlar.

 

[artdzy]

Rica ederim. İyi pazarlar.

Bir soru daha sormak istiyorum izninizle,
Gizlediğim satırlardan bazılarında onay kutusu ve secenek düğmesi mevcut,
satırlar gizleniyor fakat onay kutusu ve secenek düğmesi bir alttaki satırla birleşiyor, gizlenmiyor.
Nasıl bir komut ile onay kutusu ve seçenek düğmelerininde gizlenmesi sağlanabilir?

http://s5.dosya.tc/server5/6cn238/Calisma.rar.html

Oluşturmaya çalıştığım formun linkini ekliyorum. Amacım Maliyet formu istiyorum kutusu işaretlendiğinde ilgili alanların gizlenmesini istiyorum.

 

[turist]

Sub Hide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = True
ActiveSheet.Rows("18:19").EntireRow.Hidden = True
ActiveSheet.Rows("21").EntireRow.Hidden = True
ActiveSheet.Rows("29:33").EntireRow.Hidden = True
ActiveSheet.Rows("42:46").EntireRow.Hidden = True
ActiveSheet.CheckBoxes("Check Box 19").Visible = False
ActiveSheet.CheckBoxes("Check Box 20").Visible = False
ActiveSheet.CheckBoxes("Check Box 21").Visible = False
ActiveSheet.CheckBoxes("Check Box 22").Visible = False

End Sub

Sub Unhide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = False
ActiveSheet.Rows("18:19").EntireRow.Hidden = False
ActiveSheet.Rows("21").EntireRow.Hidden = False
ActiveSheet.Rows("29:33").EntireRow.Hidden = False
ActiveSheet.Rows("42:46").EntireRow.Hidden = False
ActiveSheet.CheckBoxes("Check Box 19").Visible = True
ActiveSheet.CheckBoxes("Check Box 20").Visible = True
ActiveSheet.CheckBoxes("Check Box 21").Visible = True
ActiveSheet.CheckBoxes("Check Box 22").Visible = True

End Sub

 

[artdzy]

Sub Hide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = True
ActiveSheet.Rows("18:19").EntireRow.Hidden = True
ActiveSheet.Rows("21").EntireRow.Hidden = True
ActiveSheet.Rows("29:33").EntireRow.Hidden = True
ActiveSheet.Rows("42:46").EntireRow.Hidden = True
ActiveSheet.CheckBoxes("Check Box 19").Visible = False
ActiveSheet.CheckBoxes("Check Box 20").Visible = False
ActiveSheet.CheckBoxes("Check Box 21").Visible = False
ActiveSheet.CheckBoxes("Check Box 22").Visible = False

End Sub

Sub Unhide()
ActiveSheet.Rows("15:16").EntireRow.Hidden = False
ActiveSheet.Rows("18:19").EntireRow.Hidden = False
ActiveSheet.Rows("21").EntireRow.Hidden = False
ActiveSheet.Rows("29:33").EntireRow.Hidden = False
ActiveSheet.Rows("42:46").EntireRow.Hidden = False
ActiveSheet.CheckBoxes("Check Box 19").Visible = True
ActiveSheet.CheckBoxes("Check Box 20").Visible = True
ActiveSheet.CheckBoxes("Check Box 21").Visible = True
ActiveSheet.CheckBoxes("Check Box 22").Visible = True

End Sub

Çok teşekkürler sizlerede çok işime yaradı.
Bitmez dediğim listemi sisler sayesinde bitirdim.
İyi akşamlar!