Birden fazla sayfada sorgulama yaparak istenen verileri tek sayfada toplamak

[gohanx21]

Arkadaşlar hazırladığım formda sayfalarda mevcut verileri tek bir kritere göre sorgulayarak sonuçlarını başka bir sayfaya yazdırmak istiyorum. Ekteki dosyada açıklamalı olarak soruyu yazdım.
Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Ay sayfalarında veri alınan sütunlar yanlış olabilir. Doğrularıyla siz değiştirirsiniz. Kırmızı ile işaretliyorum.

Option Explicit
Sub OdenmeyenleriListele()
 
Dim sat As Long, sayfa As Worksheet, c As Range, IlkAdres As String
Application.ScreenUpdating = False
Sheets("Ödemeyenler").Select
Range("A3:D65536").ClearContents
sat = 3
For Each sayfa In Worksheets
    If sayfa.Name <> "Ödemeyenler" And sayfa.Name <> "Veri" And _
    sayfa.Name <> "Rezervasyon" Then
        With sayfa.Range("H:H")
            Set c = .Find("Ödenmedi", , LookIn:=xlValues)
            If Not c Is Nothing Then
                IlkAdres = c.Address
                Do
                    Cells(sat, "A") = sat - 2
                    Cells(sat, "B") = sayfa.Cells(c.Row, "[COLOR=red]E[/COLOR]")
                    Cells(sat, "C") = sayfa.Cells(c.Row, "[COLOR=red]C[/COLOR]")
                    Cells(sat, "D") = sayfa.Cells(c.Row, "[COLOR=red]L[/COLOR]")
                    sat = sat + 1
 
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> IlkAdres
            End If
        End With
    End If
Next sayfa
Application.ScreenUpdating = True
MsgBox "İşleminiz Tamamlanmıştır...!", vbInformation
End Sub

.

 

[gohanx21]

Ömer bey yardımınız için çok teşekkürler. Bu arada geçmiş bayramınız kutlu olsun.