listbox aramada ı I ve i İ karakterlerındeki sorun

[hhd82]

Merhaba
asagıdakı kod ıle listboxda arama yaptırıyorum
fakat nafi yazdıgımda NAFİ olarak buyuk harf ise bulmuyor yada tam tersi oluyor
i İ ve ı I da bu sorunu yasıyorum nasıl duzeltebilirim

Private Sub TextBox6_Change()
TextBox7.Value = TextBox6.Value
Dim sf As Worksheet
Set sf = Sheets("Sayfa1")
ListBox1.RowSource = ""
ListBox1.Clear
For i = 1 To Range("a65536").End(3).Row
   If sf.Range("A" & i) Like "*" & TextBox6.Value & "*" Then 'D sütununda arama yapar.
    ListBox1.AddItem
    ListBox1.List(ListBox1.ListCount - 1, 0) = sf.Range("A" & i)

   End If
Next i
End Sub

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

Private Sub TextBox6_Change()
    TextBox7.Value = TextBox6.Value
    Dim sf As Worksheet
    Set sf = Sheets("Sayfa1")
    Dim i As Long
   
    ListBox1.RowSource = ""
    ListBox1.Clear
   
    For i = 1 To sf.Range("A" & rows.count).End(xlUp).Row
        If LCase(sf.Range("A" & i).Value) Like "*" & LCase(TextBox6.Value) & "*" Then
            ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 0) = sf.Range("A" & i).Value
        End If
    Next i
End Sub

 

[hhd82]

tesekurler aramada aynı sorun devam ettı
ornek dosyam

İndir (4) xlsm

Dosyayı indir (4) xlsm

dosya.co

 

[Muzaffer Ali]

Deneyiniz.

 

[hhd82]

dosyayı ındıremıyorum kod olarak ekleyebilrimisiniz

 

[Muzaffer Ali]

Bardan indirin.

İndir (4) Yeni xlsm

Dosyayı indir (4) Yeni xlsm

dosya.co

 

[hhd82]

çok teşekkür ederim.