- Katılım
- 23 Nisan 2011
- Mesajlar
- 8
- Excel Vers. ve Dili
- 2017
- Altın Üyelik Bitiş Tarihi
- 05-02-2024
excelde, girilen 2 tarih arasında ki günlerin kaç tanesi hangi aya denk geliyor saymam gerekiyor, nasıl yapabilirim?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub bul()
For i = Range("A1") To Range("B1")
gun = gun + 1
If InStr(ay, Format(i, "mmmm")) = 0 Then
ay = ay & "," & Format(i, "mmmm")
gunler = gunler & "," & gun
gun = 0
End If
Next
ay = Split(Mid(ay, 2), ",")
gunler = Split(Mid(gunler & "," & gun + 1, 4), ",")
For e = 0 To UBound(ay)
bak = bak & ay(e) & " " & gunler(e) & Chr(10)
Next
MsgBox bak
End Sub