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

[gohanx21]

Slm. Arkadaşlar,

Şöyle bir sorunumuz var inşallah birlikte çözebiliriz.

Kurumumuzda 42 tane personel görev yapmaktadır. Mahkemelerin keşiflerinde görev almak üzere kurumumuzdan personel talebinde bulunulmaktadır. Personellerimiz arasında ben filanca mahkemenin keşfine gitmek istemiyorum. Başkası görevlendirilsin tarzında anlaşmazlıklar yaşanabiliyor. Bunun önüne geçmek ve hakkaniyetli olmak için aşağıda paylaştığım listeyi hazırladım.

Bu listede yapmak istediğim şey şu;

İl sınırları içinde toplam 53 tane mahkeme var. Kurumumuzda görevli personel sayısı ise 42,

Personellerimiz Alfabetik sıraya göre mahkemelerden gelen keşiflerde görevlendirilecek,

Örneğin 08/01/2014 tarihinde 1. Mahkemenin keşfi var ise listeye göre Abdurrahman isimli arkadaşımızın görevlendirilmesi gerekiyor,


1. Kriter
Abdurrahman'ın tekrar yeni bir keşifte görevlendirilebilmesi için ondan sonra gelen diğer personellerin de sırayla birer keşfe gitmiş olması gerekmekte, tüm personel birer keşfe katıldıktan sonra yeni bir keşifte görevlendirilebilir.

2. Kriter (En önemli nokta)
53 Tane Mahkeme var, bu mahkemelerden örneğin 1 nolu mahkeme yılda ortalama 5 tane keşif düzenliyor. Diğer mahkemeler ise çok sayıda keşif düzenliyor. 1 nolu mahkemenin keşfinde görev alan bir personelin tekrar bu mahkemenin keşfinde görevlendirilebilmesi için ondan sonra gelen tüm personellerin sırasıyla bir kez bu mahkemenin keşfine katılmış olması gerekiyor.

3. Kriter
Ekteki excel dosyasında Personel Listesi, Mahkemeler ve 2014 isminde 3 tane çalışma sayfası mevcut. 2014 isimli çalışma sayfasında Mahkeme adı ve keşif günü girildiğinde görevlendirilmesi gereken personelin ismi 1. ve 2. kriterlere göre Görevlendirilen Personel Sütun'una otomatik gelmesi lazım.

Keşif Listesi İndirmek İçin Tıklayın

 

[Muhammet Okumuş]

Merhaba,
Keşif tarihleri ve mahkeme daha önceden belli olmuyor mu?

 

[gohanx21]

Merhaba,
Keşif tarihleri ve mahkeme daha önceden belli olmuyor mu?

Muhammet bey, keşif tarihleri ve mahkeme adları daha önceden belli oluyor. Şöyleki;


Mahkemeler bize yazdıkları yazılarla ileri tarihlerde yapılacak keşifler için görevlendirme istiyor. Biz de keşifte görevlendirilecek personeli keşif gününden bir gün önce belirliyoruz. Örneğin bir mahkeme bize bugün gönderdiği yazıyla 30/01/2014 gününde yapılacak keşifte görevlendirilmek üzere bir personel talebinde bulunmuş ise, bu görevlendirmeyi keşiften bir gün önce yapıyoruz. Yani 30/01/2014 günü yapılacak keşifler için 29/01/2014 gününde personel görevlendirmelerini yapıyoruz. Çünkü mahkemeler bazen keşfi iptal edebiliyor. Bu tür durumlarda görevlendirmede iptal oluyor.

 

[Muhammet Okumuş]

Bu durumda 1. ve 2. kriterlerle birbiri arasında çakışma olabilir. Eğer isim sırasına göre yapılacaksa adaletsiz bir durum oluşmaz. Zaten 1. görevler için bir sorun olmuyor. Diyelim ki 2. görev için sıra Abdurrahman'da ve Abdurrahman ilk görevi 1. nolu mahkemede olmuş. Tekrar 1. nolu mahkeme keşif istemiş sıra Abdurrahman'da. Ama Abdurrahman 1 nolu mahkemede görev aldığı için sıra Ahmet Hayme'ye geçer. O da sağlamıyorsa diğerine sıra geçer. Bu şekilde döngü yaparsınız.

 

[gohanx21]

Bu durumda 1. ve 2. kriterlerle birbiri arasında çakışma olabilir. Eğer isim sırasına göre yapılacaksa adaletsiz bir durum oluşmaz. Zaten 1. görevler için bir sorun olmuyor. Diyelim ki 2. görev için sıra Abdurrahman'da ve Abdurrahman ilk görevi 1. nolu mahkemede olmuş. Tekrar 1. nolu mahkeme keşif istemiş sıra Abdurrahman'da. Ama Abdurrahman 1 nolu mahkemede görev aldığı için sıra Ahmet Hayme'ye geçer. O da sağlamıyorsa diğerine sıra geçer. Bu şekilde döngü yaparsınız.

Muhammet bey;

Keşifler isim sırasına göre yapılacak, dediğiniz gibi ilk olarak 1 nolu mahkeme keşfi var ise isim sırasına göre bu keşfe Abdurrahman görevlendirilecek,
ikinci keşif ister 1 nolu mahkemenin keşfi olsun ister başka bir mahkemenin keşfi olsun, Abdurrahman bu keşifte görevlendirilemiyor. Onun yerine isim sırasına göre sıradaki kişi olan Abdurrahman Hayme görevlendirilir. Yani ikinci keşif 1 nolu mahkemenin keşfi olsa dahi Abdurrahman hem daha önce bu mahkemede görev aldığı için hem de isim sırasına göre keşfe gitmeyen personeller olduğu için ikinci keşifte görev alamıyor.

Abdurrahman'ın yeni bir keşifte görevlendirilebilmesi için ondan sonra sırayla gelen tüm personellerin bir kez görevlendirilmiş olması gerekiyor.

 

[excel41]

dosyanızı bitirdim mail verin gondereyim

 

[gohanx21]

dosyanızı bitirdim mail verin gondereyim

ercan21@gmail.com

Teşekkürler Excel41,

 

[excel41]

keşif listesi

dosyanız özel mailinize de gönderildi

 

[excel41]

keşif listesi

dosya ektedir

 

[gohanx21]

dosyanız özel mailinize de gönderildi

Hocam dosyayı inceledim ancak bu mahkemelerin nöbet listesi gibi olmuş. Benim istediğim şey bundan tamamen farklı,

Kurum içi keşifte görevlendirilecekleri dair otomatik bir liste,

Yukarıda anlattığım gibi bu listede ;

Personellerimiz Alfabetik sıraya göre mahkemelerden gelen keşiflerde görevlendirilecek,

Örneğin 08/01/2014 tarihinde 1. Mahkemenin keşfi var ise listeye göre Abdurrahman isimli arkadaşımızın görevlendirilmesi gerekiyor,


1. Kriter
Abdurrahman'ın tekrar yeni bir keşifte görevlendirilebilmesi için ondan sonra gelen diğer personellerin de sırayla birer keşfe gitmiş olması gerekmekte, tüm personel birer keşfe katıldıktan sonra yeni bir keşifte görevlendirilebilir.

2. Kriter (En önemli nokta)
53 Tane Mahkeme var, bu mahkemelerden örneğin 1 nolu mahkeme yılda ortalama 5 tane keşif düzenliyor. Diğer mahkemeler ise çok sayıda keşif düzenliyor. 1 nolu mahkemenin keşfinde görev alan bir personelin tekrar bu mahkemenin keşfinde görevlendirilebilmesi için ondan sonra gelen tüm personellerin sırasıyla bir kez bu mahkemenin keşfine katılmış olması gerekiyor.

3. Kriter
Ekteki excel dosyasında Personel Listesi, Mahkemeler ve 2014 isminde 3 tane çalışma sayfası mevcut. 2014 isimli çalışma sayfasında Mahkeme adı ve keşif günü girildiğinde görevlendirilmesi gereken personelin ismi 1. ve 2. kriterlere göre Görevlendirilen Personel Sütun'una otomatik gelmesi lazım.


NOT: 08/01/2014 tarihinde 3 nolu mahkeme, 7 nolu mahkeme, 9 nolu mahkeme ve 20 nolu mahkemelerin ayrı ayrı keşifleri olabilir ya da bir günde daha fazla mahkemenin keşfi olabilir.

Bu keşiflerde görevlendirilecek personel yukarıda belirtilen 1 ve 2 nolu kriterlere göre otomatik seçilecek.

Yani 2014 sayfasındaki forma sırasıyla
3 nolu mahkemenin keşfi yazıldığında ilk sıradaki personelin ismi otomatik gelecek
hemen altına
7 nolu mahkemenin adı ve keşif günü girildiğinde sıradaki ikinci kişinin ismi gelecek
9 nolu mahkemenin adı ve keşif günü girildiğinde ondan sonraki kişinin ismi gelecek
aynı şekilde
20 nolu mahkemenin adı ve keşif günü girildiği anda ise sıradaki kişinin ismi otomatik gelecek,


09/01/2014 gününde ise 3, 8, 10 ve 15 nolu mahkemelerin keşfi var ise

mahkemelerin adları ve keşif günleri forma girildiği gibi önceki gün görev alanlar dışındaki personellerin ismi sırayla gelmesi lazım.

Buradaki ince nokta şu,

3 nolu mahkemenin keşfinde görevlendirilen kişi tekrar bu mahkemede görevlendirilebilmesi için ondan sonra gelen tüm personelin 1 kez 3 nolu mahkemede görev almış olması lazım. Tüm personel farklı günlerde sırasıyla 3 nolu mahkemenin keşfine katılmış ise ancak bu şekilde 3 nolu mahkemede ilk olarak görev alan kişi bu mahkemenin keşfine yeniden katılabilir.

umarım sorunu anlatabilmişimdir.

 

[excel41]

sayın gökhanx21 siz yazınızda inceledim dediniz ama incelemediğiniz aşikardır siz istediğiniz yerden listeyi başlatabilirsiniz x e dikatli bakıp açıklamayı okuyun lütfen

 

[Muhammet Okumuş]

Merhaba,
Dosyayı inceleyiniz.

 

[gohanx21]

Merhaba,
Dosyayı inceleyiniz.

Hocam rica etsem mail ile gönderebilir misiniz

ercan21@gmail.com

 

[Muhammet Okumuş]

Ben kod ile çözdüm. Eğer kod işinizi görmeyecekse göndermeyeceğim.

 

[gohanx21]

Ben kod ile çözdüm. Eğer kod işinizi görmeyecekse göndermeyeceğim.

Muhammet bey dosyayı inceledim. Şöyle bir sorun var. Keşif listesini aşağıdaki şekilde doldurduğumda 1. sıradaki Abdurrahman toplamda 7 kez keşifte görevlendirilmesine rağmen ardından gelen Ahmet isimli arkadaşımız 1 kez görevlendirilmiş oluyor. Sorunu göstermek için keşif sırası Ahmet isimli arkadaşımıza geldiğinde sürekli 2 nolu mahkemenin keşfi denk geldiği için liste ondan sonra gelen kişiyle devam etmekte.


Sorunu çözmek için ve hakkaniyetli olmak için şöyle yapmak istiyorum.

Ahmet'in 1. Görevi 2. nolu mahkeme olsun,
Keşif sırası tekrar Ahmet'e geldiğinde ve bu görev yine 2 nolu mahkeme ise Ahmet daha önce bu mahkemede görev aldığı için doğal olarak sıra hemen ardından gelen kişiye geçecektir. Zira Ahmet'in tekrar 2 nolu mahkemede görev alabilmesi için listedeki herkesin sırayla en az 1 kez 2 nolu mahkemede görev almış olması gerekmekte. Herkes sırayla 1 kez 2 nolu mahkemenin keşfinde görev aldıktan sonra Ahmet yeniden 2 nolu mahkemenin keşfinde görevlendirilebilecektir.

İş yükünü eşit olarak dağıtmak için, Ahmet'e 2. kez 2 nolu mahkemenin keşfi denk geldiğinde keşfe ondan sonra gelen ve daha önce 2 nolu mahkemede görev almamış olan kişiye geçecek, ancak keşif sırası Ahmet'i sadece 2 nolu mahkemeye denk geldiği için pas geçmeli, hemen akabinde gelen diğer görevi listedeki 3. veya 4. kişi yerine Ahmet'e vermemiz lazım.

Yani Ahmet'in 2. görevi sırasında tekrar 2 nolu mahkeme denk geldiğinde sıra Ahmet'i atlayarak başkasına geçecek ancak Ahmet 2 nolu mahkemeden sonra ilk gelen diğer keşifte tekrar görevlendirilmeli, yani sıra Ahmet'i tamamen es geçmemeli,

Biraz karışık ancak umarım anlatabilmişimdir.

Sorunu açıklamak için örnek dosya ekte

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

 

[Muhammet Okumuş]

Kodu deneyiniz.

Sub Kura()
Dim a, i, adet, tekrar As Byte
Dim son, son1 As Integer
Dim k As Worksheet

Application.ScreenUpdating = False

Set k = Sheets("Kontrol")
Range("A2:F1000").Interior.ColorIndex = 2
son = Cells(Rows.Count, 6).End(3).Row + 1
ActiveWindow.ScrollRow = son

a = 2
5
a = a + 1

If WorksheetFunction.Count(k.Range(k.Cells(2, a), k.Cells(43, a))) = 42 Then GoTo 5

For i = 2 To 43

If 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 Exit Sub

adet = WorksheetFunction.CountIf(k.Range("C" & i & ":L" & i), Cells(son, 8))
tekrar = Int(WorksheetFunction.CountIf(k.Range("C:L"), Cells(son, 8)) / 42)

If adet > tekrar Then GoTo 10

Cells(son, 6) = k.Cells(i, 2).Value
k.Cells(i, a) = Cells(son, 8).Value
Range("A" & son & ":F" & son).Interior.ColorIndex = 6

i = 1

10
Next
If son <> son1 Then GoTo 5

Set k = Nothing

End Sub

 

[gohanx21]

Kodu deneyiniz.

Muhammet bey çok teşekkürler. Sorunsuz şekilde çalışıyor. Emeğinize sağlık

 

[Muhammet Okumuş]

Rica ederim. İyi çalışmalar.

 

[gohanx21]

Muhammet Bey şöyle bir soru aklıma geldi.

Şimdi personellerimizden bazıları geçici olarak ilk dışına görevlendirilebiliyor. Örneğin bir personel 3 aylığına Şırnak ilinde görevlendirilebiliyor. Bu durumda şöyle bir şey yapabilir miyiz.
Kontrol sayfasında A sütununa geçici olarak il dışına giden personelin yanına "G" işareti bıraktığımızda keşif sırası ona gelse dahi onu es geçebilir miyiz. Geçici görevi bittikten sonra "G" işaretini kaldırdığımızda görevlendirme listesine kaldığı yerden devam edebilir mi?.

Ayrıca tayinen giden veya yeni gelen personeller de olabilir. Tayinen gidenlerin başına "T" eklediğimizde bir daha görevlendirme listesine eklenmez, yeni gelen personeli de listenin altına ekleriz.

Bir son olarak sizden ricam kontrol listesinde görev sayısını 20 ye çıkarabilir miyiz. Zira bir yılda çok sayıda keşif düzenlenmekte, buna paralel 2014 listesini de 1000 e kadar uzatabilir miyiz.

 

[Muhammet Okumuş]

Akşam olunca hazırlamaya çalışırım.