RANDBETWEEN No Repeats w/ VBA Macro Button

[btone]

Hey All,

I believe this is a fairly easy problem I am trying to solve, but I'm still in the beginning stages of learning VBA. I created a macro button that places random numbers in 6 assigned boxes. However, I cannot have any repeat numbers. I don't know how to implement the "no repeat" syntax into my code. Any help would be appreciated.

Sub Test()
    With Range("RandomTable")
        .Formula = "=RANDBETWEEN(1,6)"
        .Value = .Value
    End With
End Sub

Thank you,
Brandon


Random.xlsb

[stnkynts]

You will want to utilize a unique random number generator. Something like this: http://stackoverflow.com/questions/1...bers-using-vba

[AlphaFrog]

Sub Test()
    Dim v(1 To 6, 1 To 1) As Single, i As Long, RandNum As Integer
    Static bRandomized As Boolean
    If Not bRandomized Then Randomize: bRandomized = True
    For i = 1 To 6
        Do
            RandNum = Int(6 * Rnd + 1)
        Loop Until IsError(Application.Match(RandNum, v, 0))
        v(i, 1) = RandNum
    Next i
    Range("RandomTable").Value = v
End Sub

[btone]

Thank you both for your help.

AlphaFrog,

Your code worked great.