Two dimensional array with multi loop control

[giri u]

I am try to run this code but its showing error

i want to run after first step of i loop go to next step of j loop

how to run this any one plz help me

Private Sub test()
Dim Col_List As Variant, To_List As Variant
Dim j As Long,i As Long

To_List = Array("Product Value", "Product Description", "UOM", "Mrp", "Value")
Col_List = Array("Product Value", "Product Description", "UOM", "[ ]", "Value")

For j = LBound(To_List) To UBound(To_List)
For i = LBound(Col_List) To UBound(Col_List)

Rest = To_List(j) & "/" & Col_List(i)

Next j
Next i

End Sub

 

[Alex Blakenburg]

I am not clear on what you want to achieve here, especially you don't seem to be doing anything with Rest.
The obvious things are:
• Rest is not dimmed
• Your For / Next pairs are out of Sync
You have "For j" first. This means the "Next j" should be last so that the For i & Next i are completely within j's For/Next

Private Sub test()
    Dim Col_List As Variant, To_List As Variant
    Dim j As Long, i As Long
    Dim Rest As String
    
    To_List = Array("Product Value", "Product Description", "UOM", "Mrp", "Value")
    Col_List = Array("Product Value", "Product Description", "UOM", "[ ]", "Value")
    
    For j = LBound(To_List) To UBound(To_List)
        For i = LBound(Col_List) To UBound(Col_List)
            Rest = To_List(j) & "/" & Col_List(i)
            Debug.Print Rest
        Next i
    Next j

End Sub

 

[giri u]

i need to run before go to Next i Next j
output like (To_List& "/" &Col_List) each one 1&1 2&2 3&3

 

[Alex Blakenburg]

At the moment you are getting:
1&1,1&2,1&3.....2&1,2&2,2&3....

If both arrays have the same no of elements and you want a 1 for 1 match then just use 1 loop and use the same counter for both arrays eg

Private Sub test()
    Dim Col_List As Variant, To_List As Variant
    Dim j As Long, i As Long
    Dim Rest As String
    
    To_List = Array("Product Value", "Product Description", "UOM", "Mrp", "Value")
    Col_List = Array("Product Value", "Product Description", "UOM", "[ ]", "Value")
    
    For j = LBound(To_List) To UBound(To_List)
            Rest = To_List(j) & "/" & Col_List(j)
            'Debug.Print Rest
    Next j

End Sub