Kod:
Private Sub Textbox1_Change()
On Error Resume Next
Dim a, j, Ad, Soyad
a = Split(adsoyad)
For j = 0 To UBound(a) - 1
Ad = Trim(Ad & " " & a(j))
Next j
Soyad = Trim(a(UBound(a)))
If Soyad = "" Then
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Else
Ad = Evaluate("=PROPER(""" & Ad & """)")
End If
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
adsoyad = Ad & " " & Soyad
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.