Formule kopieren op basis van lengte lijst

Status
Niet open voor verdere reacties.

PGOOSSENS

Gebruiker
Lid geworden
19 jun 2008
Berichten
17
Hallo,

Mijn kennis van macro's gaat net iets verder dan het opnemen door acties letterlijk uit te voeren, maar een macro schrijven door puur de taal te gebruiken gaat te ver.

Ik heb een bestand waarin ik in een bepaalde cel een formule zet die ik wil kopiëren naar beneden zover er in de kolom daarvoor waarden staan. Hoe verwerk ik dit in mijn macro?

In het voorbeeld:

De formule in E5 moet gekopieerd worden tot E424. Maar als het bestand de volgende keer maar tot regel 300 gaat moet de formule ook maar tot regel 300 gekopieerd worden.

Ik dacht dit eerst te doen met:

Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)).Select

Maar dan gaat het tot regel 65536 en dat is niet de bedoeling.
 

Bijlagen

Code:
columns(4).specialcells(2).offset(,1).filldown
eventueel

Code:
columns(4).specialcells(2).offset(4,1).filldown
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan