İsim Soyisim Ayırma

[sedat2161]

Hayırlı akşamlar arkadaşlar. Ekli listemde ad ve soyadları ayırma formülünde bazı isimler ayrılıyor bazı isimlerde çözemediğim nedenden dolayı ayırma yapamıyorum. Yardımcı olursanız çok sevinirim iyi çalışmalar.

 

[Ali]

İsim soy isimlerin sonunda boşluklar var onları silin. Örneğin A10 hücresinin sonundaki bir boşluk var onu silip deneyin

 

[sedat2161]

İsim soy isimlerin sonunda boşluklar var onları silin. Örneğin A10 hücresinin sonundaki bir boşluk var onu silip deneyin

Listem çok uzun daha kısayolu yok mu acaba

 

[veyselemre]

Sub TEST()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Trim(StrReverse(Cells(i, 1).Value)), " ", 2)
        Cells(i, 2).Value = StrReverse(bl(1))
        Cells(i, 3).Value = StrReverse(bl(0))
    Next i
End Sub

 

[Murat OSMA]

Ali Bey'in dediğini şöyle yaparsanız kolayca siz de çözebilirsiniz.

• D1 hücresine bu formülü yapıştırıp, formülü aşağıya doğru çekin. =KIRP(A1)
• Sonra D sütununu kopyalayıp A sütununa değer olarak yapıştırın.

 

[sedat2161]

Sub TEST()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Trim(StrReverse(Cells(i, 1).Value)), " ", 2)
        Cells(i, 2).Value = StrReverse(bl(1))
        Cells(i, 3).Value = StrReverse(bl(0))
    Next i
End Sub

veyselemre hocam listem ekteki gibidir yardımcı olursanız çok sevinrim

 

[veyselemre]

veyselemre hocam listem ekteki gibidir yardımcı olursanız çok sevinrim

Sub TEST()
    For i = 3 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Trim(StrReverse(Cells(i, 3).Value)), " ", 2)
        Cells(i, 4).Value = StrReverse(bl(1))
        Cells(i, 5).Value = StrReverse(bl(0))
    Next i
End Sub

 

[sedat2161]

Sub TEST()
    For i = 3 To Cells(Rows.Count, 1).End(3).Row
        bl = Split(Trim(StrReverse(Cells(i, 3).Value)), " ", 2)
        Cells(i, 4).Value = StrReverse(bl(1))
        Cells(i, 5).Value = StrReverse(bl(0))
    Next i
End Sub

Çok teşekkür ederim arkadaşlar

 

[Necdet]

Merhaba,

Yıllar önce böyle bir konuyu işlemiştim.

Ad Soyad Ayırma Makro ve Fonksiyon ile

 

[Ali]

Listem çok uzun daha kısayolu yok mu acaba

C1'deki formülü

=YERİNEKOY(SAĞDAN(YERİNEKOY(KIRP(A1);" ";YİNELE(" ";UZUNLUK(KIRP(A1))));UZUNLUK(KIRP(A1)));" ";"")

şeklinde değiştirin

 

[sedat2161]

C1'deki formülü

=YERİNEKOY(SAĞDAN(YERİNEKOY(KIRP(A1);" ";YİNELE(" ";UZUNLUK(KIRP(A1))));UZUNLUK(KIRP(A1)));" ";"")

şeklinde değiştirin

çok teşekkür ederim