Merhaba;
Ekteki dosyada Form1 isimli formda türkçe karakterler için değiştir fonksiyonunu kullandığımda küçük harfleri değiştiriyor. Fakat "İ" harfi hariç bütün büyük harflerde hem büyük hem de küçük harfleri değiştiriyor.

Örneğin;
Değiştir("ğüşıöçĞÜŞİÖÇ";"Ü";"U")
şeklinde bir fonksiyon yazdığımda
ğUşıöçĞUŞİÖÇ
sonucunu veriyor. Hem küçük hem de büyük ü harflerini değiştiriyor.

Bunu nasıl düzeltebilirim.

Sn amatt; Değiştir => .... replace("ğüşıöçĞÜŞİÖÇ";"Ü";"U",,,vbBinaryCompare) ile yapilabilir

Merhaba;
Sorun çözülmüştür.

"Metin111" deki metni türkçe karakterleri değiştirip "Metin187" ye yazması için;

Private Sub Metin187_Click()
Dim klm As String
klm = Replace(Metin111, "ğ", "g", , , vbBinaryCompare)
klm = Replace(klm, "ü", "u", , , vbBinaryCompare)
klm = Replace(klm, "ş", "s", , , vbBinaryCompare)
klm = Replace(klm, "ı", "i", , , vbBinaryCompare)
klm = Replace(klm, "ö", "o", , , vbBinaryCompare)
klm = Replace(klm, "ç", "c", , , vbBinaryCompare)
klm = Replace(klm, "Ğ", "G", , , vbBinaryCompare)
klm = Replace(klm, "Ü", "U", , , vbBinaryCompare)
klm = Replace(klm, "Ş", "S", , , vbBinaryCompare)
klm = Replace(klm, "İ", "I", , , vbBinaryCompare)
klm = Replace(klm, "Ö", "O", , , vbBinaryCompare)
klm = Replace(klm, "Ç", "C", , , vbBinaryCompare)
Metin187 = klm
End Sub