Userform textbox larda büyük harf türkçe karakter sorunu

[vuranoğlu]

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

KeyAscii = Asc(UCase(Chr(KeyAscii)))
TextBox4 = Replace(TextBox4, "i", "İ")
TextBox4 = Replace(TextBox4, "ı", "I")
TextBox4 = Replace(TextBox4, "ğ", "Ğ")
TextBox4 = Replace(TextBox4, "ç", "Ç")
TextBox4 = Replace(TextBox4, "ş", "Ş")
TextBox4 = Replace(TextBox4, "ö", "Ö")
TextBox4 = Replace(TextBox4, "ü", "Ü")

If TextBox4 = vbNullString Then Exit Sub
If IsNumeric(TextBox4) Then
MsgBox "SADECE HARF GİREBİLİRSİNİZ.", vbExclamation, " DİKKAT !"
TextBox4 = vbNullString
End If
TextBox4.BackColor = 14020607

'TextBox3.Text = ""
End Sub

Merhaba
Bu kodlarla büyük harf girişini sağlıyorum,
ancak Türkçe karakterler de hataya düşüyor.
Sorunu nasıl çözebiliriz?
Teşekkürler.

[karisma61]

Şu şekilde dener misiniz.

Kod: Tümünü seç

TextBox4 = Evaluate("=upper(""" & TextBox4 & """)")

[tasad]

Bu şekilde deneyin.

Kod: Tümünü seç

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case KeyAscii
'Case Asc("0") To Asc("9")
Case Asc("A") To Asc("Z")
Case Asc(".")
Case Asc("-")
Case Asc(":")
Case Asc("/")
Case Asc("=")
Case Asc("-")
Case 199 'Ç'nin ascii kodu
Case 214 'Ö'nün ascii kodu
Case 220 'Ü'nün ascii kodu
Case 304 'İ'nin ascii kodu
Case 350 'ޞ'nin ascii kodu
Case 286 'Ð'nin ascii kodu

Case Else
KeyAscii = 0: MsgBox "SADECE BÜYÜK HARF GİREBİLİRSİNİZ.", vbExclamation, "Dikkat !"
End Select
End Sub

[sahin]

Ekte....

DENEME 02.xlsm