Soru Sayfalarda arama

[reosman]

Private Sub CommandButton1_Click()
Dim d As Range
Set d = [D].Find(what:=TextBox1.Value, LookAt:=xlWhole)
If Not d Is Nothing Then
d.Offset(0, 2).Select
Else
MsgBox "Aradığınız Sicil Numarası Bulunamadı...!", vbCritical, "Dosya Sicil Numarası Sorgulama"
End If
TextBox1.Value = ""
End Sub

Sayfada aramak için yukarıdaki kodu kullanıyorum.
Fakat tüm sayfalardaki yine aynı D sütunundan arama yaptırmak ve ilgili sayfa ve satıra
gitmek istiyorum. Bu koda ne eklemek veya çıkartmak gereklidir. Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    Dim Alan As Range
    Dim syf As Worksheet
    Dim Bulundu As Boolean
    For Each syf In ThisWorkbook.Worksheets
        Set Alan = syf.Range("D:D").Find(what:=TextBox1.Value, LookAt:=xlWhole)
        If Not Alan Is Nothing Then
            Bulundu = True
            syf.Select
            Exit For
        End If
    Next
    If Bulundu Then
        Alan.Select
    Else
        MsgBox "Aradığınız Sicil Numarası Bulunamadı...!", vbCritical, "Dosya Sicil Numarası Sorgulama"
    End If
    TextBox1.Value = ""
End Sub

 

[reosman]

Muzaffer Ali bey işiniz gücünüz rast gelsin çok çok teşekkür ederim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.