ad-soyad ifaderinde tek karakterli ad kısaltmalarına . ekleyebilmek

[abinden]

Aslında başkıl yeterince özetliyor çıkmazımı. Ancak, yinede açayım.

Elimde iki kelimeden uzun ad girişleri olan bir liste var:
Ahmet V GEÇER
Veli C NURGİL
Olcay O YETER
...

Bu listede yer alan tek karakterli isim kısaltmalarının sonuna . koyabilmeyi istiyorum.
Ahmet V. GEÇER
Veli C. NURGİL
Olcay O. YETER
...

Bu işi makro-vba kullanarak nasıl yapılacağı hakkında bilgi sahibi olan varsa yardımcı olursa sevinirim.


Bul-Değiştir uygulamasında " ? " joker karakteriyle arama yaptırabildim. Ancak joker karakteri kullanarak . girişi sağlayamadım, " ?. " işe yaramadı yani.

 

[Mahmut Kök]

Deneyiniz.

Sub noktala()
On Error Resume Next
For a = 1 To [a65536].End(3).Row
    For b = 1 To Len(Cells(a, 1))
    If Mid(Cells(a, 1), b, 1) = " " Then
    If Mid(Cells(a, 1), b - 2, 1) = " " And Mid(Cells(a, 1), b - 1, 1) <> " " Then Cells(a, 1) = Left(Cells(a, 1), b - 1) & ". " & Right(Cells(a, 1), (Len(Cells(a, 1)) - b))
    End If
    Next
  Next
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub z()
Range("B1:B65536").Clear
For i = 1 To Cells(65536, "A").End(xlUp).Row
deg = ""
    For s = 1 To Len(Cells(i, "A").Value)
        If sayac = 0 Then
            deg = deg & Mid(Cells(i, "A").Value, s, 1)
        End If
sayac = 0
        If s >= 2 And s < Len(Cells(i, "A").Value) Then
            If Mid(Cells(i, "A").Value, s - 1, 1) = " " And _
            Mid(Cells(i, "A").Value, s, 1) <> "" And _
            Mid(Cells(i, "A").Value, s + 1, 1) = " " Then
                deg = deg & "."
                sayac = 1
                
            End If
        End If
    Next s
    sayac = 0
    Cells(i, "B").Value = deg
Next i
End Sub

 

[abinden]

Sayın GİZLEN,

Bu kodlar ve emeğiniz için ne kadar teşekkür etsem az olur. Bilginize sağlık.

 

[Orion1]

Sayın GİZLEN,

Bu kodlar ve emeğiniz için ne kadar teşekkür etsem az olur. Bilginize sağlık.

Rica ederim.
iyi çalışmalar.

 

[uzmanamele]

merhaba
syn Evren kodlar için teşekkür, arşivime attım.
Mustafa K Atatürk adını Mustafa K. Atatürk olarak düzeltiyor,
aynı liste içersinde M Kemal olsaydı M. Kemal olarak nasıl değiştiririz?
veya M Kemal Atatürk yerine M. Kemal Atatürk

 

[Orion1]

merhaba
syn Evren kodlar için teşekkür, arşivime attım.
Mustafa K Atatürk adını Mustafa K. Atatürk olarak düzeltiyor,
aynı liste içersinde M Kemal olsaydı M. Kemal olarak nasıl değiştiririz?
veya M Kemal Atatürk yerine M. Kemal Atatürk

Mahmut beyin kodlarını bir deneseniz.

 

[uzmanamele]

merhaba
syn mahmut kök'ün kodları gözümden kaçmış, en son syn evren gizlen'in kodları olduğu için ona bakmıştım.
her iki arkadaşımızada teşekkür ederim, ellerine sağlık.

 

[Orion1]

merhaba
syn mahmut kök'ün kodları gözümden kaçmış, en son syn evren gizlen'in kodları olduğu için ona bakmıştım.
her iki arkadaşımızada teşekkür ederim, ellerine sağlık.

Rica ederim.
İyi çalışmalar.

 

[Necdet]

Merhaba,

Daha önce ad küçük soyad büyük harfle yazan kodları aynı şekilde ek yaparak tek karakterli sözcüklere nokta koyan denememi sunuyorum.

Belki yararlı olur.

Public Sub Düzelt()
For i = 2 To [A65536].End(3).Row
    Ad = ""
    Soyad = ""
    a = Split(Cells(i, "A"), " ")
    For j = 0 To UBound(a) - 1
        
        If Len(a(j)) = 1 Then a(j) = a(j) & ". "
        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 & Ek
Next i
End Sub

 

[ECYavuz]

Necdet Bey tam aradığımdı. Çok Teşekkür Ederim.

 

[Necdet]

Necdet Bey tam aradığımdı. Çok Teşekkür Ederim.

Rica ederim Sayın ECYavuz,

Güle güle kullanınız.