Nested Loop Not Populating Down the Rows

[CatLadee]

Hi all,

Any ideas why this nested loop is staying on just one row and not pulling down? Thanks in advance - CatLadee

r = 1
[COLOR=#00007F][FONT=Calibri]For[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] intOuter = 1 [/FONT][/COLOR][COLOR=#00007F][FONT=Calibri]To[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] intOptions - 1[/FONT][/COLOR]

[COLOR=#00007F][FONT=Calibri]For[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] intInner = intOuter + 1 [/FONT][/COLOR][COLOR=#00007F][FONT=Calibri]To[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] intOptions[/FONT][/COLOR]
[COLOR=#00007F][FONT=Calibri]       With[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] Range("Output_Tbl")[/FONT][/COLOR]
[COLOR=#3F3F3F][FONT=Calibri]                .Offset(r, 0).Value = intPairs[/FONT][/COLOR]
[COLOR=#3F3F3F][FONT=Calibri]                .Offset(r, 1).Value = intOuter[/FONT][/COLOR]
[COLOR=#3F3F3F][FONT=Calibri]                .Offset(r, 2).Value = arrOptions(r)[/FONT][/COLOR]
[COLOR=#3F3F3F][FONT=Calibri]                .Offset(r, 3).Value = intInner[/FONT][/COLOR]
[COLOR=#3F3F3F][FONT=Calibri]                .Offset(r, 4).Value = arrOptions(r)[/FONT][/COLOR]
[COLOR=#00007F][FONT=Calibri]       End [/FONT][/COLOR][COLOR=#00007F][FONT=Calibri]With[/FONT][/COLOR]
[COLOR=#00007F][FONT=Calibri]Next[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] intInner[/FONT][/COLOR]

[COLOR=#00007F][FONT=Calibri]Next[/FONT][/COLOR][COLOR=#3F3F3F][FONT=Calibri] intOuter[/FONT][/COLOR]

Next intOuter

 

[CatLadee]

I've changed it to this - same problem

  r = 1              
    With Range("Output_Tbl")
    For intOuter = r To intOptions - r '1 to 3
        For intInner = intOuter + r To intOptions
            
                .Offset(r, 0).Value = intPairs
                .Offset(r, 1).Value = intOuter
                .Offset(r, 2).Value = arrOptions(r)
                .Offset(r, 3).Value = intInner
                .Offset(r, 4).Value = arrOptions(r)
            
        Next intInner
    
    Next intOuter
    End With

 

[Rick Rothstein]

You are setting the variable 'r' to 1 before the loop starts, then nowhere inside the loops do you ever change the value of 'r', so it remains 1 for each iteration of the loops. I am not entirely sure what you are ultimately trying to do, but that is at the heart of your question/problem.

 

[CatLadee]

You are setting the variable 'r' to 1 before the loop starts, then nowhere inside the loops do you ever change the value of 'r', so it remains 1 for each iteration of the loops. I am not entirely sure what you are ultimately trying to do, but that is at the heart of your question/problem.

Thanks, Rick! I added an r loop that fixed part of the issue but it's still not clicking.

This is supposed to pull a string of text from a CSV file with a short list of items and compare them in the output to a worksheet like this:

Comparison <tbody> </tbody>	Index1	Option 1	Index2	Option 2
1	1	Vanilla	2	Choc
2	2	Choc	3	Straw
3	3	Straw	1	Vanilla

<tbody>
</tbody>

---
But mine looks like this - only the initial column is correct.

Comparison <tbody> </tbody>	Index1	Option 1	Index2	Option 2
1	3	Vanilla	2	Vanilla
2	3	Vanilla	2	Vanilla
3	3	Vanilla	2	Vanilla

<tbody>
</tbody>

Open fileName For Input As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL]     Line Input [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , dataLine
    
    arrOptions = Split(dataLine, ", ")
      
    Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] 
                  
    For r = LBound(arrOptions) To UBound(arrOptions)
        
        intOptions = r + 1
    
    Next r
           
   
    intPairs = (intOptions - 1) * (intOptions / 2)
    
    With Range("Output_Tbl")
        For r = 1 To intOptions
            For intOuter = 1 To intOptions - 1 ' DOESNT WORK '1 to 3
                For intInner = 1 + 1 To intOptions '2 to 4
        
                    .Offset(r, 0).Value = r 'Only one that Works
                    .Offset(r, 1).Value = intInner
                    .Offset(r, 2).Value = arrOptions()
                    .Offset(r, 3).Value = intOuter
                    .Offset(r, 4).Value = arrOptions()
                
                Next intInner
             Next intOuter
        Next r
    End With