Different Random Numbers
 

Sub Gen5()
Dim varr(1 To 15) As Long
Dim varr1(1 To 15) As Long
Dim list(1 To 5) As Long
Dim list1(1 To 5) As Long
Dim i As Long, j As Long
Dim num As Long
For i = 1 To 15
varr(i) = i
varr1(i) = i + 15
Next

j = 1
Do While j < 6
num = Int(Rnd * 15 + 1)
If varr(num) < 0 Then
list(j) = varr(num)
varr(num) = 0
j = j + 1
End If
Loop

j = 1
Do While j < 6
num = Int(Rnd * 15 + 1)
If varr1(num) < 0 Then
list1(j) = varr1(num)
varr1(num) = 0
j = j + 1
End If
Loop

For i = 1 To 5
Cells(i, 1) = list(i)
Cells(i, 2) = list1(i)
Next

End Sub


--
Regards,
Tom Ogilvy




"Jake" wrote in message
...
I would like to make a list of five random numbers between 1 and 15, and
then another set of five between 16 and 30. I want to be able to regenerate
the numbers quickly, like the rand or randbetween function is capable of
doing, but it is necessary that each of these random numbers is always
different from the other ones (ie: no duplicates) after being generated.
(eg. 3,6,12,5,8 is good, 2,4,14,14,2 is not). I'm sure that's more than
clear, but I just wanted to make sure.