karışık sıralama

[yarali83]

iyi günler.Excelden pek anlamam.benim ihtiyacım olan şey ; 1000 kişilik alfabetik sıralanmış bir isim listesini rastgele karmaşık olarak sıralamak.acaba yardımcı olabilecek bir arkadaşım var mı ? Şimdiden teşekkür ederim.

https://yadi.sk/i/7WfQDsh1v8BiW

 

[tahsinanarat]

Sn. Necdet Yeşertener Beyin kodları

Sub KarisikSirala()
 
    Dim i   As Long, _
        Kol As Integer, _
        Sat As Long
 
    Kol = Cells(1, Columns.Count).End(1).Column + 1 
    Sat = Cells(Rows.Count, "A").End(3).Row
 
    Application.ScreenUpdating = False
 
    For i = 1 To Sat
        Randomize
        Cells(i, Kol) = Rnd
    Next i
 
    Range(Cells(1, 1), Cells(Sat, Kol)).Sort Key1:=Cells(1, Kol)
    Columns(Kol).Delete
 
    Application.ScreenUpdating = True
 
End Sub

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[yarali83]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

çok teşekkür ederim.Elinize sağlık