dynamisch invul functie

Status
Niet open voor verdere reacties.
J

jaclang

Gebruiker
Lid geworden
25 sep 2012
Berichten
30
Ik heb deze functie in een macro
Code: 
Selection.AutoFill Destination:=Range("Y8:Y39"), Type:=xlFillDefault

Y39 wil ik variabel maken om deze een of meerdere cellen naar beneden plaatsen
Dit lukt wel met:
Code: 
Range("B40").Offset(Range("T5"), 0).Select
maar dat is slecht een cel

maar nu met een rij met cellen vanaf Y8
In T5 staat de variabele waarbij Y39 met de waarde van T5 naar beneden wordt verplaatst
 
Code: 
Selection.AutoFill Range("Y8:Y" & 39 + range("t5").value)
 
Een rare constructie met selection.

Hier een oplossing
Code: 
[COLOR=#3E3E3E]Selection.AutoFill [/COLOR]Destination:=Range("Y8").resize(range("T5").value)[COLOR=#3E3E3E], Type:=xlFillDefault[/COLOR]

Met deze methode zou het net zo goed kunnen.
Code: 
Range("Y8").resize(range("T5").value) = Range("Y8").value
 
Bedankt voor de snelle reacties,

de oplossing van VenA heb ik gebruikt en doet het geweldig
De oplossing HSV heb ik niet geprobeerd hierin mis ik Y39 wat het uitgangspunt is
maar toch bedankt voor de moeite.

Deze thread mag gesloten worden maar ik heb geen idee hoe dat moet
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan