Advanced loop

[Stevenn]

I am trying to make a loop which loops a total of 20 times with following output based on the two variables limit_x = 3 and limit_y = 4:

x	y
0	0
0	1
0	2
0	3
0	4
1	0
1	1
1	2
1	3
1	4
2	0
2	1
2	2
2	3
2	4
3	0
3	1
3	2
3	3
3	4

<colgroup><col style="width:48pt" span="2" width="64"> </colgroup><tbody>
</tbody>

In other words, I want to go through 5 y's for 4 x's looping from 0 to 4 and 0 to 3 respectively. I hope it's understandable

Can anyone help me to write the loop?

 

[VoG]

Try

Sub test()
Dim x As Long, y As Long, i As Long
For x = 0 To 3
    For y = 0 To 4
        i = i + 1
        Range("A" & i).Value = x
        Range("B" & i).Value = y
    Next y
Next x
End Sub

 

[Stevenn]

Thank u. Just perfect