SET OF 6 NUMBERS FROM 1-49

Here's a couple of links to help you out on selecting the unique random numbers.

http://www.mrexcel.com/board/viewtopic.php?topic=5460&forum=2

http://www.mrexcel.com/board/viewtopic.php?topic=4990&forum=2

I'm biased and I like my code on the second thread.

(wouldn't it be easier to simply use the random number generator at the lottery outlet? )

Take it easy.

You can find a single-pass generator that is also memory efficient at
http://groups.google.com/groups?saf...98a667@msnews.microsoft.com&lr=&num=100&hl=en

You can try the following code. Its adapted off a post I made for another poster.
<pre>Option Base 1
Sub RandomNumberStrings()

Dim rndno As String, strg As String, msg1 As String
Dim r1() As String, r2() As String
Dim l As Integer, u As Integer, NoStr As Integer, SetCount As Integer
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim a As Variant

l = 1 'Low number in range
u = 49 'High number in range
SetCount = 10 '# of random number sets
NoStr = 6 '# of random numbers in sets
ReDim r1(NoStr)
ReDim r2(SetCount)
For i = 1 To SetCount
Do
For j = l To NoStr
Do
rndno = Int((u - l + 1) * Rnd + l)
For k = 1 To j
If rndno = r1(k) Then
Exit For
ElseIf k = j Then
Exit Do
End If
Next k
Loop
r1(j) = rndno
Next j
strg = Join(r1, ",")
ReDim r1(NoStr)
For m = 1 To i
If strg = r2(m) Then
Exit For
ElseIf m = i Then
Exit Do
End If
Next m
Loop
r2(i) = strg
Next i
For Each a In r2
msg1 = msg1 & a & Chr(10)
Next a
MsgBox msg1

End Sub</pre>

Sounds like Lotto fever to me...
This message was edited by Mark W. on 2002-08-14 12:49