P

#### paul_black27

I found this while doing a search.

It works fine, but how can I adapt it to take the number of balls

drawn which is in cell H3, the number of balls drawn from which is in

cell I3 and the number of combinations I want to randomly produce x

number of combinations which is in cell J3. These three cells are in a

worksheet called ‘Random Numbers’.

Sub lottery()

Dim my(1 To 49)

For j = 1 To 10

' Reinit array before selecting

For I = 1 To 49

my(I) = I

Next I

For k = 1 To 6

Randomize

NewNumber:

Number = Int(49 * Rnd) + 1

If my(Number) = "" Then

GoTo NewNumber

Else

Cells(j, k) = my(Number)

my(Number) = ""

End If

Next k

Next j

End Sub

I have tried something like this but to no avail ...

Sub Random_Lotto_Numbers()

Dim nDrawn As Long

Dim nfrom As Long

Dim nComb As Long

Dim number As Variant

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Application.DisplayAlerts = False

Worksheets("Random Lotto Numbers").Select

nDrawn = Range("H3").Value

nfrom = Range("I3").Value

nComb = Range("J3").Value

For j = 1 To nComb ' Number Of Combinations

' Reinitialize Array Before Selecting New Line

For I = 1 To nfrom

my(I) = I

Next I

For k = 1 To nDrawn ' Pick 6 Numbers Per Combination

Randomize

NewNumber:

number = Int(nfrom * Rnd) + 1

If my(number) = "" Then

GoTo NewNumber

Else

Cells(j, k) = my(number)

my(number) = ""

End If

Next k

Next j

Application.DisplayAlerts = True

Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

End Sub

Thanks in advance,

Paul