Aranan Veriyi Tüm Sayfalarda Aramak

[baydeniro]

Merhaba Arkadaşlar,

RAPOR sayfası D2 hücresine yazılı veriyi tüm sayfalarda arar ve RAPOR sayfasına yandaki gibi listelemesi mümkün mü acaba ?
Örnek dosya linki : http://s2.dosya.tc/server8/hjx2l8/ARANAN_VERIYI_TUM_SAYFALARDA_ARAMA.xls.html

 

[baydeniro]

Merhaba Arkadaşlar,

RAPOR sayfası D2 hücresine yazılı veriyi tüm sayfalarda arar ve RAPOR sayfasına yandaki gibi listelemesi mümkün mü acaba ?
Örnek dosya linki : http://s2.dosya.tc/server8/hjx2l8/ARANAN_VERIYI_TUM_SAYFALARDA_ARAMA.xls.html

 

[veyselemre]

Sub findAllSheets()
    Sheets("RAPOR").Select
    Aranacak = Range("D2")
    Range("B5:E" & Rows.Count).ClearContents
    say = 5
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "RAPOR" Then
            With sh.UsedRange
                Set c = .Find(Aranacak, LookAt:=xlPart)
                If Not c Is Nothing Then
                    firstAddress = c.Address
                    Do
                        If c.Column = 3 Then
                            Cells(say, 2) = sh.Name
                            Cells(say, 3) = sh.Range("E2")
                            Cells(say, 4) = sh.Range("F2")
                            Cells(say, 5) = c.Offset(, 1).Value
                            Set c = .FindNext(c)
                            say = say + 1
                        End If
                    Loop While Not c Is Nothing And c.Address <> firstAddress
                End If
                Set c = Nothing
            End With
        End If
    Next
End Sub

 

[baydeniro]

veyselemre üstadım çok çok teşekkür ederim. Süper bir kod, gerçekten muhteşem çalışıyor. Sağlıcakla kalın

 

[Necdet]

veyselemre Süper bir kod, gerçekten muhteşem çalışmıyor.

Kod hem çalışmıyor hem süper.

 

[baydeniro]

Necdet üstadım esprili bir dille nazik uyarınız için çok teşekkür ederim. 1 harf ile de olsa yazım hatasının yarattığı negatiflik yaratması yaşamın cilvelerinden biri Allahtan sizler gibi zeki insanlar yazılanın arkasındaki fikri görebiliyorsunuz. Sağolun varolun.

 

[Necdet]

Merhaba, sizde espiriyi olgunlukla karşıladığınız için teşekkür ederim. Olması gereken güzel bir özellik. Tebrikler. İyi günler.