Textboxa girilen soyadları büyük harf yapma

[Tasarım]

Arkadaşlar merhaba,
Bir program hazırlıyorum ve bir bölümde takıldım kaldım.
Sorunum şu:

Textbox kutusuna yazdığım isimlerin soyad bölümlerini büyük harf yapmak istiyorum, forumda aramama rağmen bununla ilgili bilgi bulamadım. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Örnek: "Ahmet Değirmenci"
Buradaki "Değirmenci" bölümünün büyük harf olmasını istiyorum.

 

[Hacı Bayram ÖZKAN]

Bu şekilde deneyin

Arkadaşlar merhaba,
Bir program hazırlıyorum ve bir bölümde takıldım kaldım.
Sorunum şu:

Textbox kutusuna yazdığım isimlerin soyad bölümlerini büyük harf yapmak istiyorum, forumda aramama rağmen bununla ilgili bilgi bulamadım. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Örnek: "Ahmet Değirmenci"
Buradaki "Değirmenci" bölümünün büyük harf olmasını istiyorum.

Private Sub TextBox1_Change ()
TextBox1 = (TextBox1)
TextBox1 = Evaluate ("=UPPER(" & """" & TextBox1 & """" & ")")
End Sub

 

[Tasarım]

Private Sub TextBox1_Change ()
TextBox1 = (TextBox1)
TextBox1 = Evaluate ("=UPPER(" & """" & TextBox1 & """" & ")")
End Sub

Cevabınız için teşekkür ederim ancak bu kod textboxa girilen tüm değerleri büyük harfe çeviriyor. Oysa benim istediğim boşluktan sonraki soyad bölümünün büyük harf olmasını istiyorum.

 

[Korhan Ayhan]

Merhaba,

Esnek olması açısından fonksiyon yazarak bu işlemi yapmanız daha uygun olacaktır. Bu şekilde istediğiniz TextBox nesnesini bu şekilde biçimlendirebilirsiniz.

Örnek dosyayı incelermisiniz.

Uygulanan kod;

Boş bir modüle;

Option Explicit
 
Function BH(Veri As Variant)
    Dim X As Byte, Data
    
    Data = Split(Veri, " ")
    If UBound(Data) <= 0 Then BH = "": Exit Function
    
    For X = 0 To UBound(Data) - 1
        If BH = "" Then
            BH = Evaluate("=PROPER(""" & Data(X) & """)")
        Else
            BH = BH & " " & Evaluate("=PROPER(""" & Data(X) & """)")
        End If
    Next
    
    BH = BH & " " & Evaluate("=UPPER(""" & Data(UBound(Data)) & """)")
End Function

Formunuzdaki TextBox nesnesinin "Change" olayına;

Private Sub TextBox1_Change()
    If UBound(Split(TextBox1.Text, " ")) <= 0 Then Exit Sub
    TextBox1 = BH(TextBox1.Text)
End Sub

 

[Tasarım]

Korhan bey ilginize çok teşekkür ederim. Sorun çözüldü

 

[kan-nas]

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1)
End Sub

Bu da olur..

 

[Tasarım]

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1)
End Sub

Bu da olur..

Sizin verdiğiniz kod textboxa yazılan tüm değerleri sadece büyük harf yapıyor.
Yukarıda Korhan beyin verdiği kod işimi çözdü.

Teşekkürler

 

[Hacı Bayram ÖZKAN]

Üstadım güzel olmuş, eline sağlık birde bu Userform üzerindeki TextBox nesnesindeki veriler iki yana yaslı olur mu. (Yatay olarak)

 

[Korhan Ayhan]

Merhaba,

TextBox nesnesinin bu özelliği bulunmamaktadır.

Üstadım güzel olmuş, eline sağlık birde bu Userform üzerindeki TextBox nesnesindeki veriler iki yana yaslı olur mu. (Yatay olarak)

 

[Hacı Bayram ÖZKAN]

Bir bilene sormak lazım diye düşündüm, Teşekkürler abi dua ile kalın.