Generating random but non-repetitive numbers

[yxz152830]

Hey gurus, first one is from a tutorial:

Function aasd(maxzone, number)

Dim d As New Dictionary
Dim entry As Integer
Application.Volatile
Do
entry = Int(Rnd() * maxzone + 1)
d(entry) = ""
Loop Until d.Count = number
aasd = Application.Transpose(d.Keys)
End Function

I tried different method, are they essentially the same plus I can define the lower bound ? Thanks!

Function asd(lower, upper, many)
Dim d As New Dictionary
Dim a
Application.Volatile
If many > 1 and upper>many and upper>lower Then
Do
a = Application.WorksheetFunction.RandBetween(lower, upper)
d(a) = ""
Loop Until d.Count = many
Else
End
End If
asd = Application.Transpose(d.Keys)

End Function

 

[Akuini]

I tried different method, are they essentially the same plus I can define the lower bound ? Thanks!

Function asd(lower, upper, many)

Just another option, using collection:

Function asd(lower, upper, many)
Dim i As Long, x As Long, va
Dim coll As New Collection
    For i = lower To upper
        coll.Add i
    Next
    ReDim va(1 To many)
    For i = 1 To many
        x = WorksheetFunction.RandBetween(1, coll.Count)
        va(i) = coll(x)
        coll.Remove (x)
    Next
asd = Application.Transpose(va)
End Function

To get 10 unique random number between 50 to 100:

Sub try()
Range("A1:A10") = asd(50, 100, 10)
End Sub