Adres yazılı olan hücredeki ilçe/il ismini başka bir hücreye taşımak?

[ugurabi]

Merhaba,

A2 hücresinden itibaren her satıra bir adres yazılmış. İlçe ve il kısmı da sonuna eklenmiş.

Atatürk Mh. Işık Sk. No:2/3 Kadıköy/İST

Mehmetçik Mh. Gül Cd. Çiçek Apt. No:15/6 Sarıyer/İST
..
..
Şeklinde devam ediyor.

Ben Kadıköy/İST ve Sarıyer/İST .. sözcüklerini B sütununa taşımak istiyorum.

Satırlardaki harf, sözcük sayısı farklı.
Sonuçta yapamadım.
Yardımlar için teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip kopyalayınız.

Sub ilayir()

    Dim i   As Long, _
        d
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        d = Split(Trim(Cells(i, "A")), " ")
        Cells(i, "B") = d(UBound(d))
        Cells(i, "A") = Trim(Replace(Cells(i, "A"), d(UBound(d)), ""))
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Bitmiştir....", vbInformation, "www.excel.web.tr"
    
End Sub

 

[ugurabi]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip kopyalayınız.

Sub ilayir()

    Dim i   As Long, _
        d
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        d = Split(Trim(Cells(i, "A")), " ")
        Cells(i, "B") = d(UBound(d))
        Cells(i, "A") = Trim(Replace(Cells(i, "A"), d(UBound(d)), ""))
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Bitmiştir....", vbInformation, "www.excel.web.tr"
    
End Sub

Teşekkürler.
Tamda bunu istemiştim.

Bu işlemi excel fonksiyonları ile yapabilmek mümkün müdür?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

=SAĞDAN(A2;UZUNLUK(A2)-BUL("|";YERİNEKOY(A2;" ";"|";UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;" ";"")))))

.