Ad Soyad Kısaltması

[mozdem]

Merhabalar;

Makro ile birden fazla kelimenin kısa yazılmasını istiyorum

Örneğin

Mustafa = M
Mustafa Demir = MD
Mustafa Hamdi Demir = MHD


Teşekkür ederim

 

[Orion1]

Buyurun.

 

[mozdem]

Buyurun.

Anlayamadım

 

[Orion1]

Kodu eklemeyi unutmuşum.:tongue:
Buyurun.

Sub basharfler59()
Dim a, deg As String, isim As String, i As Byte
deg = Range("A1").Value
a = Split(deg, " ")
For i = 0 To UBound(a)
    isim = isim & " " & Left(a(i), 1)
Next i
isim = Right(isim, Len(isim) - 1)
Range("B1").Value = isim
End Sub

 

[Necdet]

"Ahmet Murat" diye bir isim olsa

 

[Orion1]

"Ahmet Murat" diye bir isim olsa

:biggrin:
..............

 

[tahsinanarat]

KTF Kodları aşağıdadır.

Function KodBul(giris As String) As String
coz = Split(giris, " ")
For Each elem In coz
    KodBul = KodBul & Left(elem, 1)
Next
End Function

= kodbul(A2)

kodlar evvelce bu siteden temin edilen kodlardır. Kimin yazdığını bilmiyorum, kim yazdıysa ellerine sağlık

 

[Merhum İdris SERDAR]

.

Bir de buradaki örneğe bakınız.

http://www.excelgurusu.com/ad-soyad-kisaltmasi/

.

 

[mozdem]

Teşekkür

Kodu eklemeyi unutmuşum.:tongue:
Buyurun.

Sub basharfler59()
Dim a, deg As String, isim As String, i As Byte
deg = Range("A1").Value
a = Split(deg, " ")
For i = 0 To UBound(a)
    isim = isim & " " & Left(a(i), 1)
Next i
isim = Right(isim, Len(isim) - 1)
Range("B1").Value = isim
End Sub

Sayın Orion1;
Cevabınız için çok teşekkür ederim. Kodlarım arasına uyarladım.

bu arada farklı bir yönü ile ele almış olan sayın tahsinanarat ve İdris SERDAR beye çok teşekkür ederim. Bugüne kadar çok emeği geçen Necdet Yeşertener beye de saygı/sevgilerimi sunarım

 

[Korhan Ayhan]

Necdet Bey,

Yine muzurluğunuz üzerinizde...

 

[Necdet]

Necdet Bey,

Yine muzurluğunuz üzerinizde...

Dikkatli olmak gerek, onu belirttim Korhan bey