VBA: Macro om ranges automatisch aan te passen

[TommyVoet]

Om een groot aantal ranges aan te passen zou ik een macro willen die dat voor mij doet


Om de ranges aan te passen heb ik volgende code met de recorder opgenomen.

Vraag is dus: Hoe maak ik van opdracht1 bvb opdrachti, zodat ik met een teller kan werken.


In de tweede lijn zou de rij dan ook vijf plaatsen moeten zakken, aangezien de volgende range vijf rijen lager begint.

Sub Macro2()

Application.Goto Reference:="Opdracht1"
ActiveWorkbook.Names("Opdracht1").RefersToR1C1 = "=detail!R5C1:R9C19"

End Sub


De theorie begrijp ik wel, maar in de praktijk valt het tegen

Dank bij voorbaat!

 

[SjonR]

zoiets?

Sub Macro2()
X = 5
For i = 1 To 2
    ActiveWorkbook.Names("Opdracht" & i).RefersToR1C1 = "=detail!R" & X & "C1:R" & X + 4 & "C19"
    X = X + 5
Next i
End Sub

 

[TommyVoet]

Perfect!

Merci!

 

[jkpieterse]

Kijk ook eens naar mijn Name Manager (gratis)

 

[TommyVoet]

Zie ik nu pas!

Dank je, ga ik zeker proberen!