Listview filtreleme

[kemal turan]

Merhaba,
ek dosyada userform içerisinde açıklama yaptım.
aşağıda ustaların çalışmalarından revize ettiğim Listview filtreleme kodu ilk tasarımda çalışıyor.
başka bir userform çalışması eklemesi yaptıktan sonra çalışmıyor.
enteransan olan bu kod başka avukat arkadaşım için yaptığım çalışmada sorunsuz çalışıyor. 2 gündür çıldırttı beni.
yardımcı olabilirseniz sevinirim.

Private Sub TextBox1_Change()
Set SH = Sheets("CARI")
Ara = CARI.TextBox1.Value
    Set bulunacak = SH.Range("B2:B1000").Find(Ara) 'VERİ HANGİ SÜTUNDA ARANACAK
    If Not bulunacak Is Nothing Then
       Adres = bulunacak.Address
       ListView1.ListItems.Clear
       Do
            SAT = bulunacak.Row
            With ListView1
               .ListItems.Add , , SH.Cells(SAT, 1)
                X = X + 1
                With .ListItems(X).ListSubItems
                     .Add , , SH.Cells(SAT, 2)
                     .Add , , SH.Cells(SAT, 3)
                     .Add , , SH.Cells(SAT, 4)
                     .Add , , SH.Cells(SAT, 5)
                      
                     .Add , , SAT
                End With
            End With
            Set bulunacak = SH.Range("B2:B1000").FindNext(bulunacak)
        Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
    Else
        MsgBox "ARANAN KİŞİ KAYITLI DEĞİL", vbCritical, "ARAMA SONUCUNDA HATA"
        
        ListeGuncelle
        
    End If
End Sub

 

[kemal turan]

Dosyayı kapatıp açtığımda carı form filtreleme çalışıyor. Anasayfa userformunda işlem yaptığım zaman filtreleme bozuluyor

 

[PLİNT]

Merhaba
Dosyanıza bakma imkanım yok ama;
Aynı kodları "cari" formu dışında kullanıyorsanız ismi değişmeli veya silmelisiniz.

Ara = [COLOR="Red"]CARI.[/COLOR]TextBox1.Value

 

[kemal turan]

Sn.plint
Denedim olmuyor. Userformun adı dahil her şeyi denedim olmuyor.
Anlamadığım ilk açtığımda çalışan kod aynı çalışma kitabı başka bir userformda bir işlem yaptığımda neden bozulur.

 

[kemal turan]

Merhaba
Sn.Korhan hocamızın arşiv cevabından ilgili satırı aşağıdaki şekilde yapınca sorun çözüldü.

Find (Ara, LookAt:=xlPart)