Adının ilk harfi büyük ama soyadının tüm harfleri büyük

[gecemavisi]

Saygıdeğer Arkadaşlar;
Aynı hücreye girdiğim ad ve soyadın Butona bastığımda Adamın adının ilk harfinin büyük soyadının ise tüm harflerinin büyük olmasını nasıl sağlarım.

kısacası sizce aşağıdaki kod üzerinde nasıl düzenleme yapmam gerekir.

Sub ILKHARFB()
Dim x As Range
On Error Resume Next
For Each x In Selection
x.Value = Replace(Replace(StrConv(x.Value, vbProperCase), "I", "ı"), "İ", "i")
Next
End Sub



Şimdiden saygılarımla...

 

[xxrt]

Burayı inceleyin
http://www.excel.web.tr/viewtopic.php?p=45829#45829
http://www.excel.web.tr/viewtopic.php?p=69345#69345

 

[the_yk]

ewt bırı cewap atabılır mı bna banada lazım

 

[leventmersin11]

Aşağıdaki kodu dener misiniz? Umarım işinizi görür.


Sub Ad_Soyad_Bicimlendir()

Dim i As Long
Dim j As Integer
Dim a
Dim Ad As String
Dim Soyad As String

For i = 2 To Cells(Rows.Count, "A").End(3).Row

Ad = ""
Soyad = ""
a = Split(Trim(Cells(i, "A")), " ")

If UBound(a) = 0 Then
Ad = Trim(Cells(i, "A"))
Else
For j = 0 To UBound(a) - 1
Ad = Trim(Ad & " " & a(j))
Next j
Soyad = Trim(a(UBound(a)))
End If

Ad = Evaluate("=PROPER(""" & Ad & """)")
Soyad = Evaluate("=UPPER(""" & Soyad & """)")

Cells(i, "A") = Ad & " " & Soyad

Next i

End Sub

 

[şrars]

Burayı inceleyin
http://www.excel.web.tr/viewtopic.php?p=45829#45829
http://www.excel.web.tr/viewtopic.php?p=69345#69345

sayfalar bende hata veriyo

 

[Mahir64]

ewt bırı cewap atabılır mı bna banada lazım

Merhaba
Türkçemize biraz daha özen lütfen.

Sitede denenmiş çok sayıda örnekler mevcut. Biraz zaman ayırıp arama yapmanız yeterli.