Nöbet listesi gün sabitleme

[imyourfate]

Değerli Arkadaşlar öncelikle hayırlı akşamlar dilerim,

Daha önce sizlerinde yardımıyla oluşturduğum nöbet dağıtım çizelgesi için bir ilave durum söz konusu oldu söyle ki bir personeli pazar günü için sabit nöbet yapmıştık buna ilave olarak bir personeli de cumartesi gününe sabitlemek istiyorum makro üzerinde nasıl bir değişiklik yapmalıyım?

Yardımlarınız için şimdiden çok teşekkür ederim.

Sub nöbet_dağıt()
sayı = 4: If [C65536].End(3).Row > 1 Then Range("C2:C" & [C65536].End(3).Row).ClearContents
For satır = 2 To Day(WorksheetFunction.EoMonth(Cells(2, 1), 0)) + 1
Select Case UCase(Cells(satır, 2).Text)
Case UCase(Cells(2, 7)): Cells(satır, 3) = Cells(2, 6)

Case Else
Cells(satır, 3) = Cells(sayı, 6)
If sayı + 1 = 11 Then sayı = 2
sayı = sayı + 1
End Select
Next
End Sub

 

[muygun]

Merhaba;
Sizin kodlarınız dışında bir uygulama yaptım.
İnceleyin.
İyi çalışmalar.