No repeat of last ten numbers (Randbetween())

[xslim12]

I am looking to build a workbook that uses the randbetween function to randomly choose numbers but does not select numbers that were selected in the previous 15 randbetween cells. How would I do this? I have come down to the conclusion that this can only be solved with VBA, which I am still a noobie in.

This is the structure of the workbook.

Column A (1000 rows): Randbetween(1,100)
Column B (985 rows, starts 15 rows down): Randbetween(1,100) but rerun the randbetween(1,100) if initial number provided was selected in previous 15 rows. I want to have 15 columns of this in which now it accounts for the previous 15 rows and each prior column.

[kalak]

responding to the title of your thread, here's a code for producing non-repeating random groups of 10

put it in a code module and run it on a blank worksheet to see what it does

perhaps you can adapt it to the desired structure of your workbook

Sub maslik()

Const n As Long = 10
Const q As Long = 15 'for randbetween 1 and q
Const c = 8 'desired number of columns

Dim b() As Boolean
Dim j As Long, s As Long, x As Long

For j = 1 To c
ReDim b(q)
s = 0
    Do
        x = Application.RandBetween(1, q)
        If Not b(x) Then
            s = s + 1
            Cells(s, j) = x
            b(x) = True
        End If
    Loop Until s = n
Next j

End Sub

[xslim12]

responding to the title of your thread, here's a code for producing non-repeating random groups of 10

put it in a code module and run it on a blank worksheet to see what it does

perhaps you can adapt it to the desired structure of your workbook

Sub maslik()



Const n As Long = 10
Const q As Long = 15 'for randbetween 1 and q
Const c = 8 'desired number of columns

Dim b() As Boolean
Dim j As Long, s As Long, x As Long

For j = 1 To c
ReDim b(q)
s = 0
    Do
        x = Application.RandBetween(1, q)
        If Not b(x) Then
            s = s + 1
            Cells(s, j) = x
            b(x) = True
        End If
    Loop Until s = n
Next j

End Sub

Kalak, thanks for the reply. I actually figured out a way to make it work without VBA although it was very tedious (6 tabs and match functions). I will give this code a shot sometime when my coding knowledge is up to par.