Sayfalardaki Verileri Tek Sayfada Toplamak

[baydeniro]

Merhaba arkadaşlar. Sayfalarda bulunan verilerin tarihe göre RAPOR sayfasına alınması mümkün mü ? 3 sayfada bulunan verilerin belli bölümlerinin, satırdaki tarih ile rapor tarihinin aynı olması halinde RAPOR sayfasına alınması.
Örnek dosya ekte.

 

[mancubus]

Sub TarihTutarsaAktar()

Dim wsRap As Worksheet, ws As Worksheet
Dim ara
Dim i As Long, ss As Long

Set wsRap = Worksheets("RAPOR")
wsRap.Range("A2:E15000").Clear
ara = wsRap.Range("G1").Value

For Each ws In Worksheets
    With ws
        If .Name <> wsRap.Name Then
            For i = 7 To .Cells(.Rows.Count, "B").End(xlUp).Row
                If .Cells(i, "G") = ara Then
                    ss = wsRap.Cells(Rows.Count, "B").End(xlUp).Row + 1
                    wsRap.Cells(ss, "A").Value = Application.Max(wsRap.Columns(1)) + 1
                    wsRap.Cells(ss, "B").Value = .Name
                    wsRap.Cells(ss, "C").Value = .Cells(i, "B").Value
                    wsRap.Cells(ss, "D").Value = .Cells(i, "D").Value
                    wsRap.Cells(ss, "E").Value = .Cells(i, "E").Value
                End If
            Next
        End If
    End With
Next

End Sub

 

[baydeniro]

Sayın mancubus Allah sizden razı olsun, yani kelimenin tam anlamıyla mükemmel bir kod, tam bir zeka parıltısı. Elleriniz dert görmesin. Sağlıcakla kalın.

 

[mancubus]

esağfurullah.
rica ederim.
işe yaradığına sevindim.

 

[baydeniro]

Sayın mancubus işe yaramak kelimesi hafif kalır, yani sevinçten resmen ayaklarım yerden kesildi. Tekrar çok teşekkür ederim, Allah sizleri başımızdan eksik etmesin.