Adil Görev Dağıtım Proğramı

[CAFERCİFTCİ]

Arkadaşlar,
Ekli tabloda da görüleceği üzere bir amir maiyetinde çalışan personele en adil şekilde görev dağıtmak durumunda.Sistem şu:Amir,gelen görev konusu ne ise onun karşısındaki onay kutucuğunu tıkladığında o görev en az olan kişiye gidecek.Yani sayısı en az olanın sayısı bir artacak.Eğer aynı sayıda kişi varsa bu kez genel toplamda hangisi az ise ona gidecek.O da eşitse ismi alfabetik sırada önce gelene gidecek.Sayısı en az olan kutucuğun ya da kutucukların rengi kırmızı olacak.Bu proğrama amir gerekirse manuel de müdahale edebilecek.Özel gördüğü yazıyı istediği elemanına verebilecek.Bir de örnek vereyim:TESCİL ile ilgili bir konu geldi.En az olanlar 3 kişi.VELİ,ÇETİN ve KEMAL.Ama toplam görevi en az olan VELİ.Amir TESCİL'in yanındaki ONAY KUTUSU'nu tıkladığında görev VELİ'ye gitmeli ve E2 deki rakam 1 olmalı.Umarım açıklayabilmişimdir.Yardımlarınızı bekliyorum.Saygılarımla...

 

[Ergün Güler]

Arkadaşlar,
Ekli tabloda da görüleceği üzere bir amir maiyetinde çalışan personele en adil şekilde görev dağıtmak durumunda.Sistem şu:Amir,gelen görev konusu ne ise onun karşısındaki onay kutucuğunu tıkladığında o görev en az olan kişiye gidecek.Yani sayısı en az olanın sayısı bir artacak.Eğer aynı sayıda kişi varsa bu kez genel toplamda hangisi az ise ona gidecek.O da eşitse ismi alfabetik sırada önce gelene gidecek.Sayısı en az olan kutucuğun ya da kutucukların rengi kırmızı olacak.Bu proğrama amir gerekirse manuel de müdahale edebilecek.Özel gördüğü yazıyı istediği elemanına verebilecek.Bir de örnek vereyim:TESCİL ile ilgili bir konu geldi.En az olanlar 3 kişi.VELİ,ÇETİN ve KEMAL.Ama toplam görevi en az olan VELİ.Amir TESCİL'in yanındaki ONAY KUTUSU'nu tıkladığında görev VELİ'ye gitmeli ve E2 deki rakam 1 olmalı.Umarım açıklayabilmişimdir.Yardımlarınızı bekliyorum.Saygılarımla...

Selam Sayın CAFERCİFTCİ,
İsteğiniz Makro ile yapılabilir. Bir kaç soru sorayım;

Onay kutusu bomboş. bir düğmemi olsun ? İçinde tıklama öncesi ve sonrası birşeyler yazsın isityor musunuz?

Diyelim ben amirim. Tescil işi geldi onayla dedim. dediğiniz gibi veli'yi buldu 0 sayısı 1 oldu. dağıtım kime gitti nereden bileceğim?
bilinmesini istiyor musunuz?
yine amirim farz edin. Tescil işi geldiği gün tescil için onay kutusuna basıldı mı basılmadı mı nereden bileceğim?
son tescil işi onay Tarih ve saat bilgisi istiyor musunuz?

Daha bir çok şey kodlar ile yapılabilir.

en kısa zamanda örnek bir çalışma yapıp yüklerim. Sizde bu esnada dosyanızı tasarlarsınız.
İyi çalışmalar.

 

[CAFERCİFTCİ]

Merhaba

Selam Sayın CAFERCİFTCİ,
İsteğiniz Makro ile yapılabilir. Bir kaç soru sorayım;

Onay kutusu bomboş. bir düğmemi olsun ? İçinde tıklama öncesi ve sonrası birşeyler yazsın isityor musunuz?

Diyelim ben amirim. Tescil işi geldi onayla dedim. dediğiniz gibi veli'yi buldu 0 sayısı 1 oldu. dağıtım kime gitti nereden bileceğim?
bilinmesini istiyor musunuz?
yine amirim farz edin. Tescil işi geldiği gün tescil için onay kutusuna basıldı mı basılmadı mı nereden bileceğim?
son tescil işi onay Tarih ve saat bilgisi istiyor musunuz?

Daha bir çok şey kodlar ile yapılabilir.

en kısa zamanda örnek bir çalışma yapıp yüklerim. Sizde bu esnada dosyanızı tasarlarsınız.
İyi çalışmalar.

Sayın Ergun GÜLER,
Size 3 şey için teşekkür etmek istiyorum öncelikle:
-Her zaman olduğu gibi,yine yardımıma koştunuz,
-Benim düşünemediğim,muhtemelen daha sonra sorabileceğim soruları önceden tespit etmişsiniz,bu çözümü elbette kolaylaştıracaktır.
-Örnek çalışma yapacağınızı söylüyorsunuz.Bu aksaklıkları görmek için çok ideal bir yol.
İzninizle sorularınızı cevaplayayım.Aslında onay kutusunda bir düğme olması çok iyi olur.Bizde tüm evrakların bir edys(Elektronik döküman Yönetim sistemi)numarası var.203465 gibi 6 haneli bir rakam.Amir bu rakamı da onay kutusunun yanına yazsa,başka bir sayfada bu rakamlar,konusu,tarih ve saati , havale edilen kişiler sıralansa,ne güzel olur.En son havale edilenin rengi de değişik olabilir.(Rakamlar küçükten büyüğe doğru sıralansa)
Velinin rakamı o iken 1 olduğunda,kırmızı renkli olabilir diye düşünüyorum.Zaten üstteki işlem de bu sorunu halleder.
Tekrar teşekkür eder,iyi çalışmalar dilerim saygıdeğer arkadaşım.

 

[Ergün Güler]

Selam,
Kodlar aşağıdaki gibidir. İlgili sayfanın kod bölümüne yapıştırınız.
Dosyanıza yapılan işlemler;

-Dosyanızın tamamı Kodlar ile hazırlandı.
-Kullandığınız toplama fonksiyonu kaldırıldı. Artık toplama işlemini kodlar yapacak.
-Dosyanızın C sütununa Buton görevi gören "GÖREV AKTAR" linkleri konuldu. Bu sayedeLinkler üzerinde mouse ile gelince el işareti ve açıklama çıkması, görünmesi sağlandı.
-İstediğiniz göreve tıkladığınızda, birinci kriter önce görevi en az olanı bulacak, görevi en az olanlar sayılar aynı ise, ikinci kriter olarak toplamda en az olanları bulacak, toplamlar aynı ise isimleri alfabetik olarak en küçüğünü bulacak.
-İstediğiniz göreve tıkladığınızda karşınıza uyarı gelecek. Uyarıda kime hangi görev aktarılacağı ve kaçıncı görev olacağı hakkında bilgi verecek. evet dediğinizde ilgili yere aktarma yapacak. hayır'ı seçtiğinizde ise herhangi bir değişiklik yapmayacak.
-Uyarıyı okuyup onayladıktan sonra işlemin tamamlandığına dair mesaj ile bildirilecek. ilgili hücre deseni sarı olacak. (not: sarı renkli ilgili görevin satırındaki son işlem yapılan hücreyi göstermesi sağlandı)
-işlem yapılan hücrenin sayısı artacak ve sütundaki görev alan kişinin toplamı da artacak.
-işlem yapılan hücreye aynı zamanda açıklama eklenecek. Açıklamada son kayıt yapan kişi, kayıt tarihi, saati hatta saniyesine varana kadar yazacak.
Açıklama aynı hücreye yeni kayıt yapana kadar kalacak. (not:Açıklamayı görmek için hücrenin üzerinde bekleyiniz.)
-"görev kodları" sayfanızın W:X aralığı yardımcı hücre olarak kullanıldı. Boş görünmektedir fakat, kodlar çalışırken bu bölüme veri yazılıp, silinmektedir. Bu bölümü kullanmayınız.

görüş ve isteklerinizi bu konu altında yazarsanız sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim gk As Worksheet
Dim i As Long
Set gk = Sheets("GÖREV KODLARI")


If Target.Rows.Count > 1 Then Exit Sub


If Intersect(Target, gk.Range("C2:C19")) Is Nothing Then Exit Sub

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    
    gk.Range("W:Z").ClearContents
    
    sat = Target.Row
    
    For i = 4 To 15
   
   gk.Cells(i - 3, "W") = gk.Cells(sat, i)
   gk.Cells(i - 3, "X") = gk.Cells(20, i)
   gk.Cells(i - 3, "Y") = gk.Cells(1, i)
   gk.Cells(i - 3, "Z") = i
   Next
   
   gk.Range("W:Z").Sort Key1:=Range("W1"), Order1:=xlAscending, Key2:=Range("X1"), _
   Order2:=xlAscending, Key3:=Range("Y1"), Order3:=xlAscending
   
  sut = gk.Cells(1, "Z")
  kullanıcı = Environ("username")
  zaman = Now
  kisi = gk.Cells(1, sut)
  görevkodu = gk.Cells(sat, "A")
  görev = gk.Cells(sat, "B")
  adres = gk.Cells(sat, sut).Address
  
  If MsgBox(görevkodu & " No.lu " & görev & " Adlı Görev " & vbLf _
  & kisi & " Adlı Kişiye " & vbLf & gk.Cells(sat, sut) + 1 & ".Görev Olarak Eklenecektir." _
  & vbLf & "Emin misiniz?", vbCritical + vbYesNo, " DİKKAT!") <> vbYes Then Exit Sub
  
  gk.Range("D" & sat & ":O" & sat).Interior.ColorIndex = xlNone
  'gk.Range("D" & sat & ":O" & sat).ClearComments
    
  gk.Cells(sat, sut) = gk.Cells(sat, sut) + 1
  gk.Cells(sat, sut).Interior.ColorIndex = 6
  gk.Cells(sat, sut).ClearComments
  gk.Cells(sat, sut).AddComment
  gk.Cells(sat, sut).Comment.Visible = False
  gk.Cells(sat, sut).Comment.Text Text:="SON KAYIT BİLGİLERİ:" & Chr(10) & "KAYIT YAPAN KİŞİ: " & kullanıcı & Chr(10) & "KAYIT TARİH VE ZAMANI:" & Chr(10) & zaman
  gk.Cells(20, sut) = WorksheetFunction.Sum(gk.Range(Cells(2, sut), Cells(19, sut)))
  
  gk.Range("W:Z").ClearContents
   
  MsgBox "Görev Eklenmiştir. " & vbLf & " Değişen " & adres & " Hücresi Sarı Renklendirilmiştir.", vbInformation, "İŞLEM TAMAMLANDI"
  gk.Cells(1, "A").Select
  
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

   
   
End Sub

Sub hyperlink()

Dim gk As Worksheet
Dim i As Long
Set gk = Sheets("GÖREV KODLARI")
Application.ScreenUpdating = False

For i = 2 To 19

gk.Hyperlinks.Add anchor:=gk.Cells(i, "C"), Address:="", SubAddress:="", _
ScreenTip:="Görevi Aktarmak İçin Tıklayınız", TextToDisplay:="GÖREVİ AKTAR"

Next

Application.ScreenUpdating = True

End Sub

İyi çalışmalar.

 

[CAFERCİFTCİ]

Bir-iki ilave

Selam,
Dosyanız ektedir. İnceleyiniz.
Dosyanıza yapılan işlemler;

-Dosyanızın tamamı Kodlar ile hazırlandı.
-Kullandığınız toplama fonksiyonu kaldırıldı. Artık toplama işlemini kodlar yapacak.
-Dosyanızın C sütununa Buton görevi gören "GÖREV AKTAR" linkleri konuldu. Bu sayedeLinkler üzerinde mouse ile gelince el işareti ve açıklama çıkması, görünmesi sağlandı.
-İstediğiniz göreve tıkladığınızda, birinci kriter önce görevi en az olanı bulacak, görevi en az olanlar sayılar aynı ise, ikinci kriter olarak toplamda en az olanları bulacak, toplamlar aynı ise isimleri alfabetik olarak en küçüğünü bulacak.
-İstediğiniz göreve tıkladığınızda karşınıza uyarı gelecek. Uyarıda kime hangi görev aktarılacağı ve kaçıncı görev olacağı hakkında bilgi verecek. evet dediğinizde ilgili yere aktarma yapacak. hayır'ı seçtiğinizde ise herhangi bir değişiklik yapmayacak.
-Uyarıyı okuyup onayladıktan sonra işlemin tamamlandığına dair mesaj ile bildirilecek. ilgili hücre deseni sarı olacak. (not: sarı renkli ilgili görevin satırındaki son işlem yapılan hücreyi göstermesi sağlandı)
-işlem yapılan hücrenin sayısı artacak ve sütundaki görev alan kişinin toplamı da artacak.
-işlem yapılan hücreye aynı zamanda açıklama eklenecek. Açıklamada son kayıt yapan kişi, kayıt tarihi, saati hatta saniyesine varana kadar yazacak.
Açıklama aynı hücreye yeni kayıt yapana kadar kalacak. (not:Açıklamayı görmek için hücrenin üzerinde bekleyiniz.)
-"görev kodları" sayfanızın W:X aralığı yardımcı hücre olarak kullanıldı. Boş görünmektedir fakat, kodlar çalışırken bu bölüme veri yazılıp, silinmektedir. Bu bölümü kullanmayınız.

görüş ve isteklerinizi bu konu altında yazarsanız sevinirim.

İyi çalışmalar.

Günaydın Sayın Ergün GÜLER,
Elinize,emeğinize sağlık,gayet güzel olmuş.Endişem şuydu:Farkettiğiniz gibi isimler sanalda.Gerçekleri ile değiştirdiğimde ya da sayısını azalttığımda proğramda bir aksama olurmuydu acaba?Kodlarınızı inceledikten sonra deneme de yaptım.ve isim değişikliklerinin,bazı isimleri silmenin proğramı aksatmadığını gördüm.Bu çok sevindirici.Yalnız bir-iki ilave ricam olacak.Birincisi havaleyi yapan kişinin ismi de açıklamada çıksın.Böylece müdür mü,yoksa vekili mi havale yapmış anlaşılsın.İkincisi de şu.En sondaki arkadaşımız kayıt görevlisi.Tüm havalelerden bilgisi olması gerekiyor.Kime havale yapılırsa yapılsın onun hanesi 1 artsın.Örneğin arkadaşımızın ismi HÜSNÜ DEMİR olsun.TESCİL havalesi yapılırsa onun da tescil hanesi 1 artsın,İMAR havalesi yapılırsa onun da hanesi 1 artsın.Böylece o gün toplam kaç havale yapıldığını takip edebilelim.Bir gün sonu raporu olsa çok iyi olur diye düşünüyorum.
İyi çalışmalar...

 

[Ergün Güler]

Selam,
kodlar O sütununa ve 19.satıra kadar kadar hazırlandı. Çünkü siz herhangi bir şey belirtmediniz. görev satırları ve sütunları istediğiniz kadar yapabilmenizi sağlamak için kodlarda biraz düzenleme yapmamamız gerekir.
Kayıt yapıldığı esnada, kullanılan bilgisayar kimin oturumu ile açılmış ise Açıklama kısmına kayıt yapan kişi olarak zaten yazıyor. İstediğiniz birinin yazması için sizin isimleri belirtmeniz ve başvuru yerlerini, kayıt metotunuzu belirtmeniz gerekir.
En sondaki kişiye ayrıca kayıt tabiki yapılabilir. Ancak ben örnek dosyanızdaki son kişi SUAT ve altındaki rakamlar hiç te toplam sayılar değil. Siz son gönderdiğim dosyayı yeniden düzenleyerek sorularını yollayınız.

 

[CAFERCİFTCİ]

Selam,
kodlar O sütununa ve 19.satıra kadar kadar hazırlandı. Çünkü siz herhangi bir şey belirtmediniz. görev satırları ve sütunları istediğiniz kadar yapabilmenizi sağlamak için kodlarda biraz düzenleme yapmamamız gerekir.
Kayıt yapıldığı esnada, kullanılan bilgisayar kimin oturumu ile açılmış ise Açıklama kısmına kayıt yapan kişi olarak zaten yazıyor. İstediğiniz birinin yazması için sizin isimleri belirtmeniz ve başvuru yerlerini, kayıt metotunuzu belirtmeniz gerekir.
En sondaki kişiye ayrıca kayıt tabiki yapılabilir. Ancak ben örnek dosyanızdaki son kişi SUAT ve altındaki rakamlar hiç te toplam sayılar değil. Siz son gönderdiğim dosyayı yeniden düzenleyerek sorularını yollayınız.

Sayın Ergün GÜLER,
Kaydeden kişinin ismi konusu tamam.Müdür kendi bilgisayarından havale yapacağına göre,onun adı yazacak.Son sütunu da düzenledim.Eleman sayısı ya da isimlerde,görev türlerinde değişiklik olursa kodlarda değişiklik yapmaya çalışırım,beceremezsem sizi rahatsız ederim.Ama bu yakın zamanda pek mümkün görülmüyor.(Görev türleri artabilir ama)
İyi çalışmalar...

 

[Ergün Güler]

Sayın Ergün GÜLER,
Kaydeden kişinin ismi konusu tamam.Müdür kendi bilgisayarından havale yapacağına göre,onun adı yazacak.Son sütunu da düzenledim.Eleman sayısı ya da isimlerde,görev türlerinde değişiklik olursa kodlarda değişiklik yapmaya çalışırım,beceremezsem sizi rahatsız ederim.Ama bu yakın zamanda pek mümkün görülmüyor.(Görev türleri artabilir ama)
İyi çalışmalar...

Selam Dosyanız ektedir.
Artık istediğiniz kadar görev satırı ekleyebilirsiniz. Görev satırını son dolu satır ile bir önceki satır arasına eklerseniz sizin için daha kolay olur. Ben bir tane örnek ekledim.

Aynı zamanda istediğiniz kadar kişi sütunu ekleyebilirsiniz. kişi sütununu, son dolu sütun ile bir önceki sütun arasına eklerseniz sizin için daha kolay olur. Ben bir tane örnek ekledim.

Önemli : en son 4 sütunu( IS,IT,IU,IV) kullanmayınız! -ki zaten size muhtemelen lazım olmayacaktır.

yaptığınız her kayıdı +1 olarak en sondaki kişiye de dosyada "SUAT") ekleyecek şekilde yeniden düzenledim.

İyi çalışmalar.

 

[CAFERCİFTCİ]

Teşekkürler...

Sayın Ergün GÜLER,
Tam istediğim gibi olmuş.Teşekkür ediyorum.Elinize,emeğinize sağlık.

 

[Ergün Güler]

Sayın Ergün GÜLER,
Tam istediğim gibi olmuş.Teşekkür ediyorum.Elinize,emeğinize sağlık.

Ben Teşekkkür Ederim. Çöüzüm bulmanıza sevindim. İyi çalışmalar.