rassal sayı atama

[lorenz2015]

Merhaba

elimde bir liste var 50 kişilik, ben rassal olarak sıralamak istiyorum. yani 1-den 50 ye kadar sayı vermek istiyorum ve sayıların tek sefer kullanılması ve tekrar etmemesini istiyorum.
mesela 5 kişi olsaydı.
a= 3
b= 1
c= 4
d= 5
e= 2 gibi...
teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

    [COLOR="Indigo"][B]Son = 50[/B][/COLOR]
    
    Dim arr() As Long
    Min = "1"
    Max = Son
    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
    
End Sub

Örnek; http://www.excel.web.tr/f48/kary-yk-sayy-uretme-ve-syralama-t160111.html

. . .

 

[lorenz2015]

tam anlayamadım,
örnek dosyayı aşağıda gönderiyorum.
1 den 9 a kadar olan sayıları rassal dağıtmak istiyorum.
orada gösterirseniz sevinirim.
teşekkürler

http://s2.dosya.tc/server3/gouhkm/ornek_51216.xlsx.html

 

[lorenz2015]

şimdi anladım, süper olmuş çok teşekkürler