Baş harflerin gösterilmesi

[burgaz67]

Merhaba,
Bir hücrede yazılı olan isim ve soyadı'ın başkaba bir hücrede sadece baş harflerinin yazdırılması mümkün müdür?
Örnek Ahmet Demir yerine AD yazdırılabilir mi?
Teşekkürler.

 

[Necdet]

Merhaba,

A1 : Ad
B1 : Soyad olsun
C1 :

= SOLDAN(A1,1)&SOLDAN(B1)

 

[Merhum İdris SERDAR]

.

=LEFT(A1;1)&LEFT(B1;1)

=SOLDAN(A1;1)&SOLDAN(B1;1)

şeklinde deneyin.

.

 

[burgaz67]

İlginiz için teşekkür ederim...
Aynı hücre içinde Ad Soyad beraber yazıldığında bir formül var mıdır acaba?

 

[Necdet]

Merhaba,

Başka bir olasılık olmaz sanırım

=SOLDAN(A1;1) &PARÇAAL(A1; MBUL(" ";A1)+1;1)

 

[burgaz67]

Çok teşekkür ederim.
Elinize sağlık....

 

[Necdet]

Tekrar merhaba,

Mustafa Kemal ATATÜRK gibi 3 sözcüklü bir hücrede de çalımasını isterseniz :

=SOLDAN(A1;1) & PARÇAAL(A1;MBUL(" ";A1;1)+1;1) &EĞER(EHATALIYSA(MBUL(" ";A1;MBUL(" ";A1;1)+1)+1);"";PARÇAAL(A1;MBUL(" ";A1;MBUL(" ";A1;1)+1)+1;1))

Kullanıcı Tanımlı Fonksiyon kullanmak isterseniz, aşağıdaki kodları bir modüle koplayıp kullanabilirsiniz. Dosyayı inceleyiniz.

Function BasHarfler(Veri As String) As String
    Dim a, _
        i       As Integer, _
        Sonuc   As String
        
    a = Split(Trim(Veri), " ")
    
    For i = 0 To UBound(a)
        Sonuc = Sonuc & Left(a(i), 1)
    Next i
    
    BasHarfler = Sonuc
End Function

 

[Necdet]

Kullanıcı Tanımlı Fonksiyon için #7 numaralı mesajı inceleyebilirsiniz.

 

[bogazincocugu]

selamlar,

yerinekoy formülü ve bul formülü mantıgıyla geliştirilebilir.

=EĞER(EHATALIYSA(BUL(" ";A1));SOLDAN(A1;1);EĞER(BUL(" ";A1)=0;SOLDAN(A1;1);SOLDAN(A1;1)&PARÇAAL(A1&" ";BUL(" ";A1&" ")+1;1)&PARÇAAL(A1&" ";1+BUL("#";YERİNEKOY(A1&" ";" ";"#";2));1)))

 

[burgaz67]

Sanırım excel'de sınır yok...
İki isimli kişiler için manuel yapmıştım...
Bundan sonra kullanmak üzere notumu aldım.
Tekrar teşekkürler..

 

[assenucler]

Sayın Yeşertener;

Günaydın ve iyi pazarlar. İyi ki varsınız, sağ olun var olun..

Her gün yeni bir şey öğreniyoruz.

Sevgi ve saygılar.