Checkboxların değeri true ise buton aktif olsun

[Korhan Ayhan]

Selamlar,

Userform üzerinde 7 adet Checkbox var.İstediğim ise bunlardan herhangi birinin değeri true olduğu sürece Commandbutton1 aktif olsun eğer hiçbirinin değeri true değilse Commandbutton1 pasif olsun.

 

[veyselemre]

[vb:1:696e3b4020]Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub
Private Sub CheckBox1_Click()
Call kontrol
End Sub
Private Sub CheckBox2_Click()
Call kontrol
End Sub
Private Sub CheckBox3_Click()
Call kontrol
End Sub
Private Sub CheckBox4_Click()
Call kontrol
End Sub
Private Sub CheckBox5_Click()
Call kontrol
End Sub
Private Sub CheckBox6_Click()
Call kontrol
End Sub
Private Sub CheckBox7_Click()
Call kontrol
End Sub
Sub kontrol()
CommandButton1.Enabled = False
For x = 1 To 7
If Controls("Checkbox" & x) = True Then
CommandButton1.Enabled = True
Exit Sub
End If
Next
End Sub[/vb:1:696e3b4020]

 

[Korhan Ayhan]

Teşekkür ederim. :arkadas: