Hata kodu

[yamahato]

Yardımlarınız için çok ama çok teşekkür ederim.
Ufak bir sorun daha çıktı.
söyle anlatayım.
userbox 1 herhangi bir verinin ilk harfini girince, yazılan kod
sahibinden sayfasında arama yapıp bulduğu eşleşmelerin A sutununda ki VH LA BAŞLAYAN kodu veya kodlarını ListBox1 de gösteriyor.
Örnek olarak 3 rakamını TextBox 1 girdiniz.
Listbox1 de 2 tane vh kodu çıkıyor.. Bu vh kodlarına tıkayınca da o vh kodunun malzeme ismi TextBox 2 de çıkıyor.

Sorun burada başlıyor.
3 rakamını girdiniz 2 tane vh kodu geldi. bu kodlar hangi malzeme diye baktınız. istediğiniz malzeme o değil.
tekrar veri girmek için ya da silmek için arama motoruna(TextBox1) tıkladınız.
Silme yaptınız yada 1 harf veya rakam daha girdiniz hop aşağıda resimlerde ki hata kodunu veriyor
Nasıl çözerim bu sorunu?
Hata Resimleri

bulunan

ÖRNEK DOSYA
ÖRNEK (2).xlsm - 48 KB

 

[PLİNT]

Merhaba
"Listbox1_Change" başlığının altına; aşağıdaki işaretli satırı ekleyip deneyin.

Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")
End Sub

 

[yamahato]

Merhaba
"Listbox1_Change" başlığının altına; aşağıdaki işaretli satırı ekleyip deneyin.

Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")
End Sub

Allah razı olsun çok teşekkürler.