VBA code om een "flexibele" autofill te krijgen

[Robbert1980]

Beste,
In een gegeven kolom A zet ik een variabel aantal gegevens weg.

Bijvoorbeeld in Kolom A kunnen 5 rijen gevuld zijn met data.
Vervolgens staan er in Kolom B en C 2 berekeningen die gebruik maken van data van A.
Nu wil ik deze berekeningen doorkopieren met de autofill functie. Echter maakt deze gebruik van een vast bereik en dit is eigenlijk juist niet wat ik verwacht/moet hebben.
Hoe zou ik dit het beste op kunnen lossen?
Hieronder als voorbeeld de code die ik nu gebruikt met daarin naar mijn idee het probleem Range("'M20;N25"):

Sheets("afgesloten orders").Select
    Range("M20:N20").Select
    Selection.AutoFill Destination:=Range("M20:N25")
    Range("M20:N25").Select
    Sheets("Blad4").Select
    Range("A1").Select

Alvast bedankt!

 

[HSV]

Plaats eens je bestandje zonder gevoelige info met wat je wil bereiken.
Bvd.

 

[keesman]

Dim aantalregels As String
aantalregels = Range("aantalregels").Value
Range("m20").Select

For q = 1 To aantalregels
ActiveCell.Offset(1, 0).Select


Een cel de naam aantalregels geven.

In deze cel een formule maken met =aantalarg(M:m)

Volgens mij moet het dan werken


Next

 

[HSV]

Volgens mij moet het dan werken

Of niet.