Soru Sayfalarda arama

reosman

Altın Üye
Katılım
26 Nisan 2021
Mesajlar
50
Excel Vers. ve Dili
TR 2019
Private Sub CommandButton1_Click()
Dim d As Range
Set d = [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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,692
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Kod:
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
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
3,692
Excel Vers. ve Dili
2019 Türkçe
Rica ederim. Kolay gelsin.
 
Üst