Ik heb een aantal kleine aanpassingen gemaakt. Zoals direct aantal invullen bij aanslaan middels inputbox.

Interesse?

Download maar raak...

Allen,

@ Andy: U zal begrijpen dat ik hier geen mening over ga uitspreken zonder meer. Misschien kunnen jullie het even uitpraten om zo tot een goede verstandhouding te komen met alle leden. Je lijkt me een verstandige kerel dus loet zeker lukken.
Indien anders... ( wat jammer zou zijn) Toch bedankt voor het meedenken.

Wat de formulieren betreft je zou kunnen gelijk hebben als je de forms aanpast en daar de nodige mogelijkheden ingeeft om weg te schrijven.
BS = Burgerlijke stand
PK = Parochiale Klapper
G  = Geboorte
H  = Huwelijk
O  = Overlijden
Zoals u dus kan zien zijn er nogal wat om dit in 1 form te gaan neerzetten.
Ach wat is nu al gereduceerd naar 2 forms 

So stick around and see the result at the end

@ SoftAid : de sheets zijn nu zonder onderliggende streepjes ( alle letters aan elkaar)
vandaar de vraag of er de mogelijkheid zou zijn dat de gegevens worden weggeschreven met de data uit de gegeven cellen.

En ik denk ook dat ME.T niet is benoemd

groeten
Marcel
nu pas op he met mijn bekrompen kennis kan ik enkel gissen naar de juistheid van mijn uitspraak 

SoftAid

Zou het niet kunnen zijn dat je in de toekenning worksheet de verkeerde benaming gebruikt?
ale toch als je het 2de bestandje (Genalogie3) gebruikt


groeten
Marcel

Beste allen,

Zo bij deze is dit dan ook achter de rug en kunnen nu de neuzen allemaal in dezelfde richting staan 

Hierbij dan het bestandje dat is aangepast naar 2 formulieren.
Heb er nog geen codes in weggeschreven, gewoon als deze oplossing  niet geschikt is dan is dit een hoop moeite voor piet snot geweest.

De bedoeling zou nu zijn dat wanneer in T2, T3, T4 gegevens komen dat deze dan ook worden weggeschreven naar de juiste sheet
Om weer een vb te geven
T1 "BS"      T2 "H"         T3 "OVL"
Dan zou deze gegevens moeten worden weggeschreven in sheet BSHOVL
enz voor alle mogelijkheden
( zo zijn er 9 sheets)

Graag jullie opbouwende reacties zodat ik hier mijn stress kan op botvieren

Groeten
Marcel

#5 SoftAid aangepast maar blijf dezelfde foutmelding krijgen. 

Sorry, foutje in de typeaanduiding van de variabele: "Dim rij As Range" moet zijn "Dim rij as Long"
Deze code achter het werkblad doet wat het moet doen.

Private Sub Saveformulier()
Dim rij As Long
     rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, 2).End(xlUp).Row + 1
                           FrmBSGOVL.txtRegister = ("tien") 'tijdelijk, om het formulier niet te moeten gebruiken
     Sheets("BS_G_OVL").Cells(rij, 2).Value = FrmBSGOVL.txtRegister.Value
End Sub
Straks meer... eerst je bijgewerkt voorbeeldbestand doornemen (na de koffie)

SoftAid