Merhaba,
Biri türkçe biri ingilizce harflerle oluşturulmış iki dosyayı eşleştirme problemi yaşıyorum. "İ" ve "I" harflerinin farklı görmeyecek bir sistem mümkün mü?
Bilgisyaraın kendi dili üzerinde yapılması bildiğim kadarıyla mümkün değil. Yani ya bilgisayar dili Türkçe'dir yahut İngilizce. Alternatifler
Kod:
Belki
Function TRSiz(ByVal vdata As String) As String
Dim tmp As String
tmp = Replace(vdata, "İ", "I")
tmp = Replace(tmp, "İ", "I")
tmp = Replace(tmp, "ı", "i")
tmp = Replace(tmp, "Ğ", "G")
tmp = Replace(tmp, "ğ", "g")
tmp = Replace(tmp, "Ş", "S")
tmp = Replace(tmp, "ş", "s")
tmp = Replace(tmp, "Ç", "C")
tmp = Replace(tmp, "ç", "c")
tmp = Replace(tmp, "Ü", "U")
tmp = Replace(tmp, "ü", "u")
TRSiz = tmp
End Function
Veya
Function Degis(Veri As String)
Degis = Replace(Veri, "İ", "I")
End Function
Veya
Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
For Each Hucre In Selection
For i = 0 To 11
Hucre.Value = Replace(Hucre, Trk(i), Ing(i))
Next i
Next Hucre
MsgBox "Değişiklikler Yapılmıştır. www.excel.web.tr ailesine teşekkürler"
End Sub
Veya
YERİNEKOY(A1;"İ";"I")
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.