Soru CHECKBOX ile SATIR GİZLE/GÖSTER

[MESUT K]

Herkese Selamlar
Eklediğim dosyada CHECKBOX ile SATIR GİZLE/GÖSTER ile ilgili açıklamayı yaptım.Bilen arkadaşlardan yardım istiyorum
Saygılarımla
link:

İndir CHECKBOX GİZLE GÖSTER

Dosyayı indir CHECKBOX GİZLE GÖSTER

dosya.co

 

[hamitcan]

Bu şekilde dener misiniz ?

 

[MESUT K]

Hocam çok teşekkür ederim.Elinize emeğine sağlık.Bazı eksikler vardı tamamladım.Şuan tam çalışıyor

Sub A()
If [e5] = True Then

Rows("10").Hidden = False
Rows("12").Hidden = False
ActiveSheet.CheckBoxes("check box 3").Visible = True
ActiveSheet.CheckBoxes("check box 5").Visible = True
ActiveSheet.Shapes("check box 2").Select
Selection.Value = False

ElseIf [e5] = False Then

Rows("10").Hidden = True
Rows("12").Hidden = True
ActiveSheet.CheckBoxes("check box 3").Visible = False
ActiveSheet.CheckBoxes("check box 5").Visible = False
ActiveSheet.Shapes("check box 2").Select
Selection.Value = True
End If
End Sub
Sub B()
If [h5] = True Then
Rows("11").Hidden = False
Rows("13").Hidden = False
ActiveSheet.CheckBoxes("check box 4").Visible = True
ActiveSheet.CheckBoxes("check box 6").Visible = True
ActiveSheet.Shapes("check box 1").Select
Selection.Value = False

ElseIf [h5] = False Then
Rows("11").Hidden = True
Rows("13").Hidden = True
ActiveSheet.CheckBoxes("check box 4").Visible = False
ActiveSheet.CheckBoxes("check box 6").Visible = False
ActiveSheet.Shapes("check box 1").Select
Selection.Value = True
End If
End Sub