VBA: Loop door range in specifieke volgorde

[RoCompy87]

Hallo,

Ik wil in VBA een loop door de range A1:G150. Dat ziet er zo uit:

Dim c as range
With Sheets(1)
    For each c in .range("A1:G150")
        'code
    Next c
End with

Nu wil ik eigenlijk dat de loop eerst door kolom F gaat, en daarna door de rest. Hoe krijg ik dit voor elkaar? Ik had het al geprobeerd met de volgende regel, maar dat heeft geen effect.

For each c in Union(.range("F1:F150"),.range("A1:E150"),.range("G1:G150"))

Alvast bedankt voor het meedenken

 

[Haije]

zo misschien?

Dim c as range
With Sheets(1)
    For each c in .range("F1:F150")
        'code
    Next c
    For each c in .range("A1:E150")
        'code
    Next c
    For each c in .range("G1:G150")
        'code
    Next c
End with

 

[RoCompy87]

Ja maar de code in de loop is nogal lang, dus ik hoopte dat het in één loop kan. Ik kan ook wel gaan werken met goto's vanuit de lussen, maar het gebruik daarvan hoop ik ook te vermijden (hoewel het verder misschien nog wel een oplossing kan zijn...).

 

[Haije]

Ja maar de code in de loop is nogal lang, dus ik hoopte dat het in één loop kan. Ik kan ook wel gaan werken met goto's vanuit de lussen, maar het gebruik daarvan hoop ik ook te vermijden (hoewel het verder misschien nog wel een oplossing kan zijn...).

wellicht is dan een gosub / return een goede mogelijkheid

 

[Niels28]

misschien niet de beste oplossing maar het werkt.

For icol = 1 To 7
For irow = 1 To 150
cells(irow,icol) enz....
Next irow
Next icol

Niels

 

[Haije]

of.....

Dim c as range
for t = 1 to 3
if t=1 then gebied  = "F1:F150"
if t=2 then gebied = "A1:E150"
if t=3 then gebied = "G1:G150"
With Sheets(1)
    For each c in .range(gebied
        'code
    Next c
End with

 

[RoCompy87]

Bedankt voor de input! Probleem opgelost