Baş harfler büyük yazma

[turgayzeynep]

Hocam kolay gelsin

Hocam birleştirilmiş B VE C SUTUNLARI VAR
B ve C 3 sutunu birleştirilmiş hücrede isim soyisim yazıyor ismin baş harfi büyük SOYADIN TAMAMI BÜYÜK OLARAK YAZMAK İSTİYORUM MAKRO İLE VE B ve C 4 sutunlarından itibaren Bve C 33 kadar harflerin yazım kurallarına ğöre büyük ve küçük harf olarak makro ile yazmamlazım yardımcı olurmusunuz

 

[Mdemir63]

Selamlar

kodlar alıntıdır
Ad ve Soyadın A sütununda olduğunu düşünürsek
Aşağıdaki kodları bir modül içine yapıştırıp deneyebilirsiniz

Sub Adsoyad()
      For i = 1 To [A65536].End(3).Row
          Ad = ""
          Soyad = ""
          a = Split(Cells(i, "A"), " ")
          For j = 0 To UBound(a) - 1
              Ad = Trim(Ad & " " & a(j))
          Next j
          Soyad = Trim(a(UBound(a)))
          Ad = Evaluate("=PROPER(""" & Ad & """)")
          Soyad = Evaluate("=UPPER(""" & Soyad & """)")
          Cells(i, "A") = Ad & " " & Soyad
      Next i
End Sub

 

[turgayzeynep]

Hocam kod çalışmıyor

 

[Mdemir63]

A sütununa isimler yazarak deneyiniz
İnceleyiniz

 

[turgayzeynep]

Denedim olmuyor hocam

 

[Mdemir63]

Ben deneyerek gönderdim bende bir sıkıntı yok

 

[turgayzeynep]

Kodun yapıştırılacağı yere yapıştırdım ve A1 hücresine Ahmet Yılmaz yazdım küçük harfle yazdım baş harfini otomatik olarak büyük yapmadı

 

[Mdemir63]

Kodu bir modül içine yapıştırın ve butona atayın
Sonra A sütununa farklı isim ve soyisimleri hepsini küçük yada baş harflerini böyük olarak istediğiniz gibi yazın hiç fark etmez.
Sonra kodu çalıştırın. Olmaması mümkün değil ben yine denedim hiçbir sıkıntı yok

 

[turgayzeynep]

Buton derken kendi otomatik olarak direk hücreye yazdığımda kendi otomatik atmayacak mı İlla çalıştırmam mı gerekiyor

 

[turgayzeynep]

Hocam şu şekilde anlatayım ben hücreye yazdığımda Direkt kendi otomatikman ismim baş harfini büyük soy ismi tamamen büyük olarak yazmasını istiyorum Sizden ricam bu

 

[Mdemir63]

Selamlar
Sayfanın Kod penceresini açın aşağıdaki kodları yapıştırıp,
A sütununda isim soyisim yazarak deneyin

not: Kodlar @Korhan Ayhan Hocama aittir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Son As Long, X As Long, Veri As Variant
    Dim Ad As Variant, Soyad As String, Say As Long
    Son = Cells(Rows.Count, 1).End(3).Row
    If Son < 2 Then Son = 2
    Veri = Range("A1:A" & Son).Value
    ReDim Liste(1 To UBound(Veri, 1), 1 To 1)
      For X = LBound(Veri, 1) To UBound(Veri, 1)
          Say = Say + 1
          If Veri(X, 1) <> "" Then
              Ad = Split(WorksheetFunction.Proper(Veri(X, 1)), " ")
              If UBound(Ad, 1) = 0 Then
                  Liste(Say, 1) = Ad(0)
              Else
                  Soyad = Ad(UBound(Ad, 1))
                  ReDim Preserve Ad(0 To UBound(Ad, 1) - 1)
                  Liste(Say, 1) = Join(Ad, " ") & " " & UCase(Replace(Replace(Soyad, "ı", "I"), "i", "İ"))
              End If
          End If
      Next X
    Range("A1").Resize(UBound(Veri, 1)) = Liste
End Sub