Adres Bilgisinden Mahalle ve Sokak Ayrımı

[noartist]

Merhaba arkadaşlar,

Aşağıdaki linkte bulunan excel dosyasında "A" sütununda adresin tamamı yazmaktadır.
A sütunundaki mah. bölümünün B sütununa
A sütunundaki cad. ve sok. bölümlerinin C sütununa işlenmesi konusunda yardımcı olabilir misiniz ?

Veri sayısı çok fazla olduğu için adresler daha karmaşık olabiliyor o yüzden metni sütunlara dönüştür işe yaramıyor.

adres.xlsx

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Şimdiden teşekkür ederim.

 

[maznun5255]

Merhaba
B2 hücresine : =SOLDAN(A2;MBUL(".,";A2)-1)

C2 Hücresine : EĞER(ESAYIYSA(UZUNLUK(A2)-MBUL(".,";A2));SAĞDAN(A2;UZUNLUK(A2)-MBUL(".,";A2)-1);A2)
formulunu yazarak kullanabilirsiniz.

ADRES	MAHALLE	CADDE veya SOKAK
Şişli Merkez Mah., 100. Sok. (Eski1.) No : 1	Şişli Merkez Mah	100. Sok. (Eski1.) No : 1

 

[Korhan Ayhan]

Alternatif olarak daha önce irdelenmiş konular belki işinize yarayabilir. (Bazılarına erişim için Altın Üyelik gerekebilir.)

Arama Sonuçları

 

[noartist]

Merhaba
B2 hücresine : =SOLDAN(A2;MBUL(".,";A2)-1)

C2 Hücresine : EĞER(ESAYIYSA(UZUNLUK(A2)-MBUL(".,";A2));SAĞDAN(A2;UZUNLUK(A2)-MBUL(".,";A2)-1);A2)
formulunu yazarak kullanabilirsiniz.

ADRES	MAHALLE	CADDE veya SOKAK
Şişli Merkez Mah., 100. Sok. (Eski1.) No : 1	Şişli Merkez Mah	100. Sok. (Eski1.) No : 1

@maznun5255 hocam teşekkür ederim.

 

[dEdE]

Veri sayısı çok fazla olduğu için adresler daha karmaşık olabiliyor o yüzden metni sütunlara dönüştür işe yaramıyor.

Veri sayısı çok fazla ise; Alternatif, Makrolu çözüm.

Sub Test()
    Dim myArr() As String
    Sat = 2
    ss = Cells(Rows.Count, "A").End(3).Row
    For j = 2 To ss
        myArr = Split(Cells(j, 1), ".,")
        Cells(Sat, 2) = myArr(0)
        Cells(Sat, 3) = myArr(1)
        Sat = Sat + 1
    Next j
End Sub