Yönetici Nöbetleri

[Feylosof]

iyi akşamlar.

Ekli dosyada yönetici nöbetlerini hazırlamaya çalışıyorum. Detaylı açıklama ve örneklendirme mevcuttur. Yardımcı olur musunuz?

 

[Feylosof]

...

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton2_Click()
    Dim X As Integer
    
    Sheets("Sayfa1").Range("C3:C32").ClearContents
    
    Say = IIf(ComboBox1.ListIndex < 0, 0, ComboBox1.ListIndex)
    
    For X = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(X) = False Then
            If Weekday(ListBox1.List(X, 0), vbMonday) < 6 Then
                Sheets("Sayfa1").Cells(X + 3, 3) = ComboBox1.List(Say)
                Say = Say + 1
                If Say > ComboBox1.ListCount - 1 Then Say = 0
            End If
        End If
    Next
End Sub

 

[Feylosof]

@Korhan Ayhan üstadım size çok teşekkür ederim. Diyecek başka söz bulamıyorum. Varolun.