Çekiliş yapma

[websitesi84]

forumda birçok çekiliş ile ilgili konu var ancak Altın Üye olmadıgımdan dosyalara erişemiyorum ve soruma cevap alamıyorum

35 kişiden oluşan bir isim listesinden 8 asıl 8 yedek kişi belirlemek istiyorum
a sütununa sıra numaralarını b sütununa da isimleri yerleştirdim.
Bunun kodu nasıl olmalı "bir kişi bir kez seçilsin" "tek seferde 8 as 8 yedek kişiyi görebilmek istiyorum"

Teşekkürler

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub kura()
On Error GoTo 30

son = Cells(Rows.Count, "A").End(3).Row
Range("C2:G" & son).ClearContents
say = InputBox("Kaç asil kazanan olmalı?")
If IsError(CDbl(say)) = False Then
    [C1] = "Sonuç"
    [E1] = "Sıra"
    [F1] = "Asil"
    [G1] = "Yedek"
    Range("A1:G1").Font.Bold = True
    For i = 1 To say
10:
        asil = WorksheetFunction.RandBetween(2, son)
        If Cells(asil, "C") = "" Then
            Cells(asil, "C") = "Asil " & Format(i, "00")
            Cells(i + 1, "E") = i
            Cells(i + 1, "F") = Cells(asil, "B")
        Else
            GoTo 10
        End If
    Next
    For j = 1 To say
20:
        yedek = WorksheetFunction.RandBetween(2, son)
        If Cells(yedek, "C") = "" Then
            Cells(yedek, "C") = "Yedek " & Format(j, "00")
            Cells(j + 1, "G") = Cells(yedek, "B")
        Else
            GoTo 20
        End If
    Next
    Exit Sub
Else
30
    MsgBox "Lütfen Sayı giriniz"
End If
End Sub