OptionButton Seçilmediğinde İkaz

[htsumer]

3 Adet OptionButtonun var.Bunlardan biri seçilmedinde ikaz versin istedim aşağıdaki kodu yazdım ama

OptionButton8 işaretlediğimde sorun yok,
OptionButton9 işaretlediğimde,, OptionButton8 Valuesi False kalıyor ve ikaz veriyor.
Aslında OptionButton9 dakini işaretleniyor..

Yani 3 adet OptionButtonlardan herhangi biri işaretli olduğunda işleme devam edilsin.^3'üde işaretli değilse ikaz versin..

If OptionButton8.Value = False Then
MsgBox "En Az Bir İmza Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If

 

[htsumer]

Sanırım bu isteğim OptionButton'un kullanım mantığına uygun değil.

Şu şekilde yaptım..Alternatif fikirleri olanlar varsa memnun olurum..

CommandButton1.Enabled = True

Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub

Private Sub OptionButton8_Click()
.....
...
..
CommandButton1.Enabled = True
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

If OptionButton8.Value = False and OptionButton9.Value = False and OptionButton10.Value = False  Then
MsgBox "En Az Bir İmza Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If

 

[htsumer]

Evet bu tam işimi gördü levent..

Bayağ unutmuşuz kodları

Teşekkür ederim..