il ilçe bölümünü yan sutuna atsın.

[sunkid]

Merhaba arkadaşlar, elimde binlerce adresin olduğu bir excel sayfam var ve her bir adres tam olarak bir hücreye yazılı ayrım yok yani
A1
kuş uçmaz kervangeçmez sok no:13 MECİDİYEKÖY/İSTANBUL
ilçe ve il bölüünü yan sutuna atmam gerekiyor teker teker kes yapıştır yapmak değilde bir kod yazarak hallebilme şansımız olurmu?
MECİDİYEKÖY/İSTANBUL' u yan satıra atsın

 

[excel03]

merhaba;

Sub MetniAyır()
Dim a
Columns("B:B").ClearContents
For i = 1 To Cells(65536, 1).End(xlUp).Row '1.satırdan itibaren
10:
    a = Split(StrReverse(Cells(i, 1)), " ")
        For j = 0 To UBound(a) - 1
        Cells(i, 2) = StrReverse(Trim(Cells(i, 2) & " " & a(j)))
        i = i + 1
        GoTo 10
        Next
Next i
End Sub

 

[sunkid]

hocam harikasın kod süper işledi fakat şimdi başka bi sorun çıktı a1 hücresindeki adresin içinden ilçe ve illeri temizlemem gerekiyor onu yapmamız mümkün olurmu?

a1
kuş uçmaz kervna geçmez sok. no:13
b1
mecidiyeköy/istanbul şeklinde

 

[excel03]

merhaba;
A1 hücresinden aşağıya doğru adres bilgilerinin ve il ilçe bilgilerinin;
B1 hücresinden aşağıya doğru ise İl/İlçe bilgilerinin olduğu varsayıldığında;

Sub MetniAyır2()
For i = 1 To Cells(65536, 1).End(xlUp).Row '1.satırdan itibaren
Cells(i, 1) = Replace(Cells(i, 1), Cells(i, 2), "")
Next i
End Sub

 

[sunkid]

çok güzel hareketler bunlar hocam ellerine sağlık takır takır işledi kod...

 

[Civan Jack]

Örnek olması açısından.