Rastgele sayı üretme

[ferhatgurbuz]

Arkadaşlar kolay gelsin. Aşağıdaki kodu buldum. Fakat şöyle birşey olursa çok güzel olacak. Safya ikideki A1 ile A600 arasında eğer bu üretilen sayılardan var ise o sayıyı tekrar vermeyecek.

Örnek verecek olursam. Eğer A13 hücresinde 13 sayısı var ise sayı üretirken 13 ü vermeyecek. yani bir üretilen sayı bir daha üretilmeyecek.




Sub RASTGELE_SAYI_ÜRET_1()
[A1] = Int((600 * Rnd) + 1)
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub RASTGELE_SAYI_ÜRET()
10  Sayi = Int((600 * Rnd) + 1)
    If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A1:A600"), Sayi) > 0 Then GoTo 10
    Range("A1") = Sayi
End Sub

 

[ferhatgurbuz]

Teşekkür ederim ellerinize sağlık. hayırlı akşamlar.