Listboxa İlk Harfe Göre Veri Almak

[memduh]

Listboxa Ýlk Harfe Göre Veri Almak

Merhaba Arkadaşlar. userform1 üzerinde 1 textboxım var textboxa diyelimki "d" harfi yazınca userform2 çağırılacak ve üzerindeki listboxa "D" harfi ile başlayan isimleri listeleyecek.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[memduh]

Dosya ektedir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu userform1 deki textboxa yazarak deneyin.

[vb:1:9bb02653c0]Private Sub TextBox1_Change()
On Error Resume Next
UserForm2.ListBox1.Clear
If TextBox1 = "" Then Exit Sub
For a = 2 To [b65536].End(3).Row
If UCase(TextBox1) = Left(Cells(a, "c"), 1) Then
c = c + 1
For b = 3 To 6
UserForm2.ListBox1.AddItem
UserForm2.ListBox1.List(c - 1, b - 3) = Cells(a, b)
Next
End If
Next
UserForm2.ListBox1.ColumnCount = 4
UserForm2.ListBox1.ColumnWidths = "100;100;100;100"
UserForm2.Show
End Sub[/vb:1:9bb02653c0]