OptionButton altijd activeren voor verder te gaan

Status
Niet open voor verdere reacties.
F

flap1

Nieuwe gebruiker
Lid geworden
20 nov 2016
Berichten
2
Hallo,

ik heb een Uerform gemaakt met daarin een aantal optionbuttons, nu wil ik dat een van deze optionbuttons geselecteerd is voor dat er verder gegaan kan worden.
hoe zet ik dat in het userform?
 
Bekijk bijlage OPTIONBUTTONS.xlsm

Code: 
Private Sub CommandButton1_Click()
 Select Case True
 Case Me.OptionButton1
 MsgBox "optionbutton1 selected"
 Case Me.OptionButton2
 MsgBox "optionbutton2 selected"
 Case Me.OptionButton3
 MsgBox "optionbutton3 selected"
 Case Else
 MsgBox "no optionbutton selected"
 End Select
 End Sub

Gr.

SjonR
 
Zonder ze allemaal op te nemen in de code zoals van mijn voorganger.
Code: 
Private Sub CommandButton1_Click()
 Dim ctrl As Control
 For Each ctrl In Controls
   If TypeName(ctrl) = "OptionButton" Then
      a = a + 1
     If ctrl Then
        ' MsgBox ctrl.Name & " is geselecteerd"
         Exit For
     Else
         y = y + 1
    End If
   End If
  Next ctrl
If y = a Then MsgBox "niets geselecteerd"
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan