Listview de arama Hatası..

[doukan84]

Arkadaşlar 2 Tane Textbox ile arama yaptırmak istiyorum Listviewde ama sorun var çalışmıyor anlamadım.. ilk Textbox ile arama yapılmıyor ama 2ncisinde sorunsuz arıyor

Bu birinci Textbox kodu

Private Sub TextBox1_Change()
 ListView1.ListItems.Clear
    On Error Resume Next
    
        evn = UCase(Replace(Replace(TextBox1, "?", "I"), "i", "I."))
        
        For i = 2 To Sayfa2.Range("B65536").End(3).Row
            If UCase(Replace(Replace(Sheets(2).Cells(i, 2).Value, "?", "I"), "i", "I.")) _
                Like "*" & evn & "*" Then 'Harflerin Büyük veya Küçük ayrım yapılmaksızın _
        aranması için burada UCase ile harfler büyütülüyor
        With Sayfa1
                Set liste = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
                  liste.SubItems(1) = .Cells(i, 2).Value
                  liste.SubItems(2) = .Cells(i, 3).Value
                  liste.SubItems(3) = .Cells(i, 4).Value
                  liste.SubItems(4) = .Cells(i, 5).Value
                  liste.SubItems(5) = .Cells(i, 6).Value

                End With
            End If
        Next i
End Sub

Buda 2nci Textboxın

Private Sub TextBox2_Change()
 ListView1.ListItems.Clear
    On Error Resume Next
    
        evn = UCase(Replace(Replace(TextBox2, "?", "I"), "i", "I."))
        
        For i = 2 To Sayfa2.Range("B65536").End(3).Row
            If UCase(Replace(Replace(Sheets(2).Cells(i, 3).Value, "?", "I"), "i", "I.")) _
                Like "*" & evn & "*" Then 'Harflerin Büyük veya Küçük ayrım yapılmaksızın _
        aranması için burada UCase ile harfler büyütülüyor
        With Sayfa2
                Set liste = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
                  liste.SubItems(1) = .Cells(i, 2).Value
                  liste.SubItems(2) = .Cells(i, 3).Value
                  liste.SubItems(3) = .Cells(i, 4).Value
                  liste.SubItems(4) = .Cells(i, 5).Value
                  liste.SubItems(5) = .Cells(i, 6).Value

                End With
            End If
        Next i
End Sub

Buda listview kodu

Private Sub UserForm_Initialize()
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ColumnHeaders.Clear
    With ListView1.ColumnHeaders
            .Add , , "S.NO", 30, P0
            .Add , , "EVRAK KAYIT NO", 160, 0        'Satır Başlığı,genişlik
            .Add , , "EVRAKIN KONUSU", 230, 0
            .Add , , "DOSYALANDIĞI KLASÖR", 100, 0
            .Add , , "DİĞER", 80, 0
        
        End With
        
         ListView1.ListItems.Clear
    On Error Resume Next
    With Sayfa2
        For i = 2 To .Range("B65536").End(3).Row
        Set liste = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
        liste.SubItems(1) = .Cells(i, 2).Value
        liste.SubItems(2) = .Cells(i, 3).Value
        liste.SubItems(3) = .Cells(i, 4).Value
        liste.SubItems(4) = .Cells(i, 5).Value
        liste.SubItems(5) = .Cells(i, 6).Value

        Next i
        End With
End Sub

Sorun nerde anlayamadım.. Bu aynı Listviewden bir tane daha kopyalayıp Başka bir sayfada deniyorum buseferde 2 arama kutusuda(textboxlar) arama yapmıyor

 

[systran]

Visual Basic editörde Tools--> References kısmına tıklar mısın?
orada "Available References" lsitesinde neler işaretli ve MISSING yazısı var mı yok mu?

 

[Orion1]

on error resume next satırlarını silerek nerede yani hangi satırda hata oluştuğunu görebilirsiniz.