Soru Listbox arama (Harf Duyarlı)

[sirkülasyon]

Sub filtrele()
    ListBox1.List = liste
    If TextBox9 <> "" Then
        For i = ListBox1.ListCount - 1 To 0 Step -1
            If Not (ListBox1.List(i, 0) Like "*" & TextBox9.Text & "*") Then
                ListBox1.RemoveItem (i)
            End If
        Next
    End If
End Sub

Rica etsem yukarıdaki koda büyük küçük harfe duyarlı olabilmesini ekleyebilir misiniz?

 

[YUSUF44]

If Not (ucase(ListBox1.List(i, 0)) Like "*" & ucase(TextBox9.Text) & "*") Then

Şeklinde dener misiniz?

 

[sirkülasyon]

Yusuf Abi
İlk harf büyük olursa süzüyor. Küçük harf ile işlem yapmıyor

 

[alicimri]

Aşağıdaki kod işinize yarayabilir.

 If TextBox9 <> "" Then
        For i = ListBox1.ListCount - 1 To 0 Step -1
        
        If TextBox1 <> ListBox1.List(i, 0) And Replace(UCase(ListBox1.List(i, 0)), "I", "İ") = Replace(UCase(TextBox9.Text), "I", "İ") Then
          ListBox1.RemoveItem (i)
        End If
        Next
    End If

 

[alicimri]

Yanlış anladım herhalde, hangisi işinize yarasa.

If TextBox9 <> "" Then
        For i = ListBox1.ListCount - 1 To 0 Step -1
        If Replace(UCase(ListBox1.List(i, 0)), "I", "İ") <> Replace(UCase(TextBox9.Text), "I", "İ") Then
          ListBox1.RemoveItem (i)
        End If
        Next
    End If

 

[alicimri]

Yukardaki kod, İngilizcedeki i- kullanımı nedeni ile , kıl > kil gibi kelimeleri ayırt edemiyordu.

If TextBox9 <> "" Then
        Text = Replace(Replace(TextBox9.Text, "i", "İ"), "ı", "I")
        For i = ListBox1.ListCount - 1 To 0 Step -1
        List = Replace(Replace(ListBox1.List(i, 0), "i", "İ"), "ı", "I")
        If UCase(Text) <> UCase(List) Then
          ListBox1.RemoveItem (i)
        End If
        Next
    End If