Adresi, İlçe ve İl ayırma.

[Biray3550]

Merhaba, 2 Adet ayrı formatlarda Adres, İlçe ve İl ayırma için 2 ayrı macro veya formül yardım edebilir misiniz?
Teşekkür ederim.

 

[dEdE]

Örnek dosyanıza göre;

Sub Test1() '1. BİRLEŞİK ADRES İÇİN
Dim myArr() As String
For j = 3 To 4
    myArr = Split(Cells(j, 1), " ")
    Cells(j, 4) = myArr(UBound(myArr))
    Cells(j, 3) = myArr(UBound(myArr) - 1)
    ReDim Preserve myArr(LBound(myArr) To UBound(myArr) - 2)
    Cells(j, 2) = Join(myArr, " ")
Next j
End Sub

Sub Test2() '2. BİRLEŞİK ADRES İÇİN
For i = 10 To 11
    x2 = InStr(1, Cells(i, 1), "İlçe: ", 0)
    x3 = InStr(1, Cells(i, 1), "Semt: ", 0)
    x4 = InStr(1, Cells(i, 1), "Adres detay: ", 0)
    uz = Len(Cells(i, 1))
    Cells(i, 2) = Mid(Cells(i, 1), x4 + 13, uz - x4 + 14)
    Cells(i, 3) = Mid(Cells(i, 1), x2 + 6, x3 - x2 - 7)
    Cells(i, 4) = Mid(Cells(i, 1), 4, x2 - 5)
Next
End Sub

 

[Biray3550]

Çok teşekkür ederim.