Rastgele İsim Seçme...

[pisagor26]

Değerli üstadlar, ekte yer alan çalışmada yer alan isim listesinden rastgele seçim yapmak istiyorum... Devamında seçilen kişinin tekrar seçilmemesi için hangi kodu kullanmam gerekiyor. Teşekkür ediyorum...

 

[veyselemre]

Seçilenler için D sütununa * atar, seçilecek kişi kalmadığı zaman çalışmaz.

Sub cekilis()

    son = Cells(Rows.Count, 1).End(3).Row

    If WorksheetFunction.CountBlank(Range("D2:D" & son)) = 0 Then
        MsgBox "Secilecek kişi kalmadı", vbCritical
        Exit Sub
    End If

basla:
    sira = uret(son - 1) + 1
    If Cells(sira, "d") = "" Then
        [g5] = Cells(sira, "C")
        Cells(sira, "D") = "*"
    Else
        GoTo basla:
    End If

End Sub
Function uret(son)
basla:
    sayi = Int((son * Rnd) + 1)
    If sayi > son Then GoTo basla
    uret = sayi
End Function

 

[pisagor26]

Teşekkür ediyorum...

 

[aalim]

teşekkürler