Hangi OptionButon seçili ?

[Orion1]

Mrb.
Userform'da 2 adet optionbutton var.
Bir command buton var.
Hangi optionbuton seçili ise command butono tıkaladığımda msgbox'ta seçilen optionbutonu bildirsin.
Teşekkür ederim.
Kolay gelsin.

 

[Haluk]

[vb:1:5fc19e460e]Private Sub CommandButton1_Click()
Dim MyMsg As String
If OptionButton1 Then
MyMsg = OptionButton1.Caption
ElseIf OptionButton2 Then
MyMsg = OptionButton2.Caption
Else
MyMsg = "Secili yok...."
End If

MsgBox MyMsg
End Sub
[/vb:1:5fc19e460e]

 

[Haluk]

Bu da, başka bir alternatif....

[vb:1:877a346e1b]Private Sub CommandButton1_Click()
Dim MyMsg As String
Dim MyOpt As Control
For Each MyOpt In Me.Controls
If (TypeName(MyOpt) = "OptionButton" And MyOpt.Value = True) Then
MyMsg = MyOpt.Caption
GoTo ResumeSub:
Else
MyMsg = "Secili yok...."
End If
Next
ResumeSub:
MsgBox MyMsg
End Sub
[/vb:1:877a346e1b]

 

[alparslan220]

slm arkadaslar sayfama yaptığım option butonun bir butonla nasıl işaretlerini kaldıra bilirim

 

[Seyit Tiken]

Private Sub CommandButton1_Click()
Me.OptionButton1 = 0
End Sub

Şeklinde deneyiniz.

 

[alparslan220]

sağol kardeş te bir sorunumdaha var
sayfa ya arka plan koy dum ama boyutu nu A4 kağıdına göre olacak nasıl yapa bilirim
şimdiden tşkler

 

[alparslan220]

slm arkadaşlar gizli sayfayı nasıl yazdıra bilirim acillll yardımmmmmmm