Unique random numbers from a range of numbers

[Roestvlek]

Hello all,

Maybe some one could help me with this code.
I would like to pick 25 unique random numbers from a column and give them a color
the code below does that but it also picks also duplicates and that's something I don't want.
Is there a code that prevents getting duplicates?


Dim randomNum As Long

For Rcounter = 1 To 25 'door het cijfer aan te passen verander je de aantallen die willekeurig worden gekozen
randomNum = WorksheetFunction.RandBetween(StartRow, LastRow)
Cells(randomNum, ColumnD).Interior.Color = RGB(255, 207, 153)
Cells(randomNum, ColumnD).Select
Next Rcounter


Thanks in advance for your help,
RV

[Kaper]

staying close to the original code you could try:

Please Login or Register  to view this content.

[Roestvlek]

Hello Kaper,

This works perfect, thank you very much
a complete other approach then I was thinking, thumbs up

Have a nice day,
RV

[davsth]

posted in error

[Kaper]

Well, the approach is almost the same as yours.
Only the loop is "conditional"
With For...Next loop you advance a loop counter always when the loop content is executed.
In Do...Loop you can advance counter only when some condition (like random draw of empty cell) is met.

If (I think so) the solution fits your needs, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

[Roestvlek]

again, thanks...