<div>
Please show a few examples of what you want.
</div>


Please show a few examples of what you want.

<div>
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 <br />
Thanks
</div>


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

<div>
This will generate 50 of them. Change the 50's in line 8 and 15 to generate more or less.<br />

<pre><code id="code-20-42515641-1">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
    colR.Add intNum, Str(intNum)
    On Error GoTo 0
Loop

For intNum = 1 To 50
    Debug.Print colR(intNum)
Next
End Sub</code></pre>
</div>


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
    colR.Add intNum, Str(intNum)
    On Error GoTo 0
Loop

For intNum = 1 To 50
    Debug.Print colR(intNum)
Next
End Sub

<div>
Fabrice, what advantage does yours have over mine?
</div>


Fabrice, what advantage does yours have over mine?

<div>
Only the fact that it is a function returning the collection.<br />
<br />
Note: Your solution wasn't showing up when I posted.
</div>


Only the fact that it is a function returning the collection.

Note: Your solution wasn't showing up when I posted.

<div>
Martin Liss, thank you for your help.<br />
<br />
But how do I get it working?<br />
<br />
Thanks
</div>


Martin Liss, thank you for your help.

But how do I get it working?

Thanks

29091733.xlsm

<div>
No offences Martin, but I don't think you should take all credit for this.
</div>


No offences Martin, but I don't think you should take all credit for this.

<div>
<div class="content wysiwyg-content">
Hi,<br />
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)
</div>
</div>


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)

Generate number combinations without duplicate pairings

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.