Listbox filtreleme ve textboxa alma

[djoguzz]

Değerli üstadlar..

Ekli dosyada frmsatis isminde bir formum var bu formdada listbox mevcut uzun zamandır uğraşıyorum ama bir türlü yapamadım. listboxun yanındaki textboxa girilen veriyi listboxda süzdürmek istiyorum yani mesela listboxta Ali, Ahmet ve Mehmet isimleri var ben textboxtan a harfine bastığımda yalnızca Ali ve Ahmetin, ah yazdıımdada sadece ahmetin listboxta görünmesini ve ahmetin üzerine çift tıkladığımdada ahmete ait bilgilerin ilgili textboxlara yerleşmesini istiyorum. Lütfen yardımcı olabilir misiniz uzun zamandır arıyorum ama yapamadım bir türlü.. Teşekkür ediyorum şimdiden..

 

[djoguzz]

arkadaşlar acil bir konu yardımcı olabilecek yok mu ?

 

[djoguzz]

arkadaşlar yardım lütfen..

 

[Orion1]

Dosyanızda listboxa veri almayı yaptım.
textbox ile veri alma işi ile başlar şeklindedir.
textboxtaki sorgulama satislar C sütununda satış Sorumlusuna göre yapılmaktadır.
ad soyad textboxına listboxta çift tıklama ile müşteri sorumlusu adı gitmektedir.
Ben 1 tane çift tıklama ile textbxa veri aktarmayı yasptım.
satislar_list adında bir tane sayfa ekledim verileri oraya süzüyorum.
diğerlerini siz yapınız.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TxtAdiSoyadi.Text = ListBox1.Column(2)

End Sub

Private Sub TextBox1_Change()
Dim s1 As Worksheet, s2 As Worksheet, sat1 As Long, sat2 As Long
Set s1 = Sheets("satislar")
Set s2 = Sheets("satislar_list")
Application.ScreenUpdating = False
ListBox1.RowSource = ""
s2.Range("A1:BC" & Rows.Count).ClearContents
s1.Range("A1").AutoFilter
sat1 = s1.Cells(Rows.Count, "C").End(xlUp).Row
s1.Range("A1").AutoFilter field:=3, Criteria1:=TextBox1.Text & "*"
s1.Range("A1").CurrentRegion.Copy
s2.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
s1.Range("A1").AutoFilter
sat2 = s2.Cells(Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = True
If sat2 > 1 Then ListBox1.RowSource = "satislar_list!B2:bc" & sat2
End Sub