6 kişiyle 2 vardiya nöbet nasıl döner? (gündüz 2 kişi gece 2 kişi)

[system_25]

Merhaba,
İşyerinde 6 personeliz ve sabah akşam olmak üzere iki vardiya nöbet tutulacak.
Her vardiyada 2 personel bulunacak (Sabah 2 Akşam 2) ve herkes birbiriyle nöbet tutabilecek.
Nöbetin dönme durumuna göre haftanın herhangi günlerinde izin kullanılacak. (yani bir ay 30 gündür, haftada 48 saat çalışılmalıdır vs.. durumlarına bağlı kalınmayacak)
Nöbet çizelgesi için yardım eder misiniz?

 

[ÖmerBey]

Merhaba,
İstediğiniz mümkün olmayan bir şey. O yüzden nasıl nöbet dağıtımı yaparım diye kafa yormayın.
Bir gün 24 saat bir hafta 168 saat.
İki kişi nöbet tutacağı için x2 haftada 336 saat nöbet tutulacak.
336/6=56 saat kişi başına düşen nöbet miktarıdır.
48 saat için 7 kişi gerekli.

 

[system_25]

Merhaba,
İstediğiniz mümkün olmayan bir şey. O yüzden nasıl nöbet dağıtımı yaparım diye kafa yormayın.
Bir gün 24 saat bir hafta 168 saat.
İki kişi nöbet tutacağı için x2 haftada 336 saat nöbet tutulacak.
336/6=56 saat kişi başına düşen nöbet miktarıdır.
48 saat için 7 kişi gerekli.

Hocam kaç saat tuttuğumuzun ve izinlerin hangi güne denk geldiğinin bir önemi yok. Sadece gündüz 2 gece 2 olmak üzere, 6 personel birbirleriyle değişimli şekilde nöbet tutacak.

 

[ÖmerBey]

Aşağıdaki kodu kendinize göre uyarlayıp deneyiniz.
Herkes karışık eşler olacağı için dengeli dağıtım yapmak pek mümkün olmadı ama yine de idare eder.

Sub KOD()
isim = Array("1. KİŞİ", "2. KİŞİ", "3. KİŞİ", "4. KİŞİ", "5. KİŞİ", "6. KİŞİ")
n1 = Array("0", "2", "4", "0", "1", "2", "0", "1", "3", "1", "0", "1", "3", "5", "2")
n2 = Array("1", "3", "5", "2", "3", "5", "3", "4", "5", "2", "4", "5", "4", "0", "4")
n3 = Array("GÜNDÜZ", "GECE")
For a = 0 To 59
    Cells(a + 2, "A") = Date + Int(a / 2) + 1
    Cells(a + 2, "B") = n3(a Mod 2)
    Cells(a + 2, "C") = isim(n1(a Mod 15))
    Cells(a + 2, "D") = isim(n2(a Mod 15))
Next
End Sub