Autofill op basis van waarde in Cel

[Ralf1991]

Beste Helper,

Ik ben op zoek naar een Autofill VBA code die mijn formules in cel A2:E2 doortrekt naar beneden op basis van de waarde in Cel K3.

Voorbeeld:
Wanneer in cel K3 de waarde 50 staat dan wil ik dat mijn formules in Cel A2:E2 wordt doorgetrokken tot Rij 50. K3=1000 tot Rij 1000 doortrekken enzovoort.

Bedankt!

 

[MDN111]

Dag Ralf1991 !

Probeer deze eens:

Sub Auto_Fill()
With ActiveSheet
    .Range("A2:E2").AutoFill Destination:=.Range("A2:E" & .Range("K3").Value), Type:=xlFillCopy
End With
End Sub

Grtz,
MDN111.

 

[Leotaxi]

Of zo

With ActiveSheet
r = Range("k1").Value
Range("a1", "e" & r).FillDown
End With

mvg
Leo

 

[snb]

Sub M_snb()
    Range("A2:E2").AutoFill Range("A2:E2").resize(Range("K3"))
End Sub

 

[Leotaxi]

Sub M_snb()
Range("A2:E2").AutoFill Range("A2:E2").resize(Range("K3"))
End Sub

 

[Ralf1991]

Goedemorgen,

Harstikke bedankt voor jullie hulp! Jullie oplossingen bieden allemaal het gewenste resultaat. Ik kan weer vooruit, bedankt!