1 den Atanan Bir Değişkene Kadar Benzersiz Rastgele Sayı Üretmek

[hermesss]

iyi günler hazırladığım makroda, yapmak istediğim işi tam olarak başaramadığım için sizden yardım etmenizi rica ediyorum. durum şöyleki excell makroda belli bir listede benzersiz sayı üretmek istiyorum fakat bu işlemin benzersiz olarak tekrarlanmasını istiyorum. örnek olarak 1 ve 289 arasında 17 şerli 17 grup yapmak istiyorum bunu başarıyorum fakat bunu devam ettirmeye çalıştığımda başarılı olamıyorum. makro aşağıdaki gibi....

Sub KOD()
Application.ScreenUpdating = False
Dim arr() As Long

Min = 1 'başlangıç
Max = 289 'bitiş
Grup = 17 'gruplama

Cells.ClearContents
ReDim arr(Max - Min)
say = 0

For i = Min To Max
arr(say) = i
say = say + 1
Next

For j = 0 To UBound(arr)
x = Int(((Max - Min) * Rnd))
temp = arr(x)
arr(x) = arr(j)
arr(j) = temp
Next j

For i = 0 To UBound(arr)
Cells(i + 1, "A") = arr(i)
Next

sat = 0
süt = 2
For a = 1 To Cells(Rows.Count, "A").End(3).Row
sat = sat + 1
Cells(sat, süt) = Cells(a, "A")
If sat = Grup Then
süt = süt + 1
sat = 0
End If
Next a

Application.ScreenUpdating = True
MsgBox "B i t t i"
End Sub