Opgelost VBA - Data via formulier in verschillende sheets plaatsen

[Han...]

Hoi,

Ik heb een Excelbestand bestaande uit 4 tabbladen/sheets. In sheet-1 (Dashboard) wil ik gebruik maken van een invulformulier (oranje).
In dat formulier heb ik dan de keuze om de ingevulde gegevens te plaatsen in 1 van de andere 3 sheets middels een Opdracht_Knop (groen/rood/blauw).
Da's het idee. Alleen werkt het (nog) niet...

Momenteel vult het formulier de ingevulde gegevens alleen in de sheet waarin het is geplaatst.
Zie bijgevoegd (Testfase) voorbeeld. Tabblad/Sheet-4 (Kas). Daar werkt het prima.

Echter als ik in sheet-1 (Dashboard) het formulier invul en op de blauwe knop klik dan krijg ik een foutmelding:


Ik ben er al een poosje mee aan het stoeien.
Ook al iets met Case Application geprobeerd maar ook die geeft foutmeldingen.



Wie kan mij op weg helpen hiermee?
Dank alvast voor de reactie.

 

[edmoor]

Wijzig in je voorbeeld document die gele regel eens in dit:

Application.Goto Range(Blad4.Range("c2500").End(xlUp).Address)

 

[Han...]

Dank voor je reactie.

Heb het aangepast.
Bij openen nu van formulier in sheet 1 (dashboard) krijg ik nu geen foutmelding maar hij vult de gegevens nu ook in sheet 1 (dashboard) ipv sheet 4 (Kas)

 

[edmoor]

Dan zet je uiteraard het juiste werkblad er bij:

Application.Goto Blad4.Range(Blad4.Range("c2500").End(xlUp).Address)

 

[Han...]

Yes!! Het werkt.
Dit is inderdaad wat ik voor ogen had.
Super bedankt.

 

[edmoor]

Graag gedaan.
En welkom bij Helpmij

 

[Han...]

Dank je wel.

Zal deze vraag als opgelost markeren nu.

 

[HSV]

Waarom niet,....

Application.Goto Blad4.Range("c2500").End(xlUp)

....of

Application.Goto Blad4.cells(rows.count,3).End(xlUp)

 

[snb]

Gelukkig nog in een testfase: zet alle gegevens in 1 werkblad.
Inkomsten/uitgeven duidt je aan met een minteken.
De 'kas' is de resultante van een filter of een draaitabel (pivottable)