at least 5 check box bus be true out of 27 checkbox

[sachin katariya]

Private Sub CheckBox1_Change()
Dim Count As Integer
Count = 0
If CheckBox1.Value = True Then Count = Count + 1
If CheckBox2.Value = True Then Count = Count + 1
If CheckBox3.Value = True Then Count = Count + 1
If CheckBox4.Value = True Then Count = Count + 1
If CheckBox5.Value = True Then Count = Count + 1
If CheckBox6.Value = True Then Count = Count + 1
If CheckBox7.Value = True Then Count = Count + 1
If CheckBox8.Value = True Then Count = Count + 1
If CheckBox9.Value = True Then Count = Count + 1
If CheckBox10.Value = True Then Count = Count + 1
If CheckBox11.Value = True Then Count = Count + 1
If CheckBox12.Value = True Then Count = Count + 1
If CheckBox13.Value = True Then Count = Count +1
If Count > 8 Then CheckBox1.Value = False
End Sub

Please any one can simplify this

 

[mikerickson]

You could write a loop, but the syntax of that would depend on what kind of checkboxes these are
Other than that it would be a little faster to replace this throughout.

' replace
If CheckBox1.Value = True Then Count = Count + 1 
' with
Count = Count - CLng(CheckBox1.Value)

 

[sachin katariya]

Dim ctl As Control
Dim j As Long
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.CheckBox Then
If Me.Controls(ctl.Name).Value = True Then
j = j + 1
End If
End If
Next
If j > 6 Or j < 6 Then
MsgBox "Subject should be FIVE"
Exit Sub
End If

You could write a loop, but the syntax of that would depend on what kind of checkboxes these are
Other than that it would be a little faster to replace this throughout.

' replace
If CheckBox1.Value = True Then Count = Count + 1
' with
Count = Count - CLng(CheckBox1.Value)

 

[mikerickson]

That code looks like you are dealing with a userform and its checkboxes.
(It also is putting up a message box about "five" whenever the count of checked boxes is different than 6)

Dim oneControl as MSForms.Control
Dim CheckedCount as Long

For Each oneControl in Userform1.Controls
    If TypeName oneControl = "CheckBox" Then
        CheckedCount = CheckedCount - CBool(oneControl.Value)        
    End If
Next oneControl

If CheckedCount < 5 Then
    MsgBox "less than 5 checked"
End If