Compile Error: For Control Variable Already in Use

[SBF12345]

Greetings,

I am receiving the compile error "For Control Variable Already in Use".

I have nested For Each Next loops with the Control Variable as "Row". I am looping by the row with a predefined range of rows. How can I maintain the nested loop structure and use a variable that loops using a row without using the "For Each Row in CC" structure?

Thanks!

 

[Norie]

Can you post your code?

 

[joeu2004]

How can I maintain the nested loop structure and use a variable that loops using a row without using the "For Each Row in CC" structure?

Presumably, you wrote something of the form:

For Each row In CC
    For Each row In CC
        [....]
    Next row
Next row

In that context, "row" is a variable name. And by the way, "row" is a poor name to use for a variable because it is also a keyword -- a special VBA word like "if", "for", "next", etc.

(VBA can usually tell the difference by context. But it is still considered "poor programming practice".)

Choose different control variable names for each nest for-loop. For example:

For Each r1 In CC
     For Each r2 In CC
         [....]
     Next r2
Next r1

(I like brief control variables. But you might prefer row1 and row2 instead of my r1 and r2.)

Note that the order of control variable names in the Next statements is the opposite of the order in the For statements.

In other words, we always loop innermost for-loops first.

 

[SBF12345]

Thanks for the reply!

Here is the upper portion of the nested loops:

For Each Row In CC        
        H = Range(Cells(E, "A")).Row
        BB = PA.ws.Range(Cells(G, "A"), Cells(I, "A")).Row
                      
        With PA.ws
              
            For Each Row In BB

Initially I had integer variables in place of "Row", but received an error "variant or object required". When you assign the control variable r1 and r2, what types of variables are these? Range?

 

[Norie]

If CC and BB are ranges any loop control variable you use with them will also be a range and should be declared as such.

 

[SBF12345]

Will the machine know to step from the G row variable to the I row variable in .Range(Cells(G, "A"), Cells(I, "A")).Row when

Set R2 = .Range(Cells(G,"A")).Row

?

 

[MARK858]

Why do you have .Row in the below

BB = PA.ws.Range(Cells(G, "A"), Cells(I, "A"))[COLOR="#FF0000"].Row[/COLOR]

which changes it from a Range to a number when you have it looping through a range below?

For Each Row In BB

and below you are using Set which only applies to an Object(in this case a range) when the .Row again changes the Range to a number.

Set R2 = .Range(Cells(G,"A")).Row

I think you need to post your full code