DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub tarih59()
Dim gun As String, i, z As Object, dizi
dizi = Array("", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
Range("D2:J3").Value = ""
Set z = CreateObject("scripting.dictionary")
For i = CDate(Range("B3").Value) To CDate(Range("C3").Value)
If Not z.exists(dizi(Weekday(i, 2))) Then
z.Add dizi(Weekday(i, 2)), 1
Else
z.Item(dizi(Weekday(i, 2))) = z.Item(dizi(Weekday(i, 2))) + 1
End If
Next i
Range("D2").Resize(2, 7) = Application.Transpose(Application.Transpose(Array(z.keys, z.items)))
MsgBox "İşlem Tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub
=TAMSAYI((HAFTANINGÜNÜ(A1-2)+A2-A1)/7)