Wil meerdere Checkboxen met controle

[HWV]

Beste,

Ik ben bezig met het maken van een formulieren stroom (Userforms )die ik door middel van een checkbox wil laten kiezen op een userform.
Ik heb er nu drie gedaan met een controle dat er maar één gekozen kan gaan worden.
Er zouden er meerdere op moeten komen, nu weet ik dat het met een makkelijkere code gedaan kan worden en een stuk kleiner de code, helaa lukt ij dit zelf niet . Zou één van jullie er voor mij naar willen kijken of ik dit makkelijker kan doen of is dit de enige weg..

Al bij voorbaat mijn dank.

groet HWV

 

[Wigi]

Checkboxes hebben een GroupName eigenschap die je kan instellen. Bekijk de helpfiles daaromtrent aub.

 

[HWV]

Gevonden

Beste Wigi,

Bedankt voor deze tip scheelt een hoop werk, ik heb hem gevonden.
IPV Checkboxes te gebruiken heb ik het veranderd naar OptionButton.

Private Sub UserForm_Initialize()
    OptionButton1.GroupName = "Widgets"
    OptionButton2.GroupName = "Widgets"
    OptionButton4.GroupName = "Widgets"
    OptionButton3.GroupName = "Widgets"
    OptionButton5.GroupName = "Widgets"
End Sub

Om daar een actie aan vast te hangen heb ik het volgende :

Private Sub CommandButton1_Click()
On Error Resume Next
If OptionButton1.Value = True Then
UserForm2.Show
Else
If OptionButton2.Value = True Then
UserForm4.Show
Else
If OptionButton3.Value = True Then
UserForm4.Show
Else
If OptionButton4.Value = True Then
UserForm4.Show
Else
If OptionButton5.Value = True Then
UserForm4.Show
End If
End If
End If
End If
End If

End Sub

Dit moet volgens mij ook anders kunnen, iets met.

For i = 1 To 5

Maar ik weet niet hoe dit moet, dit gaat mij mijn pet te boven.


Groet HWV

 

[Wigi]

Dit moet volgens mij ook anders kunnen, iets met.

For i = 1 To 5

Maar ik weet niet hoe dit moet, dit gaat mij mijn pet te boven.

Groet HWV

Dat is anderzijds al vaak behandeld geweest. Zie bvb. post #2 in deze topic:

http://www.helpmij.nl/forum/showthread.php?t=456449

 

[HWV]

Geprobeerd maar nog niet gelukt

Beste ik ben bezig geweest en daar het volgend eop gevonden en uitgeprobeerd

Private Sub CommandButton1_Click()

Dim i As Long
 
For i = 1 To 5
    If Me.Controls("OptionButton" & i).Value Then
Userform4.show
    End If
Next i

End Sub

Deze code loopt goed maar ik kan maar één userform hier mee opvragen ik wil juist meerdere kunnen opvragen.
Met de suggestie uit het vorige topic ben ik helaas niet verder gekomen.

Hoe kan ik dit voor elkaar krijgen ?

Groet HWV

 

[HWV]

Een oplossing gevonden

Beste,

IK heb het opgelost doormiddel van de volgende code :

Private Sub CommandButton1_Click()

Dim i As Long
 
For i = 1 To 5
    If Me.Controls("OptionButton" & i).Value Then
If Me.OptionButton1.Value = True Then UserForm4.Show
If Me.OptionButton2.Value = True Then UserForm2.Show
If Me.OptionButton3.Value = True Then UserForm4.Show
If Me.OptionButton4.Value = True Then UserForm2.Show
If Me.OptionButton5.Value = True Then UserForm4.Show
    End If
Next i

End Sub

Zijn hier andere suggesties voor dan hou ik me graag aanbevolen.

Groet HWV

 

[Wigi]

Zo misschien:

Private Sub CommandButton1_Click()

    With Me

        Select Case True

        Case .OptionButton1, .OptionButton3, .OptionButton5: UserForm4.Show
        Case .OptionButton2, .OptionButton4: UserForm2.Show
        
        End Select
        
    End With
    
End Sub

Wigi

 

[HWV]

Bedankt

Beste Wigi,

Bedankt voor de ondersteuning en uw bijdrage.
Ik ga kijken hoe ik dit kan toepassen, en ben erg mee geholpen..
Bedankt

Groet HWV