İki tarih arasındaki gün sayısı

[Erdal]

Merhabalar
Belirlediğim günler dışındaki, iki tarih arasındaki gün sayısını nasıl bulabilirim. Örnek aşağıdaki linktedir.
http://s3.dosya.tc/server22/D2omCz/erdal.xls.html

 

[uzmanamele]

Bu mudur?

=A2-A1-1

 

[Erdal]

Cevap için teşekkürler Sn. Uzmanamele. Fakat malesef bu değil. Zannedersem örnek yeterince açıklayıcı değil. Benim hatam. Kusura bakmayın. Örneği yeniledim. Lütfen Bakabilir misiniz?
http://www.dosya.tc/server29/Nki1JH/erdal1.xls.html

 

[ÖmerBey]

Aşağıdaki formülü dener misiniz?

=C2-C1-TOPLA.ÇARPIM((A:A<>"")*(A:A>C1)*(A:A<C2))+1

 

[Erdal]

Evet istediğim buydu. Teşekkür ederim Sn. mucit77.

 

[Erdal]

Tekrar merhabalar Sn. mucit77 tatiller sütunundaki tarihler ile oynayınca hatalı sonuç vermeye başladı. acaba bakabilir misiniz? saygı ve selam ile ...
http://www.dosya.tc/server29/KA1vxO/erdal2.xls.html

 

[ÖmerBey]

Formüldeki büyük ve küçük işaretlerini Büyük-Eşit ve Küçük-Eşit ile değiştiriniz.

=C2-C1-TOPLA.ÇARPIM((A:A<>"")*(A:A>[COLOR="Red"]=[/COLOR]C1)*(A:A<[COLOR="red"]=[/COLOR]C2))+1

 

[Erdal]

İkinci sayfada doğru sonuç veriyor ama 1. sayfada hala hatalı sonuç üretiyor.

 

[ÖmerBey]

Tatiller bölümünü kontrol ediniz.
Aynı tarihten iki tane varsa hata verecektir.
Çünkü formülün çalışma mantığı şu şekilde:
Bitiş tarihinden-başlangıç tarihini çıkarır, aradaki gün sayısını bulur.
A sütununda başlangıç tarihinden büyük-eşit olan ve bitiş tarihinden küçük-eşit olan değerleri sayar ve aradaki gün sayısından çıkarır.
Hem başlangıç hem de bitiş dahil edileceği için 1 ekler.

 

[Erdal]

Tatiller sütununda birden fazla aynı tarihten olabilir. Bu şekilde bir çözüm yolu yok mudur?

 

[Erdal]

Makroyla bir yolu yok mudur acaba?

 

[ÖmerBey]

Makro isterseniz aşağıdaki kodu deneyiniz.

Sub Hesapla()
baş = Range("C1")
bit = Range("C2")
fark = bit - baş
Set alan = Range("A4:A" & Range("A65500").End(3).Row)
For Each hücre In alan
    If hücre.Value >= baş And hücre.Value <= bit And WorksheetFunction.CountIf(Range("A4", hücre), hücre.Value) = 1 Then say = say + 1
Next
Range("E2") = fark - say + 1
End Sub

 

[Erdal]

Teşekkür ederim Sn. mucit77