frame kullanımı

[crpzz37]

iyi günler
benım çalışmamdaki frame içinde 7 tane optionbutton var bunlardan hangısı secılı ıse onun caption ismini almak istiyorum tek tek if ile yazmak zorundamıyım yoksa frame içinde seçili olanın ismini kolayca alabileceğim bir kod var mı şimdiden teşekkürler

 

[PLİNT]

Merhaba
Şöyle işinize yararmı?

Private Sub CommandButton1_Click()
For Each a In UserForm1.Frame1.Controls
If TypeName(a) = "OptionButton" Then
If a.Value = True Then [COLOR="Blue"]MsgBox a.Caption[/COLOR]
End If
Next
End Sub

 

[crpzz37]

çok teşekkürler Allah razı olsun