• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listboxtaki verilere göre kura çekimi

  • Konbuyu başlatan Konbuyu başlatan xkrca
  • Başlangıç tarihi Başlangıç tarihi
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.
 
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
 
Geri
Üst