Referans Tarihler Arasında kalan tarihlerin günlerini toplama

[tkhkvhki]

Merhaba değerli üstatlar;

2 tane referans tarihim var; 01.05.2022 - 30.09.2022

Bu tarihleri excel de herhangibir yere yazıyoruz.

Yine excel de herhangi bir yere=BUGUN() yazıp günün tarihini alıyorum.

Sonra A sütununa yukarıdan aşağıya tarihler yazmaya başlıyoruz.

10.05.2022
11.05.2022
07.10.2022
08.10.2022
.
.

Gibi...

A sütununa yazdığımız bu tarihler eğer referans tarihlerimizin arasındaysa, o tarihten bu güne kadar geçen süreyi gün olarak bulup alt toplamlarını almak istiyorum.

Eğer A1 hücresi referans tarihlerin arasındaysa;
Eğer A2 hücresi referans tarihlerin arasındaysa;
Eğer A3 hücresi referans tarihlerin arasındaysa;
Eğer A4 hücresi referans tarihlerin arasındaysa;
A1 hücresindeki tarihinten bu gune kadar geçen günü+
A2 hücresindeki tarihinten bu gune kadar geçen günü+
A3 hücresindeki tarihinten bu gune kadar geçen günü+
A4 hücresindeki tarihinten bu gune kadar geçen günü birbiriyle topla...
Eğer hücrelerdeki tarihler referans tarihleri arasında değilse toplamaya dahil etme

umarım anlatabilmişimdir.

Destek olabilirseniz çok mutlu olurum.

 

[bmutlu966]

Referans tarihlerinizi C1 ve D1 hücrelerine yazın. Aşağıdaki kodu bir modüle kopyalayıp çalıştırın. E1 hücresinde toplam gün sayısını yazacaktır.

Sub hesapla()

Dim tarih1 As Date
Dim tarih2 As Date
Dim gun As Long

tarih1 = Range("C1")
tarih2 = Range("D1")
son = [A65000].End(3).Row
gun = 0
Range("E1").ClearContents

For t = 1 To son
    If Cells(t, "A").Value > tarih1 And Cells(t, "A").Value < tarih2 Then
        gun = Int(gun + Now - Cells(t, "A"))
    End If
Next
Range("E1") = gun

End Sub

 

[tkhkvhki]

Referans tarihlerinizi C1 ve D1 hücrelerine yazın. Aşağıdaki kodu bir modüle kopyalayıp çalıştırın. E1 hücresinde toplam gün sayısını yazacaktır.

Sub hesapla()

Dim tarih1 As Date
Dim tarih2 As Date
Dim gun As Long

tarih1 = Range("C1")
tarih2 = Range("D1")
son = [A65000].End(3).Row
gun = 0
Range("E1").ClearContents

For t = 1 To son
    If Cells(t, "A").Value > tarih1 And Cells(t, "A").Value < tarih2 Then
        gun = Int(gun + Now - Cells(t, "A"))
    End If
Next
Range("E1") = gun

End Sub

Teşekkur ederim