Kulvar belirleme kura çekimi

[xctr]

Merhaba ,
Biliyorum birçok örnek var ancak maalesef çok basit olmasına rağmen kullanmak istediğim şekle uygun bir örnek bulmadım.

Benim sorum şu;
Ekli dosyada bulunan Max. 150 Kayıtlı ismin 1-150 arası kulvara rastgele dağıtılması.
Yalnız bu işlemi yaparken toplu değil her seferinde tek tek yapmak gerekecek.

29 Ekim de düzenlenecek bir spor faaliyeti için kaydını yaptıran yarışmacının programı kullanarak kulvarını seçmesini sağlamak istiyoruz.

Tabi çekiliş yapan ve çıkan kulvarın tekrarlamaması gerekecek.
Saygılarımla.

 

[YUSUF44]

Aşağıdaki kodu bir modüle kopyalayıp deneyiniz:

Sub kulvar()
son = Cells(Rows.Count, "B").End(3).Row - 2
For i = 3 To son + 2
10:
    a = WorksheetFunction.RandBetween(1, son)
    If WorksheetFunction.CountIf(Range("C3:C" & i), a) = 0 Then
        Cells(i, "C") = a
    Else
        GoTo 10
    End If
Next
End Sub

 

[xctr]

Deneyeceğim teşekkürler.