Listbox aranan satırı seçme

[mukoli]

Merhaba alttaki kodu buldum . Textbox yazan değere listbox 1 sutun da arama yapıyor fakat soldan içerirleri arıyor . ben tam eşleşme olmasını istiyorum. Tam eşleşme olanları bulsun yardımcı olursanız sevinirim

Private Sub CommandButton3_Click()

Dim SearchCriteria, i, n As Double
On Error GoTo bitir
SearchCriteria = Me.TextBox7.Value
 If SearchCriteria = "" Then Exit Sub
n = ListBox1.ListCount

For i = 0 To n - 1
If Left(ListBox1.List(i), Len(SearchCriteria)) = SearchCriteria Then
ListBox1.ListIndex = i
Exit Sub
Exit For
End If
Next i

bitir:
MsgBox "ARANAN DEĞER BULUNAMADI...", vbOKOnly + vbInformation, "YOK"
End Sub

 

[ÖmerFaruk]

If Left(ListBox1.List(i), Len(SearchCriteria)) = SearchCriteria Then

yerine aşağıdaki satırı kullanarak denermisiniz.

If ListBox1.List(i)= SearchCriteria Then

 

[mukoli]

Ömer hocam teşekkür ederim ama olmadı başka kodla çözüm sağladım çok teşekkür ederim

 

[YUSUF44]

Olmaması normal değil, sizin kullandığınız kod (soldan bakarak) oluyorsa Ömer Bey'in verdiği kodun da olması gerekir.