Random Number Array
 

I have a variable number (RecordCount) and I want to select 15 random numbers
from it and stuff them into an array. I suspect the following code won't
preclude the possibility of getting repeat numbers. How do I insure that each
of the 15 numbers will be unique?

Opiton Explicit
Option Base 1
Dim Iloop as Double
Dim RecordCount as Double

For ILoop = 1 To 15
RndNo(ILoop) = Int((RecordCount * Rnd) + 1)
Next ILoop

--
Ken Hudson

Random Number Array
 

I'd start by looking at JE McGimpsey's site:

http://www.mcgimpsey.com/excel/udfs/randint.html

Ken Hudson wrote:

I have a variable number (RecordCount) and I want to select 15 random numbers
from it and stuff them into an array. I suspect the following code won't
preclude the possibility of getting repeat numbers. How do I insure that each
of the 15 numbers will be unique?

Opiton Explicit
Option Base 1
Dim Iloop as Double
Dim RecordCount as Double

For ILoop = 1 To 15
RndNo(ILoop) = Int((RecordCount * Rnd) + 1)
Next ILoop

--
Ken Hudson

--

Dave Peterson