# Generate number combinations without duplicate pairings

Hi,
I need a VBA code to generate 5 number combinations from 1 to 50 without repeating pairs, order does not matter (ex. combination 1 2 3 4 5, number 1 cannot repeated with numbers 2 3 4 5 in the next combinations)
###### Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Older than dirtCommented:
Please show a few examples of what you want.
0
Author Commented:
Let's say two combinations 5 8 11 18 20 and 5 7 11 17 21 thats not good because the pair 5 and 11 is repeating I wanna generate combinations without such repeats
Thanks
0
Older than dirtCommented:
This will generate 50 of them. Change the 50's in line 8 and 15 to generate more or less.
``````Sub RandomPairs()

Dim colR As New Collection
Dim intNum As Integer

Randomize

Do Until colR.Count = 50
intNum = Int(50 * Rnd) + 1
On Error Resume Next
On Error GoTo 0
Loop

For intNum = 1 To 50
Debug.Print colR(intNum)
Next
End Sub
``````
1
Fabrice LambertCommented:
Hi,

Maybe with the help of a collection (knowing the key must be unique):
``````Public Function getSerie() As Collection
On Error GoTo Error
Dim col As Collection
Set col = New Collection

Randomize
Dim i As Integer
For i = 1 To 5
Dim number As Integer
tryAgain:
number = Int(50 * Rnd) + 1
Next
Set getSerie = col
Exit Function
Error:
Resume tryAgain
End Function
``````
0
Older than dirtCommented:
Fabrice, what advantage does yours have over mine?
0
Fabrice LambertCommented:
Only the fact that it is a function returning the collection.

Note: Your solution wasn't showing up when I posted.
0
Author Commented:
Martin Liss, thank you for your help.

But how do I get it working?

Thanks
0
Older than dirtCommented:
Try this workbook. Click the 'Generate Pairs' button.
29091733.xlsm
0

Experts Exchange Solution brought to you by