Optionbutton işaretli değilse uyarı

[xemdarx]

Selamlar, option button seçeneklerinden biri seçilmeden kaydet veya değiştir dediğimde uyarı mesajı vermesini istiyorum...Desteğinize ihtiyacım var...Teşekkürler

 

[leumruk]

Sub opt()
Dim kontrol As Boolean
kontrol = False
For c = 1 To 3
If Controls("OptionButton" & c) = True Then
kontrol = True
Exit For
End If
Next

If kontrol = False Then
MsgBox "Uyarı"
Exit Sub
End If

End Sub

 

[xemdarx]

Sağlun. Fakat denedim olmadı.

 

[leumruk]

Sağlun. Fakat denedim olmadı.

Örnek dosya ekleyiniz, bir de ben deneyim.

 

[xemdarx]

Şimdiden teşekkürler..

 

[leumruk]

Deneyiniz:
Eğer optionbutton sayısı az ise döngüye girmeden bu kodu da kullanabilirsiniz. Ekte yukarıdaki kodu kullandım.

If OptionButton1 = False And OptionButton2 = False Then
MsgBox "Uyarı"
Exit Sub
End If

 

[xemdarx]

İstediğim gibi oldu. Teşekkürler