Opgelost Kopieer en plak 5 regels VBA

[carloschouw]

Goede morgen,

Ik heb een Excel bestand waarvan mijn vraag is om tabblad Projectgegevens een button te plaatsen die de 5 nieuwe regels onderaan kolom E zou moeten plaatsen. In het voorbeeld in de bijlage zou dus E4 tm E8 gekopieerd moeten worden en geplakt in E9 waarin daar dan Projectplanfase 1, Projectplanfase 2, Projectplanfase 3, Projectplanfase 4 en Projectplanfase 5 moet komen te staan.

Een volgende klik op de button moet dan weer hetzelfde doen maar iedere keer moeten deze 5 cellen (E4 tm E8 of althans deze 5 zinnen) geplakt moeten worden in de laatste lege cellen.

Ik hoop dat de vraag een beetje duidelijk is? Weet iemand hoe je dit in VBA kunt zetten?

 

[SjonR]

zo:

Sub SjonR()
Range("E4:E8").Copy Cells(Range("E" & Rows.Count).End(xlUp).Row + 1, 5)
End Sub

 

[carloschouw]

Helemaal goed! Dank voor je hulp