Süzme İşleminde (I)ve İ harfi sorunu?

[udentr2002]

Merhaba arkadaşlar Burdaki çok değerli bir hocamın yapmış olduğu kodları kullanarak textboxa veri girip listboxda süzme işlemi yapıyorum yanlız textboxa veriyi girerken (I) ve (İ) (i) harflerinde sorun yapıyor kodlarım aşağıdadır

Private Sub TextBox15_Change()
On Error Resume Next
Dim arrVeri()
Dim i As Integer
For Each isim In Sheets("Veri").Range("a3:a" & Sheets("Veri").Range("a65536").End(3).Row)
    If UCase(LCase(isim)) Like UCase(LCase(TextBox15)) & "*" Then
   
           Y = Y + 1
           ReDim Preserve arrVeri(1 To 11, 1 To Y)
           For i = 1 To 11
                  arrVeri(i, Y) = isim.Offset(0, i - 1)
           Next i
        End If
    Next
With ListBox1
    .RowSource = Empty
    .Clear
    .ColumnCount = 11
    .List = Application.WorksheetFunction.Transpose(arrVeri)
End With
For i = 1 To 11
    Me.Controls("Textbox" & i + 3) = arrVeri(i, 1)
Next i
If TextBox15.Text = "" Then

For X = 4 To 14
Controls("textbox" & X).Value = ""
Next
End If

End Sub

bu harf sorununu giderebilmem i,çin ne yapabilrim

 

[hsayar]

Çalışma Kitabınıza aşağıdaki fonksiyonları ekledikten sonra prosodürünüzdeki ucase yazanları ucasetr, lcase yezanaları lcasetr olarak değiştiriniz.

Function UCaseTr(ByVal metin As String)
'__________________________________________________________________________________________________
'<<||||||||||||||||||||      Bir metin i&#231;erisinde Microsoftun               ||||||||||||||||||||>>'
'<<||||||||||||||||||||      Ucase Fonksiyonu ile b&#252;y&#252;k harfe               ||||||||||||||||||||>>'
'<<||||||||||||||||||||      d&#246;nmeyen karakterleri d&#252;zeltir.                ||||||||||||||||||||>>'
'<<||||||||||||||||||||-----------------------------------------------------||||||||||||||||||||>>'
'<<||||||||||||||||||||            hsayar - www.excel.web.tr                ||||||||||||||||||||>>'
'<<||||||||||||||||||||                 12/11/2007 - 15:40                  ||||||||||||||||||||>>'
'<<||||||||||||||||||||_____________________________________________________||||||||||||||||||||>>'
'=================================================================================================&#167;
    UCaseTr = UCase(Replace(Replace(metin, "&#305;", "I"), "i", "&#304;"))
End Function

Function LCaseTr(ByVal metin As String)
'__________________________________________________________________________________________________
'<<||||||||||||||||||||      Bir metin i&#231;erisinde Microsoftun               ||||||||||||||||||||>>'
'<<||||||||||||||||||||      Lcase Fonksiyonu ile k&#252;&#231;&#252;k harfe               ||||||||||||||||||||>>'
'<<||||||||||||||||||||      d&#246;nmeyen karakterleri d&#252;zeltir.                ||||||||||||||||||||>>'
'<<||||||||||||||||||||-----------------------------------------------------||||||||||||||||||||>>'
'<<||||||||||||||||||||            hsayar - www.excel.web.tr                ||||||||||||||||||||>>'
'<<||||||||||||||||||||                 12/11/2007 - 15:45                  ||||||||||||||||||||>>'
'<<||||||||||||||||||||_____________________________________________________||||||||||||||||||||>>'
'=================================================================================================&#167;
    LCaseTr = LCase(Replace(Replace(metin, "I", "&#305;"), "&#304;", "i"))
End Function

 

[udentr2002]

Hocam çok teşekkür ederim verdiğiniz bilgi için ellerinize sağlık

 

[hsayar]

Rica ederim