VBA Loop Ranges

Jaclyn · Jan 12th 2006

Hi,

I've built a simple loop as follows:

Code

For x = 0 To 4
    Range(Range(CellsCornerCell).Offset(0, x), Range(CellsCornerCell).Offset(2, x)).Select
        Selection.HorizontalAlignment = xlCenterAcrossSelection
        Selection.BorderAround (xlContinuous)
Next x

I also had another loop which is exactly the same but the range was x = 8 To 11. How can I join the two loops together? I thought it would be something simple like For x = 0 To 4 & 8 To 11, but nothing like that works.

Cheers!

**iwrk4dedpr** · Jan 12th 2006

Re: VBA Loop Ranges

Jaclyn,

What do you mean by "join the two loops together"?

You could do something like

Code

For x = 0 to 4
  For y = 8 to 11




  Next y
next x

However, I'm not thinking that this is what you want?

Remember that when you're inside a loop like for . . . next you can't use it's variable for another loop that is nested in the outer loop.

Jaclyn · Jan 12th 2006

Re: VBA Loop Ranges

Ok, so pretty much what I want is a loop which runs 'for x = 0 To 11', but I don't want it to apply for '5 To 7'. What is inside the loop is the same (with only one variable). Is that a better explanation?

**iwrk4dedpr** · Jan 12th 2006

Re: VBA Loop Ranges

Jaclyn,

Try this:

Code

For x = 0 To 11
If x < 5 or x > 7 then
    Range(Range(CellsCornerCell).Offset(0, x), Range(CellsCornerCell).Offset(2, x)).Select 
    Selection.HorizontalAlignment = xlCenterAcrossSelection 
    Selection.BorderAround (xlContinuous) 
End if
Next x

VBA Loop Ranges

Participate now!

Share

Users Viewing This Thread