Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating Unique Random Numbers?
Hi everyone,
I found the below code on this board (I think it originated from Tom Ogilvy). I need to put the generated numbers in a row but the list generated is designed for a column (if this makes any sense at all). Its probably simple but I am new at this stuff and would appreciate any help. Rgds, Ozgur Sub GetThem() Dim arrCheck(1 To 800) As Long Dim arrList(1 To 799) As Long Dim j As Long Dim N As Long Const LNG_PLUG As Long = 999 j = 1 Do While j < 4 'Get a random number Randomize N = Int(Rnd * 800 + 1) 'If number unique then add to arrList. If arrCheck(N) < LNG_PLUG Then arrList(j) = N arrCheck(N) = LNG_PLUG j = j + 1 End If Loop Sheets(1).Range("A4:A6").Value = arrList() ' Sheets(1).Range(Cells(5, 1), Cells(5, Sheets(1).Range("b1"))).Value = arrList() End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unique Random Numbers | Excel Discussion (Misc queries) | |||
Unique RANDOM NUMBERS within specified range | Excel Worksheet Functions | |||
Unique random numbers from list | Excel Discussion (Misc queries) | |||
generate unique random numbers | New Users to Excel | |||
unique random numbers | Excel Programming |