code VBA gevraagd formules koipeeren

Status
Niet open voor verdere reacties.

jan excel

Gebruiker
Lid geworden
4 mrt 2007
Berichten
437
In een excel spreatsheet wil ik dat de formules altijd gelijk lopen met de laatse rij gegevens in een andere kolom.

Voorbeeld: vanaf rij Q13 staan gegevens tot bijvoorbeeld Q225 (dit varieert)
In kolom S13,T13 en U13 staan de formules.

Nu wil ik dat deze formules in de range S13 t/m U13 naar beneden worden gekopieerd tot aan regel 225.
Zoals gezegd de formules dienen dus naar beneden te worden tot op gelijke hoogte van de gegevens in kolom Q.

Wie weet welke VBa code hiervoor nodig is.

Alvast bedankt.
Jan E.
 
Code:
Sub formule()
i = [q13].End(xlDown).Row - 12
[s13].Resize(i, 1).Formula = [s13].Formula
[t13].Resize(i, 1).Formula = [t13].Formula
[u13].Resize(i, 1).Formula = [u13].Formula
End Sub

Niels
 
Beste Niels,


Bedankt voor je reactie echter deze code kopieert 1 regel naar beneden.
Echter het dient het aantal regels naar beneden te kopiëren tot zover er gegevens staan in kolom Q (vanaf Q13)

Dus stel dat in kolom Q13 t/m regel Q325 gegevens staan dan dient de code range S13 t/m U13 te kopiëren naar beneden tot aan regel 325.
Zoals gezegd varieert de aantal regels, dit komt omdat de gegevens worden geïmporteerd van uit een database systeem.

Groet, Jan E
 
Laatst bewerkt:
Beste Niels,

Jou code werkt toch wel, ik pakte per abuis mijn eigen code.

1000 x Bedankt voor je hulp.

Groet,
Jan Evers.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan