adı soyadı yazım formatı hk.

[zetkatamet]

Arkadaşlar,
Adı-Soyadı yazma şekli ile sizlerden 2 soru için yardımlarınızı rica ederim.
Çok uzun bir listem var, sağolsun hazırlayan kişiler bazı formata dikkat etmemişler

1-)
B1 de suat Akarslan diye Adı-Soyadı bir yazı var.
C1 de İsim bir boşluk sonrasında soyadı nasıl yazdırabilirim?
C1: Suat Akarslan

2-)
Kişinin İsminin ilk harfi büyük arasında bir boşluk, soyadı büyük harf nasıl yazılabilir?
D1: Suat AKARSLAN

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

1. soruyu anlamadım.

zaten "suat Akarslan" yazmıyor mu? neden bunu "Suat Akarslan" diye yazdırmak istiyorsunuz?

YAZIM.DÜZENİ Fonksiyonu zaten bunu yapar.

Aşağıdaki kodları modüle kopyalayıp deneyiniz.

Kullanımı : =SoyadBuyuk(B1)

Function SoyadBuyuk(AdSoy As String)

    Dim s, _
        Ad  As String, _
        SAd As String
    
    s = Split(AdSoy, " ")
    
    If UBound(s) = 0 Then
        Ad = AdSoy
    Else
        SAd = s(UBound(s))
        Ad = Trim(Replace(AdSoy, SAd, ""))
    End If
    
    If Ad = "" Then
        Ad = SAd
        SAd = ""
    End If
    
    Ad = Application.WorksheetFunction.Proper(Ad)
    SAd = UCase(Replace(Replace(SAd, "i", "İ"), "ı", "I"))
    SoyadBuyuk = Trim(Ad & " " & SAd)
    
End Function

 

[zetkatamet]

Necdet bey,
İlginize teşekkürler. Haklısınız 1.soruyu yanlış yazmışım.
Listemde suat Akarslan şeklinde yazılmış kişiler.
Benim 1. ricam; Suat Akarslan
Sonrasındada Suat AKARSLAN
listeyi vereceğim kişi soyadı büyük yapalım diyebilir. Mümkünse makrosuz bir çözüm var ise çok memnun olurum.

PARDON YAZLIS YAZMAMIŞIM, SİTEYE İSİM 4 BOŞLUK SONRA SOYADI YAZDIĞIMDA ARADA BİR BOŞLUK GÖZÜKÜYOR.

 

[Necdet]

Merhaba,

Önece KIRP sonra YAZIM.DÜZENİ sizin işinizi görür.

Fonksiyonla yapmak olası tabi. Arkadaşlar yardımcı olur.

 

[Asri]

Necdet bey,
İlginize teşekkürler. Haklısınız 1.soruyu yanlış yazmışım.
Listemde suat Akarslan şeklinde yazılmış kişiler.
Benim 1. ricam; Suat Akarslan
Sonrasındada Suat AKARSLAN
listeyi vereceğim kişi soyadı büyük yapalım diyebilir. Mümkünse makrosuz bir çözüm var ise çok memnun olurum.

PARDON YAZLIS YAZMAMIŞIM, SİTEYE İSİM 4 BOŞLUK SONRA SOYADI YAZDIĞIMDA ARADA BİR BOŞLUK GÖZÜKÜYOR.

Aşağıdaki konudaki eklentiyi excel e kurun.
Excel sayfasında sağ tuş da Özel İşlemler olarak çıkacaktır. Tüm excel sayfalarında çalışır. Formül gerektirmez.

Daha sonra B kolonu C ve D ye kopyalayın ve aşağıdaki işlemleri yapın.

C kolonunda tüm kolon için,
*Tüm boşluklar tek boşluk
*ilk harfler buyuk digerleri kucuk"

D kolonunda tüm kolon için
*Tüm boşluklar tek boşluk
*İlk harf buyuk son kelime buyuk

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

 

[zetkatamet]

Sn.Asri,
Cevabınız için teşekkür ederim. İşyerinde bayağa bir sıkıntı var, eklenti vs. kuramıyoruz.

 

[zetkatamet]

Arkadaşlar,
Başka konu altında yazmak doğru olmayacak. Kurallar gereği buradan devam etmeliyim sanırım.

Şu şekilde sormaya çalışayım.
1-) B1 de adı 5 boşluk soyadı yazsın. C1: de formül ile boşluk sayısı olan 5 i nasıl yazdırılabiliriz?

2-) D1 e de formül ile adı 1 boşluk soyadı nasıl yazdırabiliriz?

Şimdiden teşekkürler.
Saygılar.

 

[ÖmerBey]

Merhaba,
1) Hücre içinde kullanılan tüm boşlukları sayar.

=UZUNLUK(B1)-UZUNLUK(YERİNEKOY(B1;" ";""))

2) İstediğiniz formül yukarıda Necdet Bey tarafından belirtilmiş...

=KIRP(B1)

 

[zetkatamet]

Çok teşekkür ederim Sn.Mucit77.
Listenin içinde boğuldum kaldım, dikkatim dağılmış. kırp çok işime yarayacak.
Necdet bey tekrar teşekkürler.
İyi çalışmalar.