autofill automatiseren

[otmar]

in deze bijlage: Bekijk bijlage voorbeeld autofill.xls zit in c2 een formule

deze formule wil ik doortrekken naar beneden

dusdanig dat in c3 de formule is
=ALS(LINKS(A3;1)="4";1;0)
en in c4
=ALS(LINKS(A4;1)="4";1;0)

hoe doe ik dat

het werkt niet met

[c2].AutoFill Destination:=Range("C3:C60000")

 

[popipipo]

Sub aanvullen()
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C25"), Type:=xlFillDefault
    Range("A1").Select
End Sub

Deze moet het volgens mij doen.

 

[otmar]

Sub aanvullen()
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C25"), Type:=xlFillDefault
    Range("A1").Select
End Sub

Deze moet het volgens mij doen.

perfect
dit is wat ik zocht!
bedankt.

 

[sylvester-ponte]

hoi otmar

je formule is bijna helemaal goed.
alleen moet het begin van de destinationRange beginnen met de cel waar vandaan je copieerd.
in dit geval moet dat dus C2 zijn
zo dus:

[c2].AutoFill Destination:=Range("C2:C60000")

groet sylvester