userform listbox süz

[cihangirkara]

arkadaşlar dosyamda 3 adet userform var benim sorunum userform1 ile

şuanda userform daki listbox1 de sayfa1 deki firma isimleri ve b,c,d,e,f sütünları çıkıyor

listbox1 de firma isimleri ve textbox2 ye yazılan kredi kodunun karşılığı olan sütün (sayfa1 D sütünu)

Listbox 2 de textbox3 e yazılan kredi kodunun karşılığı olan sütün(sayfa1 D sütünu)

Listbox 3 de textbox4 e yazılan kredi kodunun karşılığı olan sütün(sayfa1 D sütünu)

Listbox 4 de textbox5 e yazılan kredi kodunun karşılığı olan sütün(sayfa1 D sütünu)

olsun istiyorum yanlız ana kriterimiz yine listbox1 de çıkan firma isimleri olmalı

çok teşekkürler

Sn leventm ilgilenirseniz sevinirim

 

[isfa5878]

Private Sub TextBox2_Change()
Dim MyRng As Range
ListBox1.Clear
For Each MyRng In Worksheets("Sayfa1").Range("c1:c" & Worksheets("Sayfa1").Range("c65536").End(xlUp).Row)
If LCase(MyRng) Like LCase(TextBox1 & "*") Then ListBox1.AddItem MyRng(1, 2)

Next
End Sub

 

[cihangirkara]

denedim olmadı hiç değişiklik yok ekli dosyayı incelerseniz sevinirim

 

[isfa5878]

listbox2 için
textbox3 e bir deneyin
listbox1 textbox1 kodlarıyla kontrol ediliyor

Private Sub TextBox3_Change()
Dim MyRng As Range
ListBox2.Clear
For Each MyRng In Worksheets("Sayfa1").Range("c1:c" & Worksheets("Sayfa1").Range("c65536").End(xlUp).Row)
If LCase(MyRng) Like LCase(TextBox3 & "*") Then ListBox2.AddItem MyRng(1, 2)

Next
End Sub

 

[cihangirkara]

Baba BÜyÜksÜn

 

[cihangirkara]

BABA bir hata var o da şu textbox un 2 tanesine giriş yapınca biri çalışmıyor

 

[cihangirkara]

birde firma isimlerinin çıktığı listbox1 e bağlı değil yani firma seçtiğimde listbox2 ve listbox3 te diğer firma rakamları kalıyor

 

[isfa5878]

dosyanın son haline baksak.

 

[cihangirkara]

textbox 1 e harfyazdıkça firmalar gözüküyor a yazınca a ile başlayanlar ab yazınca ab ile başlayanlar ama textbox 3 4 e kredi kodlarını yazıp görüyorum yanlız firmalar değiştikçe o rakamlar listbox 2 ve 3 te kalıyor

 

[isfa5878]

textbox1 firma yazılınca temizlenmesini mi istiyorsunuz ?

Private Sub TextBox1_Change()
ListBox....Clear
ListBox....Clear
textbox.. .value =""
textbox.. .value =""
.
.
.
kodların
.
End Sub


"Private Sub TextBox(X)_Change() " leri ve çalıştıracakları listboxların adlarını
yukarıdaki kodların içinde değiştirmeye dikkat..

 

[cihangirkara]

yanlış anlaşıldı galiba listbox1 de firmalar yazıyor textbox 1 den firma yazıp listbox1 de firma tek kalıyor diğer firmalar siliniyor
isteğim şu firmalar silinince listbox2,3,4 te rakamlar kalıyor silinen firmaların rakamlarıda silinisin

 

[cihangirkara]

yokmu yardım edecek