ikili verilen iki tarih aralığı birbirini kapsayan günlerini çıkarma

Katılım
13 Mayıs 2022
Mesajlar
3
Excel Vers. ve Dili
2013 ve Türkçe
Öncelikle selamlar. Forumda yeniyim ve bu ilk açtığım konu olacak. Doğru yere mi açıyorum bilmiyorum. soruma gelecek olursak A ve B sütunlarında yapılan son iki işlem tarihleri var. C sütunu ise B ve A sütunlarının farkı. İsteğim şu A ve B sütunları arası tarihin için J ve K sütunlarındaki tarih aralığında kaç gün var ise bunu D sütununa yazmak. örnek vermek gerekirse A37 ve B37 sütunları arasındaki tarih aralığı J ve K sütunları arasında 4 satırı içine alıyor ve bu günlerin toplamı 68 oluyor ve bunu D sütuna yazacak formülü oluşturmak için hangi formüllerden yararlanmalıyım.
 
Katılım
17 Mart 2022
Mesajlar
281
Excel Vers. ve Dili
2016/Türkçe
Altın Üyelik Bitiş Tarihi
22-03-2023
Merhaba, Öncelikle Hoşgeldiniz,

Doğru anladı isem iki tarih arasındaki gün farkını almak istiyorsunuz yanlış isem düzeltiniz;
Aşağıdaki kodu kendinize uyarlayabilirsiniz eğer doğru anladı isem.
Yapamaz iseniz örnek dosyanızı paylaşmanız durumunda mesajı revize edebilirim.
Hayırlı akşamlar...

Benzer konu; https://www.excel.web.tr/threads/formuelue-koda-cevirme-talebi-hkk.200823/post-1124598

Kod:
"SayfaAdı" Yerine kendi sayfanızın adını yazmanız gerekmektedir.

Sub Test()
    Dim Bak As Integer
    with worksheets("SayfaAdı")
        For Bak = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            If IsDate(.Cells(Bak, "A")) Then
                .Cells(Bak, "B") = Date - .Cells(Bak, "A")
            End If
        Next
    end with
End Sub
 
Son düzenleme:
Katılım
13 Mayıs 2022
Mesajlar
3
Excel Vers. ve Dili
2013 ve Türkçe
Tam olarak iki tarih arası fark değil. Anlatmak istediğim şey çok karışık. Anlatırken zorlanıyorum. Şöyle bir şey istiyorum A ve B sütunu arasında ki tarih aralığında J ve K sütununda bulunan tarih aralıkları giriyorsa kaç gün girdiğini bulmak. İlginiz için teşekkürler.
 
Katılım
13 Mayıs 2022
Mesajlar
3
Excel Vers. ve Dili
2013 ve Türkçe
Çok teşekkürler hallettim. Makroda yeni olduğum için başta anlamadım. Cevaplarınız için teşekkürler.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Sorun çözülmüş olsa da formüller alternatif isteyen olursa diye paylaşıyorum.

J:K aralığındaki sorgulanan tarih aralıklarına yeni satırlar ilave edilebilir.

=TOPLA.ÇARPIM((A2<KAYDIR($J$1;0;0;BAĞ_DEĞ_DOLU_SAY($J:$J);1))*(B2>KAYDIR($J$1;0;1;BAĞ_DEĞ_DOLU_SAY($J:$J);1))*(KAYDIR($J$1;0;1;BAĞ_DEĞ_DOLU_SAY($J:$J);1)-KAYDIR($J$1;0;0;BAĞ_DEĞ_DOLU_SAY($J:$J);1)))
 
Üst