Userform

[ivoexcel]

Goedemiddag,

Ik zit met het volgende. Ik heb een Userform gemaakt die aan de hand van een macro gestart en deze gegevens overneemt en in een nieuw tabblad plaatst. Dit werkt allemaal zoals ik wil allen heb ik 3 groepen met keuzerondjes. Ik wil in deze macro een stuk toevoegen waarin gecontroleerd wordt of er in elke groep een keuze gemaakt is. Als er geen keuze gemaakt is moet er een melding verschijnen.

Boven in het formulier heb ik een invul balk. Deze moet ingevuld anders verschijnt er een melding zoals in onderstaande code weergeven is. Hoe doe ik dit bij een groep keuze rondjes?

If Trim(Me.txtnaam.Value) = "" Then
Me.txtnaam.SetFocus
MsgBox "Gelieve invullen waar je naar zoekt."
Exit Sub
End If

 

[lam201]

gebruik deze code:

If Not Me.OptionButton1 = True Or Me.OptionButton2 = True Or Me.OptionButton3 = True Then
    MsgBox "fout"
    Exit Sub
End If

Even aanvullen met juiste aantal keuzerondjes en de juiste namen er van.
En herhaal deze code voor elke groep van keuzerondjes.

 

[ivoexcel]

Top dankjewel!

 

[loek010]

Het gaat alleen werken mits je de 3 groepen optionbuttons elk in een apart frame dus 3 frames plaatst
anders zoals ik op je plaatje ziet schakelt de laatse buttons met ja of nee alle anderen optionbuttons weer uit

 

[ivoexcel]

Hi Willem,

Ja dat had ik allemaal werkend alleen kon je het formulier opslaan zonder alles in te vullen.
Dat is nu dus opgelost :thumb: