Form wordt niet gevuld

[Jack Nouws]

Ik ben momenteel bezig een UserForm te maken en loop toch tegen nogal wat problemen op.
Wie kan me de nodige tips geven?

 

[Wigi]

Hoe laat ik jouw userform überhaupt op het scherm zien?

 

[Jack Nouws]

Hoe laat ik jouw userform überhaupt op het scherm zien?

sorry ik had hem op een ander blad staan
Je kunt toch een knop van formulieren gebruiken

 

[Wigi]

Ik zou met MsgBox'en en Exit Subs op goed gekozen plaatsen al eens nagaan of misschien een deel van de Initialize het doet. Er zitten sowieso fouten in (zelfs controls die niet bestaan), maar dat kan je best nagaan met boven vermelde middeltjes.

Wigi

 

[Jack Nouws]

Ik zou met MsgBox'en en Exit Subs op goed gekozen plaatsen al eens nagaan of misschien een deel van de Initialize het doet. Er zitten sowieso fouten in (zelfs controls die niet bestaan), maar dat kan je best nagaan met boven vermelde middeltjes.

Wigi

Sorry maar ik krijg er niet veel van gemaakt ik heb alleen dit veranderd

Private Sub UserForm_Initialize()
Zoeknaam.RowSource = Cells(17, "B").Resize(Cells(Rows.Count, "B").End(xlUp).Row - 1).Address
Zoekplant.RowSource = Cells(2, "M").Resize(Cells(Rows.Count, "M").End(xlUp).Row - 1).Address


Zoeknaam.SetFocus

End Sub

 

[Wigi]

Zoekplant bestaat niet op de userform.

 

[Jack Nouws]

Zoekplant bestaat niet op de userform.

ja klopt maar ik twijfel wat ik nu moet invullen.
want als ik de 8 boxen selecteer dan komt er "Kies_Fust8" te staan
dus ik zou 'Zoek plant" vervangen door "Kies_Fust8" want het zijn 8 dezelfde lijsten die erin komen te staan.

 

[Wigi]

Je moet box per box werken.

En als de code werkt voor 1 box, kan je dit gemakkelijk uitbreiden naar de 7 andere boxen. Enkel de naam van het element verschilt.

 

[snb]

Voor de basisbeginselen:

kijk eens hier