Opgelost Gegevens uit een specifiek cel wegschrijven naar de lege

[gerrit123456789]

Ik krijg het niet voor elkaar om de gegevens van cel R49 uit werkblad transacties weg te schrijven naar het werkblad rendement.
Deze moet onder de laat ingevulde cel van kolom B komen te staan.

Ik krijg een foutmelding bij het uitvoeren van de macro onder knop wegschrijven rendement.

Wie kan mij hierbij helpen

Bij voorbaat dank.

Groet,

Gerrit

 

[Mde]

je doet set wsSource maar gebruikt de naam wsTransactie en net zo met wsTarget

 

[gerrit123456789]

Ik heb dit aangepast, maar hij schrijft niets weg in het werkblad Rendement

 

[gerrit123456789]

Hierbij het aangepaste bestand

 

[gerrit123456789]

Ben er al uit.
Had de verkeerde cel te pakken het moest R50 zijn in plaats R49

In ieder geval bedankt voor de geboden hulp.

 

[emields]

Probeer altijd uw code zo kort mogelijk te houden.

 

[HSV]

Als het korter moet @emields .

Sheets("Rendement").Range("B2000").End(xlUp).Offset(1) = Range("R50")

En geen limiet aan 2000 rijen.

Sheets("Rendement").cells(rows.count,2).End(xlUp).Offset(1) = Range("R50")