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.
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.