VBA Generate random 10 Group of 5 numbers

[motilulla]

Hello,

Looking VBA solution which generate random 10 group of 5 numbers using all 50 numbers in cells D2:H11
List of numbers is in cells A2:A51.
If all numbers are used in to cross check C1 will show sum of 50 numbers = 1275
Example…

Book1
	A	B	C	D	E	F	G	H
1	Numbers		1275	n1	n2	n3	n4	n5
2	1		Group1	34	41	9	20	23
3	2		Group2	21	15	50	5	7
4	3		Group3	19	11	18	30	8
5	4		Group4	32	13	48	12	31
6	5		Group5	1	43	46	39	38
7	6		Group6	36	49	16	26	33
8	7		Group7	10	44	35	27	37
9	8		Group8	25	17	3	45	24
10	9		Group9	40	42	2	14	29
11	10		Group10	4	28	22	47	6
12	11
13	12
14	13
15	14
16	15
17	16
18	17
19	18
20	19
21	20
22	21
23	22
24	23
25	24
26	25
27	26
28	27
29	28
30	29
31	30
32	31
33	32
34	33
35	34
36	35
37	36
38	37
39	38
40	39
41	40
42	41
43	42
44	43
45	44
46	45
47	46
48	47
49	48
50	49
51	50
Random-50

Cell Formulas
Range	Formula
C1	=SUM(D2:H11)

Thanks In Advance
Using version 2000

Regards,
Moti

 

[motilulla]

Try this with different sort code.

[COLOR=Navy]Sub[/COLOR] MG26Jun00
[COLOR=Navy]Dim[/COLOR] Rng [COLOR=Navy]As[/COLOR] Range, Dn [COLOR=Navy]As[/COLOR] Range, R [COLOR=Navy]As[/COLOR] Variant
[COLOR=Navy]Dim[/COLOR] Ray [COLOR=Navy]As[/COLOR] Variant, nRay() [COLOR=Navy]As[/COLOR] Variant
[COLOR=Navy]Dim[/COLOR] c [COLOR=Navy]As[/COLOR] [COLOR=Navy]Integer,[/COLOR] nRdn [COLOR=Navy]As[/COLOR] [COLOR=Navy]Integer,[/COLOR] Ac [COLOR=Navy]As[/COLOR] [COLOR=Navy]Integer[/COLOR]
Ac = 1
[COLOR=Navy]Set[/COLOR] Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
 Ray = Application.Transpose(Rng)
  ReDim nRay(1 To 10, 1 To 5)
                Randomize
    [COLOR=Navy]Do[/COLOR] Until c * Ac = 50
        nRdn = Int(Rnd * Rng.Count) + 1
        [COLOR=Navy]If[/COLOR] Not Ray(nRdn) = vbNullString [COLOR=Navy]Then[/COLOR]
            [COLOR=Navy]If[/COLOR] c = 10 [COLOR=Navy]Then[/COLOR]
                c = 0: Ac = Ac + 1
            [COLOR=Navy]End[/COLOR] If
            c = c + 1
            nRay(c, Ac) = Ray(nRdn)
            Ray(nRdn) = vbNullString
        [COLOR=Navy]End[/COLOR] If
    [COLOR=Navy]Loop[/COLOR]
Range("D2").Resize(10, 5) = nRay
[COLOR=Navy]Set[/COLOR] Rng = Range("D2:D11")
[COLOR=Navy]For[/COLOR] [COLOR=Navy]Each[/COLOR] Dn [COLOR=Navy]In[/COLOR] Rng
  R = Dn.Resize(, 5).Value
    [COLOR=Navy]For[/COLOR] Ac = 1 To 5
        Dn(, Ac) = Application.Small(R, Ac)
    [COLOR=Navy]Next[/COLOR] Ac
[COLOR=Navy]Next[/COLOR] Dn
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]

Regards Mick

Wow! Thumbs up!! MickG, I am amazed this version is sorting ascending perfectly!!

Thank you I appreciate a lot your kind help and patience.


Regards,
Moti

 

[MickG]

You're welcome

 

[Rick Rothstein]

Here is a slightly more compact macro that you may also want to consider...

[table="width: 500"]
[tr]
	[td]Sub FiveGroupsOfTenRandomlyArrangedNumbers()
  Dim Cnt As Long, Index As Long, Tmp As Variant, Nums As Variant
  Randomize
  Nums = [TRANSPOSE(A2:A51)]
  For Cnt = UBound(Nums) To 1 Step -1
    Index = Int(Cnt * Rnd + 1)
    Tmp = Nums(Index)
    Nums(Index) = Nums(Cnt)
    Nums(Cnt) = Tmp
  Next
  For Cnt = 1 To UBound(Nums)
    Range("C1").Offset(1 + ((Cnt - 1) Mod 10), Int(1 + (Cnt - 1) / 10)) = Nums(Cnt)
  Next
  For Cnt = 2 To 11
    Cells(Cnt, "D").Resize(, 5).Sort Cells(Cnt, "D").Resize(, 5), xlAscending, Header:=xlNo, Orientation:=xlLeftToRight
  Next
End Sub[/td]
[/tr]
[/table]

 

[motilulla]

Here is a slightly more compact macro that you may also want to consider...

Hello Rick, Thank you for the giving one another option.

What I was thinking is it any possibility to limit range of numbers by column I mean to say always to be used all 50 numbers no repetitions but for example using in between limits as follow…

For 1^st column - n1 numbers to be limits any in between 1 to 16
For 2^nd column - n2 numbers to be limits any in between 6 to 26
For 3^rd column - n3 numbers to be limits any in between 14 to 35
For 4^th column - n4 numbers to be limits any in between 21 to 43
For 5^th column - n5 numbers to be limits any in between 36 to 50

Regards,
Moti

 

[Rick Rothstein]

Hello Rick, Thank you for the giving one another option.

What I was thinking is it any possibility to limit range of numbers by column I mean to say always to be used all 50 numbers no repetitions but for example using in between limits as follow…

That depends... did you still want to sort the rows from lowest number to highest?

 

[motilulla]

That depends... did you still want to sort the rows from lowest number to highest?

Yes Rick, preferable if it is not a much trouble that makes more easer…

 

[motilulla]

Yes Rick, preferable if it is not a much trouble that makes more easer…

If you think sorting row cause difficulty limiting the numbers in between each column I will be glad with getting unsorted output results.

Thank you

Regards,
Moti

 

[motilulla]

Hello again, any thought about post #14 is it any possibility to limit range of numbers by column

Note: Important must be used all 50 numbers within 10 sets of 5 numbers.

Regards,
Moti

 

[Rick Rothstein]

If you think sorting row cause difficulty limiting the numbers in between each column I will be glad with getting unsorted output results.

I have been looking at this for a couple of days now and am now convinced you cannot do what you are now asking for... and here is why. Lets look at the first column and say these are the random numbers between 1 and 16 that are selected... 1 2 5 7 8 9 11 13 14 16... and randomly scattered about in the first column. Now look as the minimum allowed number in that second column... 6. We did not use the numbers 3 or 4 in the first column and both 3 and 4 are less than the minimum allowed number in the second column so they will never be selected for placement in the table. (This missing number problem can occur again and again as we move through the columns). But there are 50 numbers and 50 cells to fill... if we have numbers that do not get selected, then there will not be 50 total numbers available to fill the 50 cells in the table... but you said every number from 1 to 50 must get used, so we have an impossible situation that has no resolution given your restrictions.

 

[motilulla]

I have been looking at this for a couple of days now and am now convinced you cannot do what you are now asking for (This missing number problem can occur again and again as we move through the columns). But there are 50 numbers and 50 cells to fill... if we have numbers that do not get selected, then there will not be 50 total numbers available to fill the 50 cells in the table... but you said every number from 1 to 50 must get used, so we have an impossible situation that has no resolution given your restrictions.

Thank you Rick, I can understand your explanation is logically and make sense I did not thought that in deeply I am sorry I understand perfectly now, ok if I change my question and say no restrictions of usage 50 numbers no problem if used repeated can you think that could be viable, does in this case can we limit the columns?

I appreciate your help

Regards,
Moti