Soru iki isimlileri yazmak

Katılım
8 Ocak 2009
Mesajlar
57
Excel Vers. ve Dili
2013 türkçe
texbox1 için isim- texbox2 için ise soy isim açtım. Kayıt yapıyorum. Ancak şahsın iki ismi olanlar için örneğin "mehmet veli" -- Texbox1 içine yazarken "mehmetveli" olarak bitişik yazıyor bunu ayrı yazabilmek için ne yapmamız gerekiyor. yardımcı olabilecek varmı? Texbox1 için rakam yazılmadan sadece büyükharf ile yazılması tanımlı.. Yardımcı olabilirmisiniz?
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Kullandığınız kodlarla ilgilidir sanırım. TextBox1_Change veya TextBox1_KeyPress yazmış olduğunuz kodları paylaşırsanız yardımcı olalım.
 
Katılım
8 Ocak 2009
Mesajlar
57
Excel Vers. ve Dili
2013 türkçe
İsim yazdığım Texbox2 isimli yerde bulunan kodlar:


Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 199, 214, 220, 231, 246, 252, 286, 287, 304, 305, 350, 351 ' Türkçe Karakterler
Case 65 To 90, 97 To 122 ' A-Z, a-z harf aralığı
Case Else 'yukarıdakiler hariç girilen karakterleri iptal eder
KeyAscii = 0
End Select
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
[aa1] = "=büyükharf(""" & TextBox2 & """)"
[aa1] = "=upper(""" & TextBox2 & """)"
TextBox2 = [aa1]
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,191
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kod:
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32, 199, 214, 220, 231, 246, 252, 286, 287, 304, 305, 350, 351 ' Türkçe Karakterler
Case 65 To 90, 97 To 122 ' A-Z, a-z harf aralığı
Case Else 'yukarıdakiler hariç girilen karakterleri iptal eder
KeyAscii = 0
End Select
End Sub
 
Katılım
8 Ocak 2009
Mesajlar
57
Excel Vers. ve Dili
2013 türkçe
sorun çözüldü. teşekkürler, ellerinize sağlık
 
Üst