aynı veriyi farklı iki sayfadan 2 adet listboxa aynı anda süzmek

[udentr2002]

Konu başlığı pek açıklayıcı olmadı ama kısaca yapmaya çalıştığım şu.

combobox1'e yazdığım bir veriyi Stok_Kodu adlı sayfada Listbox1'e ve aynı veriyi aynı anda Recete adlı sayfadan listbox2'de nasıl süzdürebilrim. Listbox1 ve listbox2 aynı userform üzerinde yan yana durmaktadır.

Ben şöyle bir kod yazdım ama olmadı sadece Listbox1'de süzüyor listbox2'de süzmüyor kodlar aşağıdaki gibi

Private Sub ComboBox1_Change()

On Error Resume Next
ComboBox1 = Evaluate("=UPPER(" & """" & ComboBox1 & """" & ")")
ListBox1.RowSource = Empty
ListBox1.Clear

For Each isim In Sheets("Stok_Kodu").Range("a3:a" & Sheets("Stok_Kodu").Range("a65536").End(3).Row)
    If UCase(LCase(isim)) Like UCase(LCase(ComboBox1)) & "*" Then
    
    For Each kont In Sheets("Recete").Range("a3:a" & Sheets("Recete").Range("a65536").End(3).Row)
    If UCase(LCase(kont)) Like UCase(LCase(ComboBox1)) & "*" Then
    'kont.Select
    
       liste = ListBox1.ListCount
    ListBox1.AddItem
    ListBox1.List(liste, 0) = isim
    ListBox1.List(liste, 1) = isim.Offset(0, 1)
    ListBox1.List(liste, 2) = isim.Offset(0, 2)
    ListBox1.List(liste, 3) = isim.Offset(0, 3)
    ListBox1.List(liste, 4) = isim.Offset(0, 4)
    
    Exit For
End If
Next

    liste1 = ListBox2.ListCount
    ListBox2.AddItem
    ListBox2.List(liste1, 0) = kont
    ListBox2.List(liste1, 1) = kont.Offset(0, 1)

Exit For
End If
Next

bu kodu yukarıda anlattığım şekli ile çalışması için nasıl düzeltebilrim.

 

[udentr2002]

Bu konuda yardımcı olabilecek bir hocam varmı?