Laatste regel vinden in meerdere werkbladen

[rens1233]

Hoi,

Ik wil een file maken waar ik in een userform iets in vul.
dat moet dan naar meerdere werkbladen worden weg geschreven.
het lukt me wel om de laatste regel te vinden dan de actieve werkblad.
maar niet van nog een andere.

Ik heb even een voor beeld gemaakt hoe ik het wil hebben.
in de userform heb ik drie tekst vakken
de eerste moet bepalen naar welk werkbladen ik invul
en de 2 en 3 moeten dan in gevuld worden op de werkbladen.

Ik hoop dat iemand mij kan helpen

alvst bedankt!!!

Bekijk bijlage Voorbeeld.xlsm

 

[Warme bakkertje]

Wil je als bladnaam telkens 1 naam invullen of moet dit in 1 keer gebeuren naar meerdere werkbladen ?
In het eerste geval zou ik dan opteren voor een Combobox met alle aanwezige werkbladen ipv een Textbox aangezien een typo snel gemaakt is en je zo onnodige foutmeldingen kan voorkomen.
In het tweede geval zou ik dan kiezen voor een Listbox met alle aanwezige werkbladen en de Multiselect ingeschakeld zodat je meerdere bladen tegelijkertijd kan selecteren.

 

[rens1233]

bedankt voor je reactie.

ik wil eigenlijk dat dit in 1 keer gebeurd. maar als ik dan een combox pak dan kan ik selecteren welke werkbladen het heen gaat ?
maar nu moet ik steeds de laatste regel van het geselecteerde werkblad hebben en daar de tekst in de cell zetten.

ik heb hier voor gebruikt:

Dim emptyRow As Long

'Determine emptyRow

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

maar deze vindt alleen de eerste regel van de actieve werkblad de regel en niet van de andere.

 

[Warme bakkertje]

Herlees mijn antwoord.
Als het 1 blad betreft gebruik een Combobox.
Als het meerdere werkbladen betreft gebruik een Listbox.