nöbet listesi oluşturma

[serdarsari]

arkadaşlar daha önceki bir çalışmayı kendime uyarlamaya çalıştım;
ancak eksikler var ,
dosyada gerekli açıklamalar mevcut yardımlarınızı bekliyorum.
iyi çalışmalar....

 

[serdarsari]

arkadaşlar bi el atsak şu projeye....

 

[leumruk]

Merhaba,
Örneği inceleyiniz. Dağıtıma dahil etmek istemediğiniz hücreye çift tklayın. "-----" biçiminde hücre dolacaktır. Daha sonra maroyu çalıştırın.

Sub yerlestir()
Dim hcr As Variant, varTemp As Variant
Dim Aralik As Range
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
If WorksheetFunction.CountA(Range("d4:d34")) = 0 Then
MsgBox "Tarih seçimi yapmamışsınız."
Exit Sub: End If
If WorksheetFunction.CountIf(Range("e4:e" & [d65536].End(3).Row), "") = 0 Then
MsgBox "Listeyi temizlemeden bu makroyu kullanamazsınız."
Exit Sub: End If
s2.Range("d5:k" & s2.[c65536].End(3).Row).ClearContents
Set Aralik = Range("b2:b" & [b65536].End(3).Row)
hcr = Aralik
Tpl = UBound(hcr, 1)
Sor = MsgBox("Haftasonuna denk gelen günler dahil edilsin mi?", vbYesNo)
Randomize
For Each y In Range("e4:e" & [d65536].End(3).Row).SpecialCells(xlCellTypeBlanks)
If Sor = vbNo And DatePart("w", CDate(Cells(y.Row, "d")), vbMonday) > 5 Then GoTo Son
If Tpl = 0 Then Tpl = UBound(hcr, 1)
sayi = Int(Rnd() * Tpl + 1)
Cells(y.Row, y.Column) = hcr(sayi, 1)
Set Bul = s2.Range("c5:c" & s2.[c65536].End(3).Row).Find(hcr(sayi, 1))
If Not Bul Is Nothing Then
s2.Cells(Bul.Row, s2.Cells(Bul.Row, 11).End(1).Column + 1) = Day(Cells(y.Row, "d"))
End If
varTemp = hcr(Tpl, 1)
hcr(Tpl, 1) = hcr(sayi, 1)
hcr(sayi, 1) = varTemp
Tpl = Tpl - 1
Son:
Next
End Sub

 

[serdarsari]

teekkürler

hocam çok güzel olmu elinize sağlık

ancak güne göre değilde personele göre yapsak ----- atama yapılmayacak personeli kurs izin durumları oluyor sayfa 2 de açıklama var

 

[serdarsari]

yok mu yardım edebilecek bi arkadaş?

 

[serdarsari]

arkadaşlar bi el atsak şu işe?

 

[muygun]

Merhaba;
Hem otomasyon hemde manuel atama biraz kafa karıştırıyor. Manuele geçtiğiniz zaman eksiklikleri tamamlamak durumundasınız.
İstediğiniz ölçüde olduğunu zannetmiyorum ama yinede inceleyin.
İyi çalışmalar.

 

[serdarsari]

hocam elinize sağlık;

ancak izin kurs için 2 personel veya daha fazla olabiliyor o zaman ne yaparız?
ayrıca i yada k yazsak bile nöbet ataması yapıyor?

 

[serdarsari]

nöbet sayfası üzerinden çalışsak burada belirttiğimiz kriterlere göre kalanlara sonuç sayfasında karışık atama yaptırsak yeterli olur manuel sayfasına gerek yok atama eşit olacak

 

[leumruk]

hocam çok güzel olmu elinize sağlık

ancak güne göre değilde personele göre yapsak ----- atama yapılmayacak personeli kurs izin durumları oluyor sayfa 2 de açıklama var

Merhaba,
Malum bayram öncesi... Konuya bugün bakabiliyorum.
Kodu hiç nöbet almayacaklara göre düzenledim. Sarı sütuna çift tıkladığınızda o kişinin hücresi "'-----" işaretiyle kapanacak ve dağıtıma dahil edilmeyecek. İzinli olanlar için şu an bir işlem yapmadım; çünkü hangi günler izinli olduğu belli değil. Bu konuda bir açıklama yaparsanız üzerinde düşünme şansımız olur. Örneğin; 20 yazdığınız kişi, ayın ilk gününden itibaren 20 gün izinli mi? 10 gün izinli olana ayda kaç gün nöbet gelecek, 20 gün izinli olana ayda kaç nöbet düşecek?... Bir kişiye ayda en fazla kaç gün izin verilebiliyor? vs...
Bu sorunu şu şekilde de çözebilirsiniz:
Eklediğim yeni kodlama ile kursiyerleri dahil etmeyebiliyorsunuz. Aynı şekilde izinlileri de kapatıp dağıtıma dahil etmeyebilirsiniz. İzinlilere verilecek nöbet sayısı kadar tarihi de kapatarak bu tarihlerin boş kalmasını sağlayıp sonradan bu isimleri o tarihlere ekleyebilirsiniz.

 

[serdarsari]

düzenleme

hocam ekteki dosyada açıklamaları yazdım bi bakarsanız...

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[serdarsari]

muygun hocam tam istediğimiz gibi olmuş,çok teşekkür ederim;

Allah klavyenize zeval vermesin )

iyi çalışmalar dilerim....

 

[serdarsari]

hocam son bir şey sonuç sayfasında hafta sonuna gelen cumartesi -pazar nöbetleri için ilgili hücreyi renklendirebilir miyiz?

 

[muygun]

Merhaba;
Neden olmasın.
Eki tekrar deneyin.
İyi çalışmalar.

 

[serdarsari]

hocam zahmet verdik;

iyi çalışmalar dilerim...

 

[feridunsah]

kusura kalmayın bu nöbet listesi günlük üçlü vardiya olarak da uygulanabilirmi acaba ?

 

[feridunsah]

nöbet çizelgesi

bu sistemede bir kolaylık yapılabilirmi acaba her ay sadece isimleri seçim tek tuşla yerlerin 12 aylık olarak yapılabilirmi yardımlarınıza şimdiden tşkl

 

[serdarsari]

kalorifer

ekteki gibi bir sistem işinizi görür mü?

 

[serdarsari]

6'şar günlü

eklediğiniz dosyadaki gibi 6'şar günlü vardiya