• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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?
 
Kullandığınız kodlarla ilgilidir sanırım. TextBox1_Change veya TextBox1_KeyPress yazmış olduğunuz kodları paylaşırsanız yardımcı olalım.
 
İ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
 
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
 
sorun çözüldü. teşekkürler, ellerinize sağlık
 
Geri
Üst