Combobox Büyük Küçük Harf Süzme

[Tasarım]

Arkadaşlar merhaba, bir listemde 5 bine yakın kayıt var. Bu kayıtların içerisinden kullanıcı adına göre süzme yaptırmak istiyorum fakat, kullanıcı adının soyadı büyük harfle yazıldığı için tam olarak eşleşme olmadığından listede süzme yapmıyor.
Listede bulunan kullanıcı isimlerinin soyadları da yazım düzenine göre yazılmış, kullanıcı adları ise soyadları büyük harf olacak şekilde yazılmış, benim isteğim listede büyük küçük harf bakmadan comboboxda yazılı kişinin adını araması.

 

[Tasarım]

Dim sonsat As Integer
Dim i As Integer
Dim sonsatgecici As Integer
sonsat = Sheets("CKS").Range("A10000").End(xlUp).Row
Sheets("istatistik").Range("A1:B10000").ClearContents
For i = 2 To sonsat
If Sheets("CKS").Range("J" & i) Like "*" & cmbper_adi & "*" Then
sonsatgecici = Sheets("istatistik").Range("A10000").End(xlUp).Row + 1
Sheets("istatistik").Range("A" & sonsatgecici) = Sheets("CKS").Range("I" & i)
Sheets("istatistik").Range("B" & sonsatgecici) = Sheets("CKS").Range("J" & i)
End If
Next
End Sub

Bu kodla süzme yapıp bilgileri başka sayfaya taşıyorum fakat büyük küçük harf duyarlılığı nedeniyle tam sonuç alamıyorum.

 

[Korhan Ayhan]

Sorgu satırını aşağıdaki gibi değiştirip deneyiniz.

If UCase(Replace(Replace(Sheets("CKS").Range("J" & i), "ı", "I"), "i", "İ"))) Like "*" & UCase(Replace(Replace(cmbper_adi, "ı", "I"), "i", "İ"))) & "*" Then

Bu şekliyle tüm yazılanlar büyük harfe çevirilerek karşılaştırma yapılır.

 

[Tasarım]

Teşekkürler Korhan hocam