Keşif İçin Bilirkişi Görevlendirmesi (Mahkeme Bazında Sırayla)

[Muhammet Okumuş]

Hocam bir yerde sorun çıkıyor. Bir kişi izin aldı ve iki kez görev almadı. Daha sonra geldiğinde görev ard arda 2 kez bu kişiye veriliyor.

 

[gohanx21]

Hocam bir yerde sorun çıkıyor. Bir kişi izin aldı ve iki kez görev almadı. Daha sonra geldiğinde görev ard arda 2 kez bu kişiye veriliyor.

Hocam şöyle bir mantık yürütsek sorun çözülür mü acaba,

Diyelim ki 1. personel 4. görevlendirmeden sonra izin aldı veya geçici görevle başka bir ile gitti. Sıra ona tekrar geldiğinde yani kontrol listesinde 5. görev sırası kendisine geldiğinde "A" sütununa "G-5" yazsak sadece 5. görev sırasını atlasa olur mu. Aynı mantıkla izin süresi veya geçici görevlendirme süresi boyunca eğer 5. - 6. ve 7. kez ona görev sırası gelecekse "A" sütusune "G-5-6-7" kodunu girdiğimizde 5. - 6. ve 7. görevleri sadece es geçer. Bu şekilde "A" sütununa yazdığımız kodu silmek zorunda kalmayız.

Anlatmak istediğim mantık özetle şu;

Kontrol listesinde "A" sütununa "G-1" yazdığımda görevde olmayan personel kendisine sıra geldiğinde 1. görevi pas geçmiş olur. "G-1-2" yazdığımda 1. ve 2. görev sırasını pas geçmiş olur. "G-7-10-15" yazdığımda 7. 10. ve 15. görev sırasını pas geçmiş olur. Tayinen gitmiş ise "T" yazdığımda bir daha görev almaz.

Bu şekilde ya da benzer bir mantık yürütürsek sorun çözülür mü acaba.

 

[Muhammet Okumuş]

Hocam başka bir kod mantığı düşünmek gerekiyor. Bu ard arda sorun olmasa problem kalmıyor.

 

[gohanx21]

Hocam başka bir kod mantığı düşünmek gerekiyor. Bu ard arda sorun olmasa problem kalmıyor.

Muhammet bey şöyle bir şey yapsak olur mu acaba,

İzinli ve başka yerde görevli personellerin bu süre zarfında 2014 listesinde isimlerinin çıkmaması için örneğin,

Abdurrahman isimli arkadaşımız 3. görevinden sonra izne ayrılmış ya da başka yerde görevlendirilmiş ise ve kurumda olmadığı bu süre zarfında 4. görev sırasına kendisine geliyorsa isminin pas geçmesi için Kontrol listesinde 4. Göreve denk gelen F2 hücresine "X" girdiğimiz zaman 4. görevi pas geçebilir mi. Benzer şekilde izin süresi veya geçici görev süresi boyunca 4, 5 ve 6. kez görev sırası kendisine geliyorsa bunları es geçmek için "F2", "G2" ve "H2" hücrelerine "X" girdiğimiz zaman bunları es geçebilir mi. Ya da tamamen tayinen gitmiş ise bir daha görev almaması için geri kalan tüm görev hücrelerine "X" yazdığımızda sıra kendisine geldiğinde onu pas geçmiş olur.

Kusura bakmayın makroları yorumlayamadığım için bu mantık makrolarda işe yarar mı ya da makro ile uygulanabilir mi bilmiyorum.

 

[Muhammet Okumuş]

En fazla kaç kişi aynı anda görevlendiriliyor?

 

[Muhammet Okumuş]

Merhaba,

Sub Kura()

Dim a, i, adet, adet1, tekrar, tekrar1, say As Byte
Dim son, son1, son2, alt, seçilen, b As Integer
Dim k As Worksheet

Application.ScreenUpdating = False

Set k = Sheets("Kontrol")

son = Cells(Rows.Count, 6).End(3).Row + 1
ActiveWindow.ScrollRow = son

5
For a = 5 To 24

If WorksheetFunction.Count(k.Range(k.Cells(2, a), k.Cells(200, a))) = Range("J5") Then GoTo 30




alt = k.Cells(Rows.Count, 2).End(3).Row

For i = 2 To alt


If k.Cells(i, 3) <> "" Or k.Cells(i, a) <> "" Then GoTo 10

son = Cells(Rows.Count, 6).End(3).Row + 1
son1 = Cells(Rows.Count, 2).End(3).Row + 1

If son = son1 Then

Range("M2:M1000") = ""
Exit Sub

End If

'Üst üste görev verme
'************************************************
adet1 = WorksheetFunction.CountIf(Range("M2:M1000"), k.Cells(i, 2))
seçilen = WorksheetFunction.CountA(Range("M2:M1000"))
tekrar1 = Int(seçilen / Range("J5"))

If adet1 > tekrar1 Then GoTo 10





'************************************************

' Aynı yere 2 kez gitmesin

adet = WorksheetFunction.CountIf(k.Range("E" & i & ":X" & i), Cells(son, 8))
say = Evaluate("SUMPRODUCT(--(C2:C200="""")*(E2:X200=" & Cells(son, 8) & "))")
tekrar = Int(say / Range("J5"))

If adet > tekrar Then GoTo 10

'************************************************
' Koşul sağlanıyorsa

son2 = Cells(Rows.Count, 13).End(3).Row + 1
Cells(son2, 13) = k.Cells(i, 2).Value

Cells(son, 6) = k.Cells(i, 2).Value
k.Cells(i, a) = Cells(son, 8).Value



i = 1
a = 4

'***********************************

10


b = b + 1
If b > Range("J5").Value Then Range("M2:M1000") = ""

Next i
'Range("M2:M100") = ""
30
Next a


If son <> son1 Then GoTo 5

Range("M2:M1000") = ""
Set k = Nothing

End Sub

Kodu deneyiniz.

 

[gohanx21]

Muhammet hocam yeni dosyada bir kaç deneme yaptım. Şöyle bir aldım.

Görevlendirme yaparken herkese en az 1 kez 4. Asliye Hukuk Mahkemesinden görev alacak şekilde dağılım yaptığım da Makroda

[COLOR="Red"]b = b + 1[/COLOR]

bu bölümle ilgili hata mesajı aldım.

Herkes en az 1 kez 4. Asliye Hukuk Mahkemesi'nin keşfine katılmış olduğundan 4. Asliye Hukuktan gelen bir sonraki görevlendirmeye 4. Asliye Hukuk Mahkemesi'nin keşfine ilk katılmış kişinin yeniden görevlendirilmesi gerekmekte.

Yani bir mahkemeye tüm personel birer kez görevlendirildikten sonra aynı mahkemeden gelen bir sonraki görevlendirmelere bu kez bu mahkemede ilk görev almış kişiden başlayarak yeniden görevlendirme yapmamız gerekiyor.

Ekteki örnek dosyada 4. Asliye Hukuk Mahkemsinde ilk olarak Celalettin görev aldığından gelen yeni görevlendirmeye yeniden Celalettin'in görevlendirilmesi gerekiyor. Ondan sonraki 4. Asliye Hukuk Mahkemesi'nin görevlendirmesine de listeye göre daha önce 2. sırada görev almış olan Mehmet Barutçu'nun görevlendirilmesi lazım.

Bu şekilde otomatik görevlendirmenin ilk görev almış kişiden başlayıp o mahkemede son görev almış kişiye doğru devam etmesi lazım.

Örnek Dosyayı İndirmek İçin Tıklayın

 

[Muhammet Okumuş]

Son yazdığınız, bir çok karışıklığa neden olur. O zaman bazıları 3-4 görev alırken bazıları tek görevde kalabilir.

Siz buraya uygulanacak kriterleri sırasıyla yazınız. Ama sonradan yazdığınız kriterler öncekiyle çakışmasın.

 

[gohanx21]

Son yazdığınız, bir çok karışıklığa neden olur. O zaman bazıları 3-4 görev alırken bazıları tek görevde kalabilir.

Siz buraya uygulanacak kriterleri sırasıyla yazınız. Ama sonradan yazdığınız kriterler öncekiyle çakışmasın.

Hocam şöyle açıklayayım;

53 mahkeme ve 42 personelimiz var. Personellerimiz isim sırasına göre gelen keşiflere görevlendirilecek. Bu görevlendirmede;

1. Kriterimiz
Görevlendirme 1. sıradaki personelden başlayacak. 1. Sıradaki kişi ilk olarak 2 nolu mahkemenin keşfine katılmış ise, bir sonraki görevlendirmeye listeye göre 2. Sıradaki personel görevlendirilecek.

2. Kriterimiz
1. sıradaki personelin 1. görevi 2 nolu mahkeme ise ve şansına 2. görevi sırasında da 2 nolu mahkeme kendisine denk gelirse, bu mahkemeye isim listesine göre ondan sonra gelen personel görevlendirilir. Ancak hak kaybı olmaması için 2 nolu mahkemenin dışında gelen ilk keşfe 1 nolu personel görevlendirilir. Bu şekilde iş yükü eşit olarak dağıtılmış olur.

3. Kriterimiz
Bazı mahkemeler diğer mahkemelere göre çok sayıda keşif düzenleyebiliyor. Örneğin 2 nolu mahkeme çok sayıda keşif düzenlemiş olsun.
1. ve 2. Kritere göre yapılan görevlendirmeler sonucunda örneğin 300 tane keşif düzenlenmiş olsun. 301. Keşif 2 nolu mahkemenin keşfi olsun ve bu gelen son keşfe göre tüm personel birer kez bu mahkemenin keşfinde görevlendirilmiş olsun.

302. keşif te 2 nolu mahkemenin ise 42 personelin tamamı birer kez bu mahkemenin keşfine katıldığından görevlendirmeye 2 nolu mahkemenin keşfine ilk katılmış olan kişiden başlayarak yeniden devam edilir. Yani ilk olarak 1. Sıradaki personel 2 nolu mahkemenin keşfine katıldığından 302. Görevlendirmeye bu personel görevlendirilir. 2 nolu mahkemeden gelen bir sonraki görevlendirmeye ise aynı şekilde 1. Kişiden sonra ilk olarak bu mahkemenin keşfine katılan kişiden devam edilir.

 

[gohanx21]

Muhammet bey merhaba,

Sorunu çözmek ekli dosyada hazırladığım örnek tabloyu kullanabilir miyiz acaba
Tablo Personel Listesinde burada kurmak istediğim mantığı kısaca açıklayayım.
Örnek olması açısında 4. Mahkemede görev almış kişileri bu mahkemede ilk görev almış kişiden başlayarak sırasıyla işledim. 4. Mahkemede görev alan tüm personeli Kontrol tablosundan yararlanarak hazırladım. Sadece durumu “T” olanlara “0” işledim.
Tabloya göre 1.G sütununda bu mahkemede ilk görevini alan personeller sıralanıyor. Tabloya göre tüm personeller 1 kez bu mahkemede görev aldıklarından, bu mahkemeden gelen diğer görevlendirmeyi 2.G sütununa işleyebiliriz. Daha sonra gelen görevlendirmeleri 2.G sütununa işlerken 1.G sütunundan faydalanabiliriz. Şöyle ki;
1.G Listesi 4 nolu mahkemede ilk görev alan kişiden başlayarak sıralandığından bu listeye göre bir sonraki görevlendirmeyi Kontrol listesinden 1. Kişiye yani Celalettin’ vermemiz lazım. Eğer Celalettin Görevli/İzinli veya Tayinen gitmiş ise görevi 1.G listesindeki 2. Kişiye yani Mehmet Barutçu’ya verebiliriz. Bu durumda 2. Listesinde 1. Kişi Celalettin olmuş olur. 2. Kişi Mehmet Barutçu olmuş olur.

2.G listesi dolduğunda aynı mantıkla 3. Döngü için 3.G’ye geçebiliriz.

Bu Personel Listesi ile hangi mahkemede ilk olarak kimin görev aldığını takip edebiliriz. 4 nolu mahkemede herkes 1 kez görev aldığında 2. Döngü için 2.G sütununa geçeriz. Bundan sonraki görevlendirmeleri de 1.G sütunundan yaralanarak yapabiliriz. 2. Döngüde yapılan görevlendirmeleri de 2.G sütununa işleriz. Görevli/İzinli veya Tayinen gidenler olduğundan 1.G Sütununda 1 sıra atlayarak görevli/izinli veya tayinci kişiden sonraki kişiyi 2.G sütununa işleriz. 2.G sütunu dolduktan yani tüm personeller aynı mahkemede genel olarak 2 kez görevlendirildiklerinde bu kez aynı mantıkla 3.G sütununa geçeriz.

Zaten 1 kişi 1 yılda aynı mahkemede en fazla 5 kez görevlendirilir.

Personel Listesi biraz uzun oldu ancak makro ile listeyi otomatik doldurmak sorun olur mu bilmiyorum.

Örnek Dosyayı İndirmek İçin Tıklayın

 

[Muhammet Okumuş]

Personelleri mahkeme sırasına göre atarsak, bu kez aynı kişilere görev veriyor.

 

[Muhammet Okumuş]

Sizin dosya ile benim dosyam aynı zaten. Bu mantıkla benim dosyam doğru çalışıyor.
Sizin 1. önceliğiniz mahkeme sırası. Mahkeme görevleri belli bir düzen içinde gelmediğinden personel görevlendirme eşit olmaz.

Benim önerim personelleri görev sayısına göre (bir kişi görevlendirilmeden, başka bir kişi 2. kez görevlendirilmesin) dağıtmak.

Aksi takdirde mahkeme sırasına göre yaparsak personell görev sayılarında ciddi oranda eşitsizlikler olabilir.

Şöyle örnek vereyim.
Abdurrahman 1. mahkeme için 1. Sıra, 2. mahkeme için 2. sıra 3. mahkeme için 3. sırada olsun. (1. görevlendirme sonunda böyle sıralama oluştuğunu var sayalım.

Pazartesi 1. Mahkeme
Salı 2. Mahkeme
Çarşamba 3. Mahkeme
...
görev için çağırmış olsun.

Eğer bu 3 mahkeme için sıra Abdurrahman'da ise Abdurrahman 3 kez ardı ardına görevelendirilecektir.

Bu şekil denk gelmez demeyin. Mahkemeler belli kurala göre gelmedikleri için bu olabilir.

Eğer ki personel sırasına göre yaparsak bütün personeller bir mahkemede bir kez görev aldıktan sonra 2. görev verilir. Burda bir adaletsizlik olmayacak. Birinin ben hep bu mahkemeye görevlendiriyorum gibi bir söz hakkı doğmaz. Sadece şu olabilir. Aynı mahkeme için, 1. görevi ile 2. görevi arası çok kısa ve ya çok uzun süre olabilir. Ama herkes eşit sayıda mahkemede görev aldığı için bu haksız bir durum oluşturmaz.