Betr.: userform format voor verschillende input

[bridon]

Goedemiddag,

Graag zou ik weten/ hulp willen vragen...

1. Voor het maken van een userform waarbij je op basis van keuze uit verschillende checkbox mogelijkheden zoals dit voorbeeldje hier.



2. En dat er dan een invul template vervolgt na selecteren van de input die je in hje formulier wilt hebben. Zoals dit:



3. En daarna na invullen van de template de informatie naar je worksheet kan versturen.

Alvast bedankt!

bridon

 

[jkpieterse]

Het makkelijkst is dat door de betreffende controls wel te plaatsen, maar onzichtbaar te maken en pas te tonen als het vinkje voor die controls is geplaatst. Als je je naamgeving slim aanpakt is dit eenvoudig.

Noem iedere set hetzelfde, maar zet er een andere prefix voor, bijvoorbeeld:
Checkbox: cbxPrijs
Label: lblPrijs
textbox: tbxPrijs
Dan:

Dim oCtl as Control
For Each oCtl in Me.Controls
    If left(octl.Name, 3) = "cbx" Then
        Me.Controls(Replace(oCtl.Name, "cbx", "tbx")).Visible = oCtl.Value
        Me.Controls(Replace(oCtl.Name, "cbx", "lbl")).Visible = oCtl.Value
    End If
Next

 

[bridon]

Hartelijk dank! Jan Karel Pieterse :thumb: