UCase işlevinde Türkçe Karakter Sorunu

[winstoncash]

Üstadlar kolay gelsin,

Userform ile veri girişi yapılacak bir yapı oluşturdum. Textbox'a girilen metin küçük harfle girilse de tabloya işlerken büyük harfe çevirip işlesin istiyorum. Onun için de

Sheets("Sayfa1").range("A1").value=Ucase$(Textbox1.value)

şeklinde bir satır ekledim kaydet butonuna. Fakat girilen metindeki Türkçe karakterleri büyük harfe çevirmiyor. Mesela "dış" yazıldığında "DıŞ" olarak çeviriyor. Veya "koli" yazıldığında "KOLI" olarak çeviriyor. Bu Türkçe karakter sorununu aşmanın bir yolu var mıdır?

 

[Muzaffer Ali]

Merhaba.

Sub test()
    With Sheets("Sayfa1").Range("A1")
        .Formula = "=upper("" & Textbox1.Value & "")"
        .Value = .Value
    End With
End Sub

 

[winstoncash]

Merhaba.

Sub test()
    With Sheets("Sayfa1").Range("A1")
        .Formula = "=upper("" & Textbox1.Value & "")"
        .Value = .Value
    End With
End Sub

Teşekkürler Muzaffer bey. Ben de bir yandan araştırırken aşağıdaki çözümü buldum. Caps Lock kapalı bilse olsa direk büyük harf yazıyor textbox içine. Bu çözüm de belki birisinin işine yarar diye buraya bırakayım.

Private Sub TextBox1_Change()

TextBox1 = Evaluate("=UPPER(""" & TextBox1 & """)")

End Sub

 

[Korhan Ayhan]

UCASE için aşağıdaki gibi kullanabilirsiniz.

Ucase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))