AutoFill naar onbekend einde

[Timmiesch]

Goedemorgen,

Ik heb kolomkoppen in rij 3 staan.
In kolom A heb ik allemaal unieke ID nummers staan.

Middels een macro word er in B3 t/m D3 automatisch formules ingevoerd.
Hoe kan ik nu zorgen dat deze formule automatisch word doorgetrokken naar beneden.

Ik heb nu onderstaande in de macro gezet maar hoe doe ik dit als ik niet weet hoeveel rijen hij af moet?
Dit kunnen er 100 zijn maar ook 1000.

Range("B3: D3").Select
Selection.AutoFill Destination:=Range("B3: D30")

Hoor graag of iemand hier een oplossing voor heeft.
Alvast bedankt.

 

[Cobbe]

Test deze eens:

rij = Range("A" & Rows.Count).End(xlUp).Row
Range("B3: D3").AutoFill Destination:=Range("B3: D" & rij)

 

[snb]

Maak gebruik van rij 1 en maak van de gegevens een tabel (Excel 2007, en later).

 

[Timmiesch]

Test deze eens:

rij = Range("A" & Rows.Count).End(xlUp).Row
Range("B3: D3").AutoFill Destination:=Range("B3: D" & rij)

Cobbe bedankt, dat was inderdaad de oplossing !

Snb ook bedankt voor jou reactie, maar was er met die van Cobbe reeds uitgekomen.

 

[Roncancio]

Graag nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio