checkbox

[sirkülasyon]

Private Sub CheckBox10_Click() düğmesine tıklayınca aşağıda yer alan tüm checkboxlar işaretli ise ya da işaretlenmiş ise tamamen çentikleri kaldırsın
CheckBox2.Value = ""
CheckBox3.Value = ""
CheckBox4.Value = ""
CheckBox5.Value = ""
CheckBox6.Value = ""
CheckBox7.Value = ""

End Sub

 

[bayram]

Sanırım aşağıdaki örnek işini görür.

 

[suleyman242]

Private Sub CheckBox10_Click() düğmesine tıklayınca aşağıda yer alan tüm checkboxlar işaretli ise ya da işaretlenmiş ise tamamen çentikleri kaldırsın
CheckBox2.Value = ""
CheckBox3.Value = ""
CheckBox4.Value = ""
CheckBox5.Value = ""
CheckBox6.Value = ""
CheckBox7.Value = ""

End Sub

Private Sub CheckBox10_Click()
If CheckBox10.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
Else
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

End If
End Sub

 

[Seyit Tiken]

Şöyle bir tarz işinize yarayabilir.

Private Sub CheckBox10_Click()
For s = 2 To 7
Controls("CheckBox" & s) = Controls("CheckBox" & s) = 0
Next
End Sub