Rasgele Sayı Üretme (Farklı Sayılar Olmalı)

[conkz]

Merhaba,

Bir çalışmam için rasgele sayı üretmem lazım. Ama söz konusu sıkıntı hiçbir sayının aynı olmaması gerek. Örneğin 1'den 10.000 e kadar rasgelearada formülü ile tam sayı üretecek, aynı zamanda da hiçbir sayının aynı olmaması gerek. Ve 10.000'e kadar tüm sayıları da üretmem gerek. 10.000 satır olacak anlayacağınız. Yardımlarınız için şimdiden teşekkür ederim.

 

[Huseyinkis]

ekteki kodlarla A2 den A10001 kadar 10000 tane 10000 i aşmamak kaydı ile sayı üretir. Rakamlarla oynayarak istediğiniz aralıkta yapabilirsiniz. hesaplama uzun sürer 10000 de 10000 aradığınız için adetle alakası yok 10000 tane rakam 20000 sayının içinde olsaydı daha kısa olurdu.

Sub deneme()
For X = 2 To 10001
Basla: SAYI = Int((10000 * Rnd) + 1)
If WorksheetFunction.CountIf(Range("A2:A10001"), SAYI) > 0 Then GoTo Basla
Cells(X, 1) = SAYI
Next
End Sub