61
Excel / Re: Bestand voor genealogie
« Laatste bericht door SoftAid Gepost op 14 april 2024, 16:06:43 »Hallo genealoog100,
Welkom op Oplossing.be
Je hebt je knoppen naar het "hoofdmenu" nog niet toegewezen aan de betreffende macro (frmHoofdmenu) maar dat is een kleinigheid.
Een macro om de data weg te schrijven van de userform naar de juiste cellen is in principe niet zo moeilijk. Een zaak eerst: je moet de laatste lege rij in je werkblad weten te vinden. Dat doe je door een code te gebruiken die in het werkblad het rijnummer van de eerste lege rij ophaalt:
Daarna schrijf je in je macro, als je deze "Save" activeert, dat de waarde in de cellen (rij, 2), (rij, 3), (rij, 4) enzovoorts gelijk zijn aan de juiste invoervelden van je userform.
Je zal dus een macro in de userform code-module moeten zetten die de waarden van de txtboxen afgaat en deze naar het werkblad schrijft.
Als je hulp wenst, laat maar horen.
Mogelijk vindt je het fijner om zelf de weg te zoeken.
We helpen graag.
Groeten,
SoftAid
Welkom op Oplossing.be
Je hebt je knoppen naar het "hoofdmenu" nog niet toegewezen aan de betreffende macro (frmHoofdmenu) maar dat is een kleinigheid.
Een macro om de data weg te schrijven van de userform naar de juiste cellen is in principe niet zo moeilijk. Een zaak eerst: je moet de laatste lege rij in je werkblad weten te vinden. Dat doe je door een code te gebruiken die in het werkblad het rijnummer van de eerste lege rij ophaalt:
Code: [Selecteer]
rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, "B").End(xlUp).row + 1
Deze code zoekt de eerste lege rij (van boven naar beneden) in kolom "B" en wijst deze rij toe aan een variabele rij (rij zonder haakjes, het is geen tekst)Daarna schrijf je in je macro, als je deze "Save" activeert, dat de waarde in de cellen (rij, 2), (rij, 3), (rij, 4) enzovoorts gelijk zijn aan de juiste invoervelden van je userform.
Code: [Selecteer]
Sub Save() ' op voorwaarde dat je de macro (die verbonden is aan de knop "Save"
' in de code module van de userform zet.
Dim rij as Range
rij = Sheets("BS_G_OVL").Cells(Cells.Rows.Count, "B").End(xlUp).row + 1
Sheets("BS_G_OVL").Cells(rij, 2).Value = Me. TxtBox.Value
End Sub
Je zal dus een macro in de userform code-module moeten zetten die de waarden van de txtboxen afgaat en deze naar het werkblad schrijft.
Als je hulp wenst, laat maar horen.
Mogelijk vindt je het fijner om zelf de weg te zoeken.
We helpen graag.
Groeten,
SoftAid