Bulunduğu sayfaya göre arama

[serkanım]

Merhaba

Kısaca şöyle bir şey yapmak istiyorum.Kendim yapmaya çalıştım fakat başarılı olmadım.Yardımlarınızı rica ederim.

* sayfa1, sayfa2 ve sayfa3 B sutununda bulunan numaraların data sayfasının B sutununda aranmasını
* aranan numarayı bulununca sagında yazan sayfa isimleri ile numaranın bulunduğu sayfa ismini kontrol etmesini
*Eğer sayfa ismi yer almıyorsa msgbox satırında numarayı uyarı olarak vermesini istiyorum.
Dosyada örnek vardır,

Teşekkrüler,,

 

[dEdE]

Merhaba,
Aşağıdaki kodları bir modüle yapıştırarak dener misiniz?

Sub BulKontrolEt()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "data" Then
    For j = 2 To Sheets(i).[B65536].End(3).Row
        Aranan = Sheets(i).Cells(j, 2).Value
        Set Bul = Sheets("data").Range("B:B").Find(Aranan, , , xlWhole, , xlNext)
        If Not Bul Is Nothing Then
            Set Bul1 = Sheets("data").Rows(Bul.Row).Find(Sheets(i).Name, , , xlWhole, , xlNext)
            If Bul1 Is Nothing Then _
                MsgBox Sheets(i).Cells(j, 2).Value & "  Numaranın karşısında " & Sheets(i).Name & " tanımlı değil,", , "Tanımlanmamış Sayfa"
        End If
    Next
End If
Next
End Sub

 

[serkanım]

Teşekkürler

Merhaba Sayın dEdE

Yardımızın için teşşekür ederim.Kodlar tam istediğim gibi çalışıyor.

Forumda "arama ile ilgili makro yazılabirmi " başlığı altında bir sorum vardı.Acaba bu konudada yardımcı olabilirmisiniz.

Saygılar