sıkıntı çözülmüş oldu
Kod:
Public Function turkcem(Metin As String) As String
Dim result As String
result = ""
For i = 1 To Len(Metin)
If (Asc(Mid(Metin, i, 1)) = Asc("İ")) Then
result = result & "i"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("I")) Then
result = result & "ı"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("i")) Then
result = result & "i"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("ı")) Then
result = result & "ı"
Else
result = result & Mid(Metin, i, 1)
End If
Next
turkcem = result
End Function
sn. @alicimri @berduş @feraz
yardımlarınız için teşekkür ederim arkadaşlar