Optionbutton hk

[chakistes]

merhaba arkadaşlar userformda 16 adet optionbutton var bunların adlarını uyarı1 - uyarı2 olarak değiştirdim kaydet yaparken bunlardan birini seçmezsem kaydetmesin uyarı versin istiyorum.

 

[askm]

Private Sub CommandButton1_Click()
a = 0
For i = 1 To 16
    If Me.Controls("uyarı" & i) = True Then
        a = a + 1
    End If
Next i
If a = 0 Then
    MsgBox "Kayıt yapamazsınız...", vbInformation, "UYARI"
    Exit Sub
Else
    MsgBox "Kayıt yapabilirsiniz...", vbInformation, "BRAVO"
End If
End Sub

 

[chakistes]

teşekkür ederim

 

[askm]

Rica ederim. Kolay gelsin.