Çalışma kitabının tüm sayfalarında arama yapmak

[Erdal]

Merhabalar
Aşağıdaki kod ile çalışma kitabındaki tüm sayfaların A:C sütunlarında tam arama yapabiliyorum. Ama … içerir ve … ile başlayan mantıklarıyla arama yaptıramadım. Örnek dosya ektedir. Acaba yardımcı olabilir misiniz? Saygı ve selam ile ...

Private Sub CommandButton1_Click()
Dim k As Range, adr As String
ListBox1.Clear
If TextBox1.Text = "" Then Exit Sub
For i = 1 To Worksheets.Count
    Set k = Sheets(i).Range("A:C").Find(TextBox1.Text, , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            ListBox1.AddItem
            ListBox1.Column(0, ListBox1.ListCount - 1) = Sheets(i).Name
            ListBox1.Column(1, ListBox1.ListCount - 1) = k.Address
            ListBox1.Column(2, ListBox1.ListCount - 1) = k.Value
            Set k = Sheets(i).Range("A:C").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
Next i
Set k = Nothing
End Sub

 

[Korhan Ayhan]

İçerir;

Private Sub CommandButton1_Click()
Dim k As Range, adr As String
ListBox1.Clear
If TextBox1.Text = "" Then Exit Sub
For i = 1 To Worksheets.Count
    Set k = Sheets(i).Range("A:C").Find(TextBox1.Text, , xlValues, xlPart)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            ListBox1.AddItem
            ListBox1.Column(0, ListBox1.ListCount - 1) = Sheets(i).Name
            ListBox1.Column(1, ListBox1.ListCount - 1) = k.Address
            ListBox1.Column(2, ListBox1.ListCount - 1) = k.Value
            Set k = Sheets(i).Range("A:C").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
Next i
Set k = Nothing
End Sub

İle başlar;

Private Sub CommandButton1_Click()
Dim k As Range, adr As String
ListBox1.Clear
If TextBox1.Text = "" Then Exit Sub
For i = 1 To Worksheets.Count
    Set k = Sheets(i).Range("A:C").Find(TextBox1.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            ListBox1.AddItem
            ListBox1.Column(0, ListBox1.ListCount - 1) = Sheets(i).Name
            ListBox1.Column(1, ListBox1.ListCount - 1) = k.Address
            ListBox1.Column(2, ListBox1.ListCount - 1) = k.Value
            Set k = Sheets(i).Range("A:C").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
Next i
Set k = Nothing
End Sub

 

[Erdal]

Ancak bakma şansı bulabildim. Teşekkür ederim Korhan Bey istediğim gibi olmuş. Hakkınızı helal edin.

 

[Erdal]

Dosyanın son halini ekliyorum. Belki faydalanan olur.