sayı üretmek

[Muhammet Okumuş]

sn leumruk çok teşekkür ederim.sn leumruk bazen sayıları hepsini aynı anda sıralıyor.bazen sayılar tekrarsız oluyor.bazen aynı sayılar gelebiliyor.bunun mantığı nedir.

 

[leumruk]

Sonuçta sayıları rastgele üretiyor. Dolayısıyla aynı sayı gelmesi doğal. Siz aynı sayıların denk gelmesini istemiyor musunuz?

 

[Muhammet Okumuş]

hocam aynı sayıların gelmesi ve gelmemesi ne gibi değişiklikle olur

 

[leumruk]

Sub uret()
Randomize
Sat = [a65536].End(3).Row
For i = 1 To 100
BASLA:
[COLOR="Red"][B]Sayi [/B][/COLOR]= Int((Rnd * 100) + 1)
[COLOR="red"][B]If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(Sat, "a")), Sayi) > 0 Then GoTo BASLA[/B][/COLOR]
Cells(i, 1) = Sayi
Exit Sub
End Sub

Bu küçük örnekte açıklayayım. Bu kod tek sütunda benzersiz sayı üretir. Mantık şu:
Sayi değerine rastgele sayı üretiliyor. Hemen sonraki satırda üretilen bu sayı saydırılıyor. Eğer varsa ki bu sayım sonucunun 0'dan büyük olması anlamına geliyor. Başa dönerek tekrar sayı üretiyor. Ve sütunu yeniden sayıyor, ta ki üretilen bu sayı sütunda 0 tane çıkana kadar. Sonrasında bu sayıyı geçerli hücreye ekliyor.