Listboxtaki verilere göre kura çekimi

Katılım
28 Mart 2012
Mesajlar
13
Excel Vers. ve Dili
2010 VBA
Merhaba arkadaşlar, elimde bir tablo var bu tablo kişilerin iş başvurusu yaptığı branşlara göre ayrılmış tablo olarak düşünebilir.
Excelde bir form oluşturdum, bu forumda bir combobox, bir textbox, bir buton, bir label, ikide listbox var.
Mantık şu şekilde ilerliyor...
1-comboboxtan branş seçilir.
2-seçilen branşa yapılan başvurular listboxta listelenir
3-labelde listboxta ki toplam kişi sayısı yazar
4-texboxa seçili branştan kaç kişinin alınacağı yazılır
5-butona basıldığında texboxta yazan sayı kadar listboxta yer alan listeden rastgele seçim yapılacak ve isimler ikinci listboxta yer alacak.
------------------------
4. maddeye kadar olan yer tamam, 5.madde de butona sayısal loto, kura çekimi gibi kodları uyarlamaya çalıştım ancak başarılı bir sonuç elde edemedim. Bu sorunuma acil çözüm arıyorum, yardımlarını esirgemeyen ustalara şimdiden teşekkürlerimi sunarım.
 

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,056
Excel Vers. ve Dili
Microsoft Office 2019 English
Dim maksimum_sayi ' Listedeki kişi sayısı
Dim sonuc
Randomize

maksimum_sayi = 100

sonuc = Int(minimum_sayi + Rnd * (maksimum_sayi))
MsgBox sonuc
'Sonuc adlı sayı da diğer listboxa aktaracağın kişinin ID si olur
 
Üst