Textbox&Listbox Hakkında.

[xwolkyx]

Arkadaşlar;
Textbox a yazılan veriyi belli bir veri listesi içinde aratıp benzeyenleri yada içinde geçenleri listbox a süzdürmek mümkünmüdür?

Örnek dosya ekte yardımcı olursanız çok sevinirim.

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListCount = 0 Then Exit Sub
Range("C2").Value = ListBox1.Value
Unload Me
End Sub

Private Sub TextBox1_Change()
Dim k As Range, adr As String
ListBox1.Clear
Set k = Range("Q:Q").Find(TextBox1.Value, , xlValues)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem k.Value
        Set k = Range("Q:Q").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub

 

[xwolkyx]

Eline emeğine sağlık üstad birde veriyi seçtikten sonra userformu kapatsak.

 

[Orion1]

Eline emeğine sağlık üstad birde veriyi seçtikten sonra userformu kapatsak.

Kodları düzenledim 2 numaralı mesajdan indirebilirsiniz.

 

[xwolkyx]

OK Çalıştı teşekkürler..

 

[Orion1]

OK Çalıştı teşekkürler..

Ben yaparımda çalışmazmı?
İyi çalışmalar.

 

[leptun]

arkadaşlar selam ben bir sevk kağıdı yaptım ama eksikleri var ben pop up menü içine tıkladığımda personeller çıksın ismi tıkladığımda ise bilgileri gelsin yardımcı olursanız sevinirim tşkler