Textbox girilen ile listbox ı filtrelemek

[EMREKAYA]

Arkadaşlar ekteki dosyada userformda text boxta aşağıyı filtrelemek istiyorum.
Yani textbox a "A" yazdığımda a ile başlayanlar kalmış olsun isityorum sadece listboxta

 

[İhsan Tank]

Arkadaşlar ekteki dosyada userformda text boxta aşağıyı filtrelemek istiyorum.
Yani textbox a "A" yazdığımda a ile başlayanlar kalmış olsun isityorum sadece listboxta

merhaba
userform'un kod bölümüne

Private Sub CommandButton1_Click()
Unload Userform1
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Dim s As String
ListBox1.Clear
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "100"
sat1 = 0
j = Len(TextBox1.Value)
For i = 6 To Worksheets("Sayfa1").[B65536].End(3).Row
s = LCase(Mid(Sheets("Sayfa1").Range("B" & i), 1, j))
If Worksheets("Sayfa1").Cells(i, "B").Value > 0 Then
If TextBox1.Text <> "" Then
If s = LCase(TextBox1.Text) Then
ListBox1.AddItem
ListBox1.List(sat1, 0) = Sheets("Sayfa1").Range("B" & i)
ListBox1.List(sat1, 1) = i
sat1 = sat1 + 1
End If
Else
ListBox1.AddItem
ListBox1.List(sat1, 0) = Sheets("Sayfa1").Range("V" & i)
ListBox1.List(sat1, 1) = i
sat1 = sat1 + 1
End If
End If
Next
End Sub

bu kodu kopyalayın ve deneyin.
Not : Kod Halit3 Uzman'a Aittir.

 

[ffff7]

İki noktaya dikkat edilmelidir.

Listbox ta clear ile temizlemek için rowsource ile değil additem ile eleman eklemek gerekiyor.

Private Sub Userform_Activate()
For i = 6 To Worksheets("Sayfa1").[B65536].End(3).Row
ListBox1.AddItem Sheets("Sayfa1").Range("B" & i)
Next
End Sub

Birde kodun sağlıklı çalışması için

ListBox1.List(sat1, 0) = Sheets("Sayfa1").Range("[B]V[/B]" & i)

satırındaki "V" "B" olarak değişmelidir.

 

[EMREKAYA]

Halit uzmana ve bu kodu bana ulaştıran İhsan tank çok teşşekürler.
İstediğim gibi userformu çalışmamı sağlayan "ffff7" ye yardımları için çok teşekkür ederim.