iki tarih arası verileri getirme

[himmety]

Merhaba
excel dosyamda 2 tarih aralığı ve bu 2 tarih aralığı için 2 tarih aralığında veri var. bu iki tarih arasındaki verileri nasıl çekebilirim. Anlatmam biraz karşık oldu alttaki örnekte biraz anlaşılabilir

tablomda
sayfa 1 de A1 hücresinde 01.01.2023 - b1 hücresinde 15.02.2023 tarih aralığında c1 hücresinde 15 sayısı var
sayfa 1 de a2 hücresinde 16.02.2023 - b2 hücresinde 28.02.2023 tarih aralığında c2 hücresinde 30 sayısı var

bu sayıyı sayfa 2 de bulunan a1 hücresinde 30.12.2022 - b1 hücresinde 15.02.2023 tarih aralığı için c1 hücresine
a2 hücresi için de a2 hücresinde 17.02.2023 b2 hücresinde 27.02.2023 tarih aralığı için c2 hücresine
a3 hücresine de 17.01.2023 - 19.01.2023 tarih aralığına ise a1 hücresindeki tarih aralığında bulunan c1 hücresindeki değeri

yazdırabileceğimiz formül varmıdır?
yardımcı olabilirmisiniz?

 

[Korhan Ayhan]

Merhaba,

Sorunuzu örnek dosya ile desteklerseniz konu daha net anlaşılacaktır.

 

[fatiheryildiz]

Merhabalar..Sorunuzun cevabı olabilecek bir kodu aşağıda kod bölümünde sunuyorum..

Başka bir çalışmada ben bu kodlar ile tarihler arası sorgulama yapıyorum.. Uyarlayabilirseniz sizde yapabilirsiniz..

Kolaylıklar diliyorum.

Private Sub CommandButton1_Click()
Dim SonSatir As Long
SonSatir = Sheets("TASODM").Cells(Rows.Count, "A").End(xlUp).Row

If ComboBox5.Value = "" Then
        MsgBox "RAPOR BAŞLANGIÇ TARİHİNİ GİRMEDİNİZ !", vbInformation, Title:="ŞANTİYE VERİ TAKİP PROGRAMI"
        Exit Sub
    End If
    
    If ComboBox6.Value = "" Then
        MsgBox "RAPOR BİTİŞ TARİHİNİ GİRMEDİNİZ !", vbInformation, Title:="ŞANTİYE VERİ TAKİP PROGRAMI"
        Exit Sub
    End If
    
    
    bastarih = CDbl(CDate(ComboBox5.Value))
    sontarih = CDbl(CDate(ComboBox6.Value))
    Satir = 0
    Say = 0
    On Error Resume Next
    ListBox2.RowSource = ""
    
    On Error GoTo 0
    
    ReDim Veri_Dizisi(1 To 8, 1 To SonSatir)
    
    With Worksheets("TASODM")
          
    For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
    
    If CDate(Sheets("TASODM").Cells(i, 3).Value) >= bastarih And CDate(Sheets("TASODM").Cells(i, 3).Value) <= sontarih Then
    Satir = Satir + 1
    Say = Say + 1
    
    
    For Sutun = 1 To 8
    Veri_Dizisi(Sutun, Satir) = .Cells(i, Sutun).Text
    
    Next Sutun
    
    End If
    
    Next i
    End With
    
    
    If Say > 0 Then
          
    ReDim Preserve Veri_Dizisi(1 To 8, 1 To Satir)
    ListBox2.Column = Veri_Dizisi
    With ListBox2
    Range("A2:H" & SonSatir).Sort Key1:=Range("C2"), Order1:=xlDescending
    End With
    
    Else
    
        MsgBox "Seçtiğiniz Tarih Aralığında Veri Bulunamamıştır. İlgili Bilgiler En Baştan Yüklenmiştir.", vbInformation, Title:="ŞANTİYE VERİ TAKİP PROGRAMI"
        
        ListBox2.RowSource = "TASODM!A2:H" & SonSatir 'lisbox'ta gösterilecek hücre aralığı
        ListBox2.ColumnCount = 8
    
        End If
        KasaDurumuTaseronListBox2
    
    Label8.Caption = ComboBox5.Value & " - " & ComboBox6.Value & " Tarihleri Arası Toplamı"
    
End Sub