Koşullu Kura Oluşturma Hk.

[MADCAP]

Herkese Selamlar,

İhtiyacım tam olarak şudur;

Gerçekleştireceğimiz bir sınav için 20 tane Başkan ve Başkan Yardımcısı ihtiyacımız var (her sınıfa 1 başkan, 1 bşk.yrd.). Bunları kura usulü ile belirlemek ve elemek istiyoruz. Çünkü firmamızda 100 çalışanımız var, her sınıf için 2 kişi gerektiğinden (40 kişi) 60 kişide kura da elenmiş olacak.

Kura excellerin de tam olarak kurra yapılıyor ancak tam sayı karşılığında (yani 100 kişi var bu 100 kişi kurra ile dağıtılıyor). Ancak bizim ek olarak ihtiyacımız 100ün içinden 40 kişiyi seçmesi.

Çalışmayı yapabilmek için ekli exceli iletiyorum.

 

[Muhammet Okumuş]

Merhaba;

Sub Kura()
Range("B2:C100") = ""
Range("AA2:AA1000") = Sheets("Veri").Range("A2:A1000").Value
son = Cells(Rows.Count, "AA").End(3).Row
Range("Z2:Z" & son) = "=RAND()"
Range("Z2:AA" & son).Sort Range("Z2")
x = 1 + Range("G2").Value
Range("B2:B" & x) = Range("AA2:AA" & x).Value
Range("C2:C" & x) = Range("AA" & x + 1 & ":AA" & 2 * x - 1).Value
Range("Z:AA") = ""
End Sub

Kodu deneyiniz.

 

[MADCAP]

deneme

Hocam Merhaba,

Dönüş için teşekkür ederim.

Ancak yaptım olmadı ama...:S

 

[MADCAP]

deneme

Hocam Merhaba,

Dönüş için teşekkür ederim.

Ancak yaptım ama olmadı.

 

[MADCAP]

Teşekkür

Hocam Merhaba,

Kusura bakma yanlıs kopyalamısım

Dönüş için çok tesekkur ederım.