Ad ve soyadı büyük yazma

[muratgunay48]

Arkadaşlar, benim dosyalarımda kullandığım kod var, adın baş harfini soyadın tamamını büyük harfle yazmak için. Bunu userfom içinde textbox'a nasıl uyarlayabilirim.

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo Son
    If Intersect(Target, [D:D]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub
  
    Dim Ad As String, Soyad As String
    Dim Dizi() As String
    Dim i As Integer
  
    Dizi = Split(Target.Value, " ")
    For i = 0 To UBound(Dizi) - 1
        Ad = Trim(Ad & " " & Dizi(i))
    Next i
  
    Soyad = Trim(Dizi(UBound(Dizi)))
    Ad = Application.WorksheetFunction.Proper(Ad)
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")
    Application.EnableEvents = False
    Target.Offset(0, 0) = Ad & " " & Soyad
  
    Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.Bold = False
    Target.Offset(0, 0).Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.ColorIndex = 1
  
    Application.EnableEvents = True

Sütun ve satır bilgisini siliyorum hata veriyor.
Şimdiden teşekkür ederim.

 

[muysun35]

Textbox1.Text = Ad & " " & Soyad

Denediniz mi?

 

[muratgunay48]

Textbox1.Text = Ad & " " & Soyad

Denediniz mi?

Hocam Target bölümü yerine yazdım, olmadı

 

[Ömer]

Merhaba,

Deneyiniz. Sizin kodları kullandım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Ad As String, Soyad As String
    Dim Dizi() As String
    Dim i As Integer

    Dizi = Split(TextBox1, " ")
    For i = 0 To UBound(Dizi) - 1
        Ad = Trim(Ad & " " & Dizi(i))
    Next i

    Soyad = Trim(Dizi(UBound(Dizi)))
    Ad = Application.WorksheetFunction.Proper(Ad)
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")

    TextBox1 = Ad & " " & Soyad
   
End Sub

 

[muratgunay48]

Merhaba,

Deneyiniz. Sizin kodları kullandım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Ad As String, Soyad As String
    Dim Dizi() As String
    Dim i As Integer

    Dizi = Split(TextBox1, " ")
    For i = 0 To UBound(Dizi) - 1
        Ad = Trim(Ad & " " & Dizi(i))
    Next i

    Soyad = Trim(Dizi(UBound(Dizi)))
    Ad = Application.WorksheetFunction.Proper(Ad)
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")

    TextBox1 = Ad & " " & Soyad
  
End Sub

Hocam, öncelikle ilginize teşekkür ederim. Şöyle bir hata alıyorum.

 

[Ömer]

Kodları TextBox2 ye yazmışsınız. Kodların içindeki TextBox1 olan bölümleri TextBox2 yaparak deneyiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Ad As String, Soyad As String
    Dim Dizi() As String
    Dim i As Integer

    Dizi = Split(TextBox2, " ")
    For i = 0 To UBound(Dizi) - 1
        Ad = Trim(Ad & " " & Dizi(i))
    Next i

    Soyad = Trim(Dizi(UBound(Dizi)))
    Ad = Application.WorksheetFunction.Proper(Ad)
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")

    TextBox2 = Ad & " " & Soyad
  
End Sub

 

[muratgunay48]

Kodları TextBox2 ye yazmışsınız. Kodların içindeki TextBox1 olan bölümleri TextBox2 yaparak deneyiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Ad As String, Soyad As String
    Dim Dizi() As String
    Dim i As Integer

    Dizi = Split(TextBox2, " ")
    For i = 0 To UBound(Dizi) - 1
        Ad = Trim(Ad & " " & Dizi(i))
    Next i

    Soyad = Trim(Dizi(UBound(Dizi)))
    Ad = Application.WorksheetFunction.Proper(Ad)
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")

    TextBox2 = Ad & " " & Soyad
 
End Sub

Hocam pardon ilkini değiştirdim de, ikinciyi unutmuşum. Yalnız şöyle bir şey oldu, çözemedim. Çalışıyor ama yazdığımı bir üst satıra TextBox1'e yazıyor.

.

 

[Ömer]

Yanlış uygulamış olabilir misiniz. Örnek ekleyebilir misiniz.

TextBox2 = Ad & " " & Soyad

 

[muratgunay48]

Yanlış uygulamış olabilir misiniz. Örnek ekleyebilir misiniz.

TextBox2 = Ad & " " & Soyad

Hocam, yardımlarınız için çok teşekkür ederim. Çözdüm. 1'e yaz diyormuş. Emeğinize sağlık.
Sağlıklı günler dilerim.