vuranoğlu
Altın Üye
- Katılım
- 18 Nisan 2008
- Mesajlar
- 252
- Excel Vers. ve Dili
- excel 2016 tr
- Altın Üyelik Bitiş Tarihi
- 22.01.2026
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.
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.
Ekli dosyalar
-
77.2 KB Görüntüleme: 1