Ayın Hafta Sonlarının Toplam Sayısını Bulma

[ahmed_ummu]

Merhaba arkadaşlar.

Ayın hafta sonları gün sayılarının toplamını veren bir kod var mıdır. Veya Ayın hafta sonları hariç hafta içi günlerin toplamını veren kod. Formül ile buldum ama bana makro lazım. Yardımcı olursanız sevinirim.

 

[dEdE]

Merhaba,

Sub HaftaSonu()
ss = Cells(Rows.Count, "A").End(3).Row
For i = 1 To ss
    If Weekday(Range("A" & i)) = 1 Then P = P + 1
    If Weekday(Range("A" & i)) = 7 Then Ct = Ct + 1
Next i
MsgBox "Listelenen tarihler arasında: " & vbCrLf _
        & Ct & " Cumartesi" & vbCrLf _
        & P & " Pazar" & vbCrLf _
        & "Toplam " & Ct + P & " Gün tatil günü var.", vbInformation, "BİLGİ"
End Sub

 

[ahmed_ummu]

Merhaba,

Sub HaftaSonu()
ss = Cells(Rows.Count, "A").End(3).Row
For i = 1 To ss
    If Weekday(Range("A" & i)) = 1 Then P = P + 1
    If Weekday(Range("A" & i)) = 7 Then Ct = Ct + 1
Next i
MsgBox "Listelenen tarihler arasında: " & vbCrLf _
        & Ct & " Cumartesi" & vbCrLf _
        & P & " Pazar" & vbCrLf _
        & "Toplam " & Ct + P & " Gün tatil günü var.", vbInformation, "BİLGİ"
End Sub

Çok teşekkürler sayın dEdE.