Soru Nöbet Çizelgesinde Hafta sonları Nöbet Vermemek

[htsumer]

Ekli dosyada nöbet çizelgesi hazırlnaıyor. Burda butona tıkladığımda Hafta sonu nöbet yok seçtiğimde Cumartesi Pazar nöbet vermiyor. Ben sadece Pazar günü nöbet vermemek istiyorum. Buna göre kodları revize etmek istedim ama yapamadım.

 

[Necdet]

Merhaba,

If Sor = vbNo And DatePart("w", CDate(Cells(i, 1)), vbMonday) > 5 Then GoTo son

Koddaki 5 rakamını 6 ile değiştirin.