Multiple Random number generation on a series

[clintonjh]

Does anyone know how to generate up to 6 random numbers from a series?

Would appreciate some help.

Thank you

[eliW]

On 2002-05-15 21:25, clintonjh wrote:
Does anyone know how to generate up to 6 random numbers from a series?

Would appreciate some help.

Thank you

Hi clintonjh,

If your numbers are range A1:A30 for example, then put in an empty cell (B1) the formula:

=INDEX($A$1:$A$30,RANDBETWEEN(1,30))

Drag it down 6 rows and you'll get 6 random numbers from your series.
You can also use F9 to get another new 6 numbers.

Eli

[sen_edp]

Hello

Dave Hawley wrote a UDF called Randlotto

take a look

http://www.mrexcel.com/board/viewtop...rum=2&start=20

Hope that helps

[Jack in the UK]

Sub Jack() ' Lucky_Lottery_Numbers
'I designed this as i felt like it really & just to learn a bit.
'The trick was not to random produce numbers, but to FIND numbers selected at rand
'All in all the type of code can be used for many diff ideas, the search system
'is cool and will do the business, the loop will give a list and custom as desired

'As with all my work, i could not care if you use the codes or hack, bastardise it, but
'i do dedicate all my work to friends.

'(Please.. If you use my codes...
'Give a kind thought to them, they all me the world to me)

' Dedicated to ......... (ive delete this bit people how know me well will know –
‘ I dedicate to my lost friends – I miss so much normally
‘ yes I do name them …. Take care friends!

On Error GoTo Z


Application.ScreenUpdating = False
Dim Lottery_Numbers(6)
Range("B4:O6,E7:K7").Select
With Selection
.Borders(xlLeft).LineStyle = xlNone
.Borders(xlRight).LineStyle = xlNone
.Borders(xlTop).LineStyle = xlNone
.Borders(xlBottom).LineStyle = xlNone
.BorderAround LineStyle:=xlNone
.Interior.ColorIndex = xlNone
End With
Range("A1").Select
For Different_Number = 1 To 6
Choose:
Lottery_Numbers(Different_Numbers) = Int((49) * Rnd + 1)
Cells.Find(What:=Lottery_Numbers(Different_Numbers)).Activate
Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic
If Selection.Interior.ColorIndex = 35 Then GoTo Choose
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next Different_Number
Z:

End Sub


MARKER Lotto

[Jack in the UK]

You will need to have cells with number exactley in these cells or edit the range in the code see post above.

Microsoft Excel - Lottery No.xls_______________Running: xl2002 XP : OS = Windows (32-bit) NT 5.00
(F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp
M10		=
*	B	C	D	E	F	G	H	I	J	K	L	M	N	O
4	1	2	3	4	5	6	7	8	9	10	11	12	13	14
5	15	16	17	18	19	20	21	22	23	24	25	26	27	28
6	29	30	31	32	33	34	35	36	37	38	39	40	41	42
7	*	*	*	43	44	45	46	47	48	49	*	*	*	*
Jack In the UK's Lottery Number

To see the formula in the cells just click on the cells hyperlink

The above image was automatically generated by [HtmlMaker V1.20]
If you want this code, click here and Colo will email the file to you.
This code was graciously allowed to be modified: by Ivan F Moala All credit to Colo


_________________
If you can help a guy in trouble -
If you can sort that nagging problem -
Pease try, at home, at work or on a message board.

Others help you!
So PLEASE help if you can - If only the once.

Thank you -

Rdgs
======

[ This Message was edited by: Jack in the UK on 2002-05-16 06:44 ]