Farklı Sayfalardan Veri Çekmek

[KUCURİZM]

Merhaba arkadaşlar,
Haliniz keyfiniz nasıl umarım iyisinizdir.

Elimde 37 sayfalık bir çalışma kitabı var, ben Sayfa 1'de bir herhangi bir hücredeki veriyi; Örnek: 876

Anamur
Gazipaşa
Alanya
Kaş
Kemer
Manavgat

Sayfalarında aratmak istiyorum. Eğer yukarıdaki sayfalardan herhangi birinde veya bir kaçının içerisinde bir yerde 876 değeri var ise ;
bu sayfaların adını yan hücreye yazsın istiyorum.
Ama bu konuyu bir türlü çözemedim. Umarım güzelce anlatabilmişimdir. Her şey için teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Seçili hücrelerdeki veriyi belirttiğiniz sayfalarda arar varsa sağındaki hücreye yazar.
Daha fazlası için örnek dosya paylaşınız...

Sub kod()
sayfa = Array("Anamur", "Gazipaşa", "Alanya", "Kaş", "Kemer", "Manavgat")
For Each hcr In Selection
    For Each s In sayfa
        If WorksheetFunction.CountIf(Sheets(s).UsedRange, hcr.Value) > 0 Then
            m = m & ", " & s
        End If
    Next
    hcr.Offset(0, 1).Value = Mid(m, 3)
    m = ""
Next
End Sub