Hi,

Alter the array dimension to 49 and change this bit of code:-

Dim n(49)

Change these few lines of code.

If Count 65536 Then
Count = 1
colno = colno + 7
End If

Cells(Count, colno + 2).Value = firstno
Cells(Count, colno + 3).Value = secondno
Cells(Count, colno + 4).Value = thirdno
Cells(Count, colno + 5).Value = fourthno
Cells(Count, colno + 6).Value = fifthno
Cells(Count, colno + 7).Value = sixthno
Count = Count + 1

Be prepared to be sat there for a long while if you ask it to start perming
6 from 49 because it's 14million combinations.

Mike

"Dave" wrote:

Hi Mike,

I like that, the limit of 21 numbers is plenty (we can't afford more than
£54k a week!!) but could it do all the permutations?

D

"Mike H" wrote:

Try this worksheet code.

A couple of points. It uses whetver is in column A as the numbers to perm
and the code include no validation. You should therefore set up some data
validation to ensure unique positive numbers and no text. In it's current
form it will perm a maxumum of 21 numbers, I stoppoed there because Excel
2003 runs out of rows to recird the result.


Sub thelottery()
Count = 1
lastrow = Range("A65536").End(xlUp).Row
Set myRange = Range("A1:A" & lastrow)
For Each c In myRange
numbers = numbers + 1
Next
Dim n(20)
For p = 1 To numbers
n(p) = Cells(p, 1).Value
Next
For i = 1 To numbers
For j = 1 To numbers
If j <= i Then GoTo 100
For k = 1 To numbers
If k <= j Then GoTo 200
For l = 1 To numbers
If l <= k Then GoTo 300
For m = 1 To numbers
If m <= l Then GoTo 400
For o = 1 To numbers
If o <= m Then GoTo 500
For x = 1 To numbers
If i = x Then firstno = n(x)
Next
For x = 1 To numbers
If j = x Then secondno = n(x)
Next
For x = 1 To numbers
If k = x Then thirdno = n(x)
Next
For x = 1 To numbers
If l = x Then fourthno = n(x)
Next
For x = 1 To numbers
If m = x Then fifthno = n(x)
Next
For x = 1 To numbers
If o = x Then sixthno = n(x)
Next
Cells(Count, 2).Value = firstno
Cells(Count, 3).Value = secondno
Cells(Count, 4).Value = thirdno
Cells(Count, 5).Value = fourthno
Cells(Count, 6).Value = fifthno
Cells(Count, 7).Value = sixthno
Count = Count + 1
500 Next
400 Next
300 Next
200 Next
100 Next

Next
Cells(1, 8).Value = Count - 1
End Sub


Mike
"Dave" wrote:

Hi,

In the UK lottery of 49 numbers 6 numbers makes a line. Our lottery
syndicate would like to enter every possible combinattion of 9 numbers (or
possibly 10). It's easy to work out that any 6 from 9 is 84 combinations ( 6
from 10 = 210) but it's much harder to work out what those combinations are.
At least it is if you have to guarantee accuracy because potentially a lot of
money rides on it.

So, the question is if i enter the 9 numbers in Excel can it work out and
list the 84 combinations?

D