Selecteer een variabele range van cells (macro)

[postal]

Hallo,

Ik weet inmiddels dat de volgende code de laatste cell in kolom G met een waarde zoekt en selecteerd.

Range("G1000").End(xlUp).Select

Maar nu wil ik als die hem geselecteerd heeft alles vanaf die cell laten kopieren t/m A3, zodat dus de hele tabel in het 'klembord' zit zodat ik die weer in een ander programma kan pasten.

Iemand een idee? Alvast bedankt.

Dennis

 

[koosl]

Dennis,

Iemand een idee? Alvast bedankt.

Ja, hoor.

Zo heeft de range een bereik t/m de laatste rij. Ook als die groter is dan G1000

Sub Kopieer()
     Range("A3", Range("G" & Rows.Count).End(xlUp)).Copy
End Sub

Koosl