Checkbox if statements

**wayneg** · 10-15-2015, 08:55 AM

PHP Code:


Private Sub CheckBox12_Click()



If CheckBox12.Value = True Then CheckBox13.Value = False

If CheckBox12.Value = True Then CheckBox1.Value = True

If CheckBox12.Value = True Then CheckBox2.Value = True

If CheckBox12.Value = True Then CheckBox3.Value = True

If CheckBox12.Value = True Then CheckBox4.Value = True

If CheckBox12.Value = True Then CheckBox5.Value = True

If CheckBox12.Value = True Then CheckBox6.Value = True

If CheckBox12.Value = True Then CheckBox7.Value = True

If CheckBox12.Value = True Then CheckBox8.Value = True

If CheckBox12.Value = True Then CheckBox9.Value = True

If CheckBox12.Value = True Then CheckBox10.Value = True

If CheckBox12.Value = True Then CheckBox11.Value = True



End Sub

Is there a way to make this smaller please, trying to reduce the code and get better at VBA

**gmr4evr1** · 10-15-2015, 10:03 AM

Try this..

Private Sub CheckBox12_Click()

If CheckBox12.Value = True Then CheckBox13.Value = False And CheckBox1.Value = True _ 
   And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True _ 
   And CheckBox5.Value = True And CheckBox6.Value = True And CheckBox7.Value = True _
   And CheckBox8.Value = True And CheckBox9.Value = True And CheckBox10.Value = True _ 
   And CheckBox11.Value = True

End Sub

**wayneg** · 10-15-2015, 10:07 AM

i tried that, but it didnt work, will try it again, ty......

i tick the Checkbox12 and it didnt make all the other checkboxes ticked.... will keep trying

**wayneg** · 10-15-2015, 10:31 AM

Here is a sample of the file

**gmr4evr1** · 10-15-2015, 04:39 PM

Couldn't get it to work with the first code I posted, but I have an alternative. It might not be much shorter, but it has been tested on your sample file and it works.

Private Sub CheckBox12_Click()

If CheckBox12.Value = True Then CheckBox1.Value = True
    CheckBox2.Value = True
    CheckBox3.Value = True
    CheckBox4.Value = True
    CheckBox5.Value = True
    CheckBox6.Value = True
    CheckBox7.Value = True
    CheckBox8.Value = True
    CheckBox9.Value = True
    CheckBox10.Value = True
    CheckBox11.Value = True
    
End Sub

Private Sub CheckBox13_Click()

If CheckBox13.Value = True Then CheckBox12.Value = False
    CheckBox1.Value = False
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
    CheckBox5.Value = False
    CheckBox6.Value = False
    CheckBox7.Value = False
    CheckBox8.Value = False
    CheckBox9.Value = False
    CheckBox10.Value = False
    CheckBox11.Value = False
    
End Sub

wayneg checkbox-if-statements-form-filter-test.xlsm