TextBox tan ListBox a süzme yaparken Büyük Küçük Karf sorunu

[KarıncaZ]

Merhaba.

Formda arattım ancak sonuç bulamadım.

Linkdeki dosyada TextBox ya yazarak ListBox ta koşullu listeleme yapıyorum. Sorunum

TextBox a Akaryakıt yazınca getiriyor ancak akaryakıt yazınca listeleme yapmıyor. Sonucu bulmuyor.

Kullandığım kod :

Private Sub TextBox1_Change()
Set S1 = Sheets("Veri")
Dim Sat, S As Integer
On Error Resume Next
ListBox1.Clear
For Sat = 1 To S1.Cells(65536, "A").End(3).Row
If S1.Cells(Sat, "A") Like "*" & TextBox1.Text & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = S1.Cells(Sat, "A")
S = S + 1
End If
Next
End Sub

Yardımlarınız için şimdiden teşekkürler.


http://s3.dosya.tc/server10/2vqmrp/Deneme_02__Kurtarildi_.xls.html

.

 

[vardar07]

Aşağıdaki satır ile sizdekini değiştirip denermisiniz.

If S1.Cells(Sat, "A") Like "*" & Ucase(TextBox1.Text) & "*" Then

 

[KarıncaZ]

Aşağıdaki satır ile sizdekini değiştirip denermisiniz.

If S1.Cells(Sat, "A") Like "*" & Ucase(TextBox1.Text) & "*" Then

Bu sefer hiç bulmadı. Akaryakıt yazınca da akaryakıt yazınca da bulmadı.

 

[KarıncaZ]

Sanırım oldu

If UCase(S1.Cells(Sat, "A")) Like "*" & UCase(TextBox1.Text) & "*" Then

Şeklinde hem hücredeki değeri hemde TextBox daki değeri büyük harfe çevirince oldu gibi.

Ama TextBox a I yazınca olmadı. İ gibi algılıyor yada başka bir sorun var.

Akaryakıt Gideri için
IT G yazınca bulmuyor ama ıt g yazınca buluyor.

 

[Orion1]

Buyurun.

deg1 = UCase(Replace(Replace(S1.Cells(Sat, "A").Value, "i", "İ"), "ı", "I"))
deg2 = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I"))
If deg1 Like "*" & deg2 & "*" Then

 

[KarıncaZ]

Teşekkürler

Çok Teşekkürler.

Mükemmel çalışıyor.

Esenlikler dilerim. İyi çalışmalar.

 

[Orion1]

Çok Teşekkürler.

Mükemmel çalışıyor.

Esenlikler dilerim. İyi çalışmalar.

Rica ederim.
İyi çalışmalar.