çalışma kitabının tüm sayfalarında arama yaptırma

[remzi5555]

Sn. Forum Üyeleri,
Yüzü aşkın sayfadan oluşan bir çalışma kitabında arama yaptırmak istiyorum. Her sayfada farklı gruplara dahil üyeler var. İlgili üyelerin her birinin TC Kimlik Numarası mevcuttur. Giriş sayfamdan yapacağım bir arama işlemiyle, aradığım TC Numarasının olduğu sayfaya gidebilir miyim? Örneğin, çalışma kitabının giriş sayfasında oluşturduğum arama motoruna yazdığımız TC Kimlik Numarasının, "sayfa 95" isimli sayfada bulunduğunu varsayalım. Yaptığım arama işleminin "sayfa 95" e götürmesini istiyorum.
Şimdiden teşekkür edere, hayırlı çalışmalar dilerim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir
"TC NO" yu; "GİRİŞ" sayfasında "A1" hücresine yazdığınızı ve Sayfalarda "B:B" sütununda bulunduklarını farzederek

[SIZE="2"]Sub bul()
Dim a As Long
Dim ara As Range
Dim TCNO
TCNO = Sheets("GİRİŞ").[COLOR="Red"]Range("A1")[/COLOR]
If IsNumeric(TCNO) = False Then MsgBox "TCNO hatalı": Exit Sub
If Len(TCNO) <> 11 Then MsgBox "TC NO 11 Rakamlı olmalı": Exit Sub
For a = 1 To ThisWorkbook.Sheets.Count
If Sheets(a).Name <> "GİRİŞ" Then
With Sheets(a).[COLOR="red"]Range("B:B")[/COLOR]
Set ara = .Find(TCNO, , , xlPart)
If Not ara Is Nothing Then
Sheets(a).Activate
Sheets(a).Range(ara.Address).Select
Exit For
End If
End With
End If
Next
If ara Is Nothing Then MsgBox "TCNO bulunamadı"
End Sub[/SIZE]

 

[remzi5555]

Çok teşekkür ederim. Emeğinize ve yüreğinize sağlık.