kura ile görev dağılımı

[arifbirgen]

Değerli Hocalarım
Ekteki örnekte açıklama da var.
Yardımcı olursanız sevinirim.

 

[Muhammet Okumuş]

Başkan başkan yardımcısı her ehliyet türünde eşit mi olacak?
12 kişi görev alacaksa bunların hepsi aynı ehliyet türünden olabilir mi?

 

[arifbirgen]

Sn.Muhammet Okumuş
Önce ilginiz için teşekkür ederim.Evet her ehliyet türü için başkan ile başkan yardımcısı
eşit olacak.Örnek 12 A2 türü için olsun 6 başkan 6 yardımcı kura ile olması gerekiyor.
İyi çalışmalar.

 

[Muhammet Okumuş]

Sanırım ben anlatamadım. G1 hücresine 12 yazıyor. Burdan 6 tane başkan, 6 tane yardımcı çıkacak burada sorun yok. Bu 6 başkan ve yardımcı ehliyet türlerine nasıl dağıtılacak?
Dosya üzerine eklerseniz anlaşılır olur. Kodu dosyanızda deneyiniz.

Sub Kura()
Application.ScreenUpdating = False
Range("F7:F54") = ""
Range("I7:I54") = "=RAND()"
Range("A7:I54").Sort Range("I7"), xlAscending
başkan = WorksheetFunction.RoundUp(Range("G1") / 2, 0)
Range("F7:F" & 6 + başkan) = "Başkan"
Range("F" & 7 + başkan & ":F" & 6 + Range("G1")) = "Başkan Yardımcısı"
Range("I7:I54") = ""
Range("A7:H54").Sort Range("A7"), xlAscending
End Sub

 

[arifbirgen]

Sn.Muhammet Okumuş
Anasayfadaki tüm görev alacakların listesindekini A2 ehliyet türü olanları sayfa2 ye atsın
Kaçtane A2 varsa kura ile yarısı başkan yarısıda yardımcı olsun.Yani aynı türdeki
ehliyeti olanları kendi aralarında yarısı başkan yarısı yardımcı olarak kura ile sayfalara aktarsın.Sayı girmeyi 12 yi dikkate almayabilirsiniz.İyi akşamlar

 

[Muhammet Okumuş]

Müdürün yardımcı, öğretmenin başkan olması sorun olur mu?

 

[arifbirgen]

Sn.Muhammet okumuş
Sorun olmaz

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[arifbirgen]

Sn.Muhammet hocam
Analistede dört ayrı ehliyete sahip karışık halde yaklaşık 200-300 görevli olacak
ehliyet türleri ve başkan ve başkan yadımcısı zannedersem manuel dizilmiş.Görevliler yer değişiyor
Sadece listedeki karşık olacak.Listede aynı türde ehliyetleri seçip kura ile başkan ve başkan
yardımcısı olarak sayfalara aktarması işi kolaylaştıracaktır.Zahmet veriyorum .

 

[Muhammet Okumuş]

Hocam isimler değişiyor. Başkan ve yardımcısı manuel değil onları kod sıralıyor.

 

[arifbirgen]

Sn.Muhammet hocam

Kod diziyorsa sorun yok çok teşekkür ederim.Hocam birde şunu yapabilirmisin.
Örneğin kura sonunda A2 ( başkan +başkan yardımcısı) : 40 ise bunu kura ile birlikte 20-20
şeklinde sayfalara aktarabilirmiyiz.Yanı A2 den iki grup oluşturabilirsek tam istediğim olacak.
Diğer türler içinde aynışekilde olacak şekilde.Geç vakit oldu yarın bakablirseniz memnun
olurum.

 

[Muhammet Okumuş]

Sadece A2 için mi? 1. Sayfada başkanlar, 2. Sayfada Yard. ? Yoksa eşit mi? Ölçüt 20 mi? Yarın bakmaya çalışırım.

 

[arifbirgen]

Sn.Muhammet hocam
Örneğin; A2 türünde 60 görevli varsa 1.sayfa(10 başkan+10 yardımcı=20) 2.sayfa,3.sayfada
aynı şekilde 20 şerlik listeler oluşsun.B ,D ve E türleride A2 gruplar şeklinde listeler olursa
çok iyi olacak.İyi çalışmalar.

 

[arifbirgen]

Sn.Muhammet hocam
Size hatalı bilgi vermişim kusura bakma. açıklamalı örneği
tekrar gönderiyorumyardımcı olursanız sevinirim.İyi çalışmalar

 

[Muhammet Okumuş]

Hocam ben ilk dediğiniz göre hazırladım.

 

[arifbirgen]

Sn.Muhammet hocam
Sizi çok yordum.Allah razı olsun.Fakat benim hatalı bilgi vermemden kaynaklandı,banada
arkadaşım hatalı bilgi vermesinden kaynaklandı.Son gönderdiğim örnekteki gibi olacakmış.
Yardımınızdan dolayı çok teşekkür ederim.İyi çalışmalar.

 

[Muhammet Okumuş]

Dosyayı İnceleyiniz.

 

[arifbirgen]

Sn.Muhammet hocam

1-A2,B,D ve E sayfalarına aktarılanlar data sayfasından aynı zamanda silinirse
iyi olur.Çünkü görev almayan lar ikinci bir sınav yapıldığında aynı işlemle onlarada
görev verilsin.

2- Hazırlamış olduğunuz örnekte Başkan ve Başkan yardımcısı yerine aktarılanların
sayısı kadar karışık numaralar olursa tam istediğim gibi olmuş olacak.Sayfalarda gösterdim
Bu sayılar kura sonucu olmalı.İyi çalışmalar.

 

[Muhammet Okumuş]

Eklemiş oldoğunuz dosyada hiç bir değişiklik yok. Karışık numara kaça kadar olacak. Manuel olarak ekleyin.

 

[arifbirgen]

Sn.Hocam

Atanan sayıya kadar