Generating a combination matrix

Hi

Lots of possibilities (including one of my own!) in the following thread:

http://www.mrexcel.com/forum/showthread.php?t=346194&highlight=cartesian+product

or :-

[\*Code]
Dim x As Long
Dim y As Long
Dim z As Long

Dim x_c As Long
Dim y_c As Long
Dim z_c As Long

Dim No_of_Rows As Long
Dim Current_Row As Long

Current_Row = 1

x = Sheets("Sheet2").Range("A1").End(xlDown).Row
y = Sheets("Sheet2").Range("B1").End(xlDown).Row
z = Sheets("Sheet2").Range("C1").End(xlDown).Row

MsgBox x & y & z
x_c = 1
y_c = 1
z_c = 1


No_of_Rows = x * y * z

MsgBox No_of_Rows

'First Column

Do

Sheets("Sheet1").Cells(Current_Row, 1).Value = Sheets("Sheet2").Cells(x_c, 1).Value
Sheets("Sheet1").Cells(Current_Row, 2).Value = Sheets("Sheet2").Cells(y_c, 2).Value
Sheets("Sheet1").Cells(Current_Row, 3).Value = Sheets("Sheet2").Cells(z_c, 3).Value


MsgBox x_c & y_c & z_c

x_c = x_c + 1
y_c = y_c + 1
z_c = z_c + 1

If x_c > x Then
x_c = 1
End If

If y_c > y Then
y_c = 1
End If

If z_c > z Then
z_c = 1
End If

Current_Row = Current_Row + 1

Loop Until Current_Row > No_of_Rows



End Sub

[\Code]

These are great, thanks guys, problem solved as usual after posting here.