Unhiding all rows based on All Checkbox being tickets.

[ilbondo]

Hi

I have searched youtube for the answer to what i hope is a simple question. I have 6 checkboxes on an excel sheets, i want a bunch of rows beneath those checkboxes to unhide but only if All 6 of the checkboxes are ticked.

Thanks in advance

 

[Logit]

.

Option Explicit


Sub checkBoxSet()
Dim chk As CheckBox
Dim ws As Worksheet
Set ws = ActiveSheet
Dim i As Integer
i = 0


For Each chk In ws.CheckBoxes
    If chk.Value = 1 Then i = i + 1
Next chk


If i = 6 Then
   Sheet1.Rows("23:25").EntireRow.Hidden = False
End If
End Sub


Sub HideRows()
    Sheet1.Rows("23:25").EntireRow.Hidden = True
End Sub

Download workbook : https://www.amazon.com/clouddrive/share/8BSLYi40xEXwZMdCrI7kUpMsIQ9Vcnb9QFcnVkfrw42

 

[ilbondo]

.

Option Explicit


Sub checkBoxSet()
Dim chk As CheckBox
Dim ws As Worksheet
Set ws = ActiveSheet
Dim i As Integer
i = 0


For Each chk In ws.CheckBoxes
    If chk.Value = 1 Then i = i + 1
Next chk


If i = 6 Then
   Sheet1.Rows("23:25").EntireRow.Hidden = False
End If
End Sub


Sub HideRows()
    Sheet1.Rows("23:25").EntireRow.Hidden = True
End Sub

Download workbook : https://www.amazon.com/clouddrive/share/8BSLYi40xEXwZMdCrI7kUpMsIQ9Vcnb9QFcnVkfrw42

Thank you so much for that it has been eminently helpful. I wish you every success in future.

 

[Logit]

.
You are welcome. Glad to help.