positie userform

[AD1957]

kan dat problemen geven?
hoe komt dat?

Geeft geen problemen. Uitleg over hoe dat komt lijkt me een beetje moeilijk.
p.s. gebruik geen samengevoegde cellen, met VBA geeft dat vaak problemen.

 

[SUVERMO]

beste AD

ik heb verder gewerkt met de listboxen.
de blauwe en de groene cellen starten en listbox, de groene werkt pas afs op dezelfde rij erst de groene is gebruikt.
de blauwe schrijft ook iets weg in kolom AE en de groene in kolom AD.
Beide schrijven ze echter ook iets in de kolom rechts, dat is niet de bedoeling want deze cellen mogen niet overschreven worden.

heeft u een oplossing voor dit probleem.

 

[SUVERMO]

zonder samengevoegde cellen hetzelfde probleem

 

[AD1957]

Plaats een werkbaar bestand, ik krijg alleen maar foutmeldingen.
Het hele bestand is een, tenminste voor mij , niet te doorgronden brij .
Het aantal gedefinieerde namen heb ik maar niet geteld.
Lijkt het je niet verstandig om eens helemaal opnieuw te beginnen.
Denk eerst goed na over de layout van het inschrijfformulier en begin dan stap voor stap op te bouwen.
Je zit nu vastgebakken aan een oud ontwerp (volgens mij van jaren geleden) en probeert daar op verder te borduren.

 

[SUVERMO]

het is inderdaad een ontwerp van een paar jaar geleden.
ik ga uw raad opvolgen en met een nieuw blad starten

 

[AD1957]

Bedoel je met een nieuw blad starten: Ik begin helemaal opnieuw met een nieuw bestand.

 

[SUVERMO]

inderdaad een nieuw bestand

 

[AD1957]

Ik had voor mezelf al een opzetje gemaakt, misschien heb je er iets aan.

Klick in kolom A om te starten.

p.s. Alleen het FrmKonijn heb ik uitgewerkt.
Ben benieuwd of je hier iets aan hebt.

 

[SUVERMO]

mooi om te beginnen

 

[SUVERMO]

Is het mogelijk om de userforms te sluiten als er buiten de userforms op een cel wordt geklikt, want dan wordt die cel ingevuld, zie plaatjes

 

[SUVERMO]

na wat speurwerk op google
er dit van gemaakt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Unload FrmLeden
Unload FrmKeuzeDier
Unload FrmKonijn
On Error GoTo 0
If Not Intersect(Target, Range("A12:A40")) Is Nothing And Target.Count = 1 Then
 FrmKeuzeDier.Show
End If
End Sub

 

[AD1957]

@SUVERMO,

Zelf was ik niet tevreden over de oplossing in post#28
Gewoon omdat ik het leuk vind om te doen, bekijk dit eens.( alles binnen één UserForm)
Waarschijnlijk zullen er nog wat foutjes inzitten. Testen,testen,testen.....maar.

 

[SUVERMO]

bedankt voor uw meedenken
ikzelf heb #22 toch nog niet helemaal opgegeven.
reden.
het formulier wordt bezorgd aan mogelijke inzenders.
niet iedere inzenders heeft excel
daarom ontvangen zij de excel en een a4-pdf van de excel

zij kunnen dan de excel invullen en deze terug aan mij bezorgen
of de pdf manueel invullen, er een foto van nemen en deze dan aan mij bezorgen.

 

[AD1957]

Dan werk je toch gewoon met listboxen in de kolommen A t/m D.
Welke Layout voor het inschrijfformulier wil je gebruiken ( post#22 of post #28)?
Maak anders alleen eens een Layout van het inschrijfformulier en post dat hier.

 

[SUVERMO]

Albert,

nu even mijn vrouw helpen, zal straks of morgen er verder aan knutselen

groetjes Frans

 

[AD1957]

Frans,

Hier een voorbeeld met alles in 1 listbox voor kolom A t/m D
Wel met de layout van post #28
p.s. volledig testen laat ik aan jou over.(maar eerst de wederhelft helpen )

 

[SUVERMO]

Albert, uitstekend en inspirerend
deze morgen heb ik een mail verstuurd via "Verstuur E-mail" ivm mail , heeft U deze ontvangen

 

[AD1957]

Ja, ontvangen.