Select a random number from a list then remove, rinse, repeat

[tezza]

Hi all,

Ok, I'll try to explain what I need.

I have a number list 1 - 90

The numbers are split in 9 groups

I need to randomly pick 5 groups then randomly pick 1 number from each of the groups,
Show the numbers picked
remove the picked numbers from the original list

After the first round of picks the list of numbers reduce by five

With the remaining numbers I need to repeat the process - choose 5 random numbers from 5 random groups and remove from list

Rinse and repeat until there are no numbers left

When all the numbers in a group have been used then that group needs to be eliminated.

Bingo.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB	BC	BD	BE	BF	BG	BH	BI	BJ	BK	BL	BM	BN	BO	BP	BQ	BR	BS	BT	BU	BV	BW	BX	BY	BZ	CA	CB	CC	CD	CE	CF	CG	CH	CI	CJ	CK	CL	CM	CN	CO	CP	CQ	CR
1	Random No:						Group									Group										Group										Group										Group										Group										Group										Group										Group
2	1	2	3	4	5		1									2										3										4										5										6										7										8										9
3	11	34	40	68	71		1	2	3	4	5	6	7		9	10		12	13	14	15	16	17	18	19	20		22	23	24	25	26	27	28	29	30	31	32	33		35	36	37	38			41	42	43	44		46	47		49	50	51	52	53	54		56		58	59	60	61		63	64	65	66	67		69	70		72	73	74	75	76	77	78	79		81	82	83	84		86	87	88	89	90
4	8	21	48	55	80		1	2	3	4	5	6	7		9	10		12	13	14	15	16	17	18	19	20		22	23	24	25	26	27	28	29	30	31	32	33		35	36	37	38			41	42	43	44		46	47		49	50	51	52	53	54		56		58	59	60	61		63	64	65	66	67		69	70		72	73	74	75	76	77	78	79		81	82	83	84		86	87	88	89	90
5	39	45	57	62	85		1	2	3	4	5	6	7		9	10		12	13	14	15	16	17	18	19	20		22	23	24	25	26	27	28	29	30	31	32	33		35	36	37	38			41	42	43	44		46	47		49	50	51	52	53	54		56		58	59	60	61		63	64	65	66	67		69	70		72	73	74	75	76	77	78	79		81	82	83	84		86	87	88	89	90
Sheet1

 

[Peter_SSs]

Peter, is everything ok?

Absolutely

Your interactions through this post have been irregularly negative, and almost implying I'm thick or something.

Sorry if you feel that way. I thought that I was offering more than most other helpers in the forum.

That probably explains why all the 4's came out one after the other, the actual chances of that is higher than winning the lottery, but don't worry, I get your point - EXACTLY

I'm glad you get my point, random choices are just that. Those values were generated randomly!

Not to worry, in the background the answer silently came, without any negativity:

I'm glad that the answer came magically and without any negativity (& without complete randomness as the patterns in Sub setPatterns(ByRef Patterns As Object) and Sub setSix(ByRef Six As Object) not at all random)

Still, if you are happy, then so am I.
Thanks for letting us know.