kopieeren een variabel gebied

[Oude leerling]

kan iemand mij helpen met een macro welke een variabel gebied kopieert naar een Blad2
het moet het gebied zijn waar in kolom 3 aaneengesloten de enen staan, welke kan variëren.
Bij voorbaat mijn hartelijke dank.
Jaap

 

[snb]

Kijk eens in de helpbestanden naar 'currentregion'.

 

[Oude leerling]

Je schat me deskundiger in als ik ben.
Al een tijdje aan het zoeken maar kom er niet tot een oplossing voor mijn probleem.
Jaap

 

[snb]

schrijf in de VBEditor het woord currentregion, markeer het met de muis en druk op toets F1.

 

[Oude leerling]

snb,

Ik begrijp je bedoeling.
Door de vraagsteller de weg te wijzen leer je hem wegwijs te maken zodat hij
er misschien zelf uit komt.
Met al je goede bedoelingen maar ik kom er niet uit.
Wel heb ik een andere oplossing gevonden welke ook functioneert om een
variabel gebied te kopiëren.

Range("A1", Range("C1").End(xlDown)).Copy

Misschien wil je alsnog een uitgewerkte oplossing met CurrentRegion voor mij maken
zodat ik er toch nog wat bijleer.
Jaap

 

[snb]

1. Ik zou in C21 gewoon zetten =sum(C1:C20)
2. vier verschillende methoden in de bijlage.

 

[VenA]

Als je gebruik maakt van kolomkoppen dan nog een alternatief

Sub VenA()
Blad1.Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, Blad1.[J1:J2], Blad2.Cells(1)
End Sub

 

[snb]

en als je er een echte tabel van maakt:

 

[Oude leerling]

Fantastisch.
Wat een mogelijkheden voor dit "probleem"
Iedereen hartstikke bedankt.
Jaap