iki tarih arası listeleme

[mbfmbf]

merhabalar,

GİRİŞ adındaki sayfamda A sütununda tarihlerin olduğu listem var 2013 yılından 2017 tarihine kadar farklı günler bulunuyor. RAPOR isimli sayfada bir tarih aralığı girdiğimde yazdığım iki tarih arasını Giriş sayfasından verileri alıp Rapor sayfasında göstermesi için bir formül varmıdır?

Şimdiden teşekkürler

 

[carlosfatih]

Merhaba,

Ne istediğinizi tam olarak örnek exceli ile bizimle paylaşabilirseniz yardımcı olabiliriz. http://www.dosya.tc/ bu siteye yükleyip linki bizimle paylaşabilirsiniz.

 

[mbfmbf]

linki attım giriş sayfasında bulunan ödeme tarihini sütunununda bulunan tarihler içinden 01.01.2015 ile 31.12.2015 arasını listeleyip yandaki tarih arası liste sayfasında listelemeye ihtiyacım var.

Rapor kısmında sağ üst tarafta iki tarih arası toplamları aldırıyor ama bana listeside gerkmekte.

teşekkürler

 

[mbfmbf]

http://s3.dosya.tc/server6/sdiyy6/fintab_2.rar.html şifresi 1

 

[mbfmbf]

bu arada rapor sayfasında sağ üst kısımda başlama tarihi ve bitiş tarihi hücresine isteğim tarihleri yazacağım.

 

[carlosfatih]

Merhaba,

Bunun için formüle ihtiyacınız olmadığını düşünüyorum açıkçası. Tarih filtremesi işinizi görmüyor mu? http://dosya.co/82k80gl4hl80/fintab_2_carlos_edition.xlsm.html
linkinde dosyada gördüğünüz gibi ilk sayfadan aldığınız verileri istediğiniz tarihler arasında filtreleyebilirsiniz. "filtre-tarih filtreleri-arasında " yolu ile bunu yapabilirsiniz.

 

[Vedat Özer]

Merhabalar,

Alternatif olarak aşagıdaki kodu deneyebilirmisiniz.

Option Explicit

Sub Rapor()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Son As Long, Say As Long, Liste(), Veri(), Zaman As Double
    Tarih1 As Date, Tarih2 As Date
    
    Zaman = Timer
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    Set S1 = Sheets("GİRİŞ")
    Set S2 = Sheets("RAPOR")
    
    S2.Range("A18:I" & S2.Rows.Count).ClearContents
    S2.Range("A18:B" & S2.Rows.Count).NumberFormat = "dd.mm.yyyy"
    Son = S1.Cells(S1.Rows.Count, 2).End(3).Row
    Say = 1
    
                     
    Liste = S1.Range("A2:I" & Son).Value
    ReDim Veri(1 To Son, 1 To 9)
     
    Tarih1 = S2.Range("E7").Value
    Tarih2 = S2.Range("E8").Value
      
    For X = LBound(Liste) To UBound(Liste)
        If Liste(X, 2) >= Tarih1 And Liste(X, 2) <= Tarih2 Then
                    
                    ReDim Preserve Veri(1 To Son, 1 To 9)
                    Veri(Say, 1) = Liste(X, 1)
                    Veri(Say, 2) = Liste(X, 2)
                    Veri(Say, 3) = Liste(X, 3)
                    Veri(Say, 4) = Liste(X, 4)
                    Veri(Say, 5) = Liste(X, 5)
                    Veri(Say, 6) = Liste(X, 6)
                    Veri(Say, 7) = Liste(X, 7)
                    Veri(Say, 8) = Liste(X, 8)
                    Veri(Say, 9) = Liste(X, 9)
                    Say = Say + 1
                           
       End If
    
    Next

    If Say > 0 Then
        S2.Range("A18").Resize(Say, 9) = Veri
        End If

    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub