ListBoxlar arası veri aktarımı

[imdatsaral]

Arkadaşlar ekte gönderdiğim dosyada model seçtiğimde yandaki ListBoxta siparişler çıkıyor. Örnek veriyorum BT-335 tıkladığımda yandaki listede BT-335-SBI ait siparişlerde çıkıyor.
kodlar bana ait olmadığından çözemiyorum yardımcı olursanız sevinirim

 

[halit3]

ListBox2_Change
listbox2 deki kodu

bu kodu

Set k = Sheets("sipariş").Range("B9:B65536").Find(ListBox2.Text & "*", , xlValues, xlWhole)

aşağıdakiyle değiştir

Set k = Sheets("sipariş").Range("B9:B65536").Find(ListBox2.Text, , xlValues, xlWhole)

 

[imdatsaral]

teşekkür ederim çok sağol