Aşağıda Sayın Leventm Beyin verdiği kodlarda textbox a girdiğim isme göre listbox a veri alıyor. alınan isimlerden iki ve daha fazlasını teke olrak listboxa göztermesini istiyorum. Mükerrer kayıtla ilgili arşivi inceledim fakat uayarlama bu kod mantığına göre yapamadım yardımcı olursanız sevinirim.Saygılar.
Private Sub TextBox1_Change()
Dim MyRng As Range
ListBox1.Clear
If TextBox1 <> Empty Then
For Each MyRng In Sheets("sayfa1").Range("c7:c" & _
Sheets("sayfa1").Range("c65536").End(xlUp).Row)
If LCase(MyRng) Like LCase(TextBox1 & "*") Then ListBox1.AddItem MyRng
Next
End If
End Sub
Private Sub TextBox1_Change()
Dim MyRng As Range
ListBox1.Clear
If TextBox1 <> Empty Then
For Each MyRng In Sheets("sayfa1").Range("c7:c" & _
Sheets("sayfa1").Range("c65536").End(xlUp).Row)
If LCase(MyRng) Like LCase(TextBox1 & "*") Then ListBox1.AddItem MyRng
Next
End If
End Sub