Cadde Sokak Mahalle Ayırmak

[erkankamilonas]

Excelin bir sütununda adres bilgileri var.

VALİ MİTHAT BEY CAD. ALİ KEMAL PAŞA MAH. ÇAVUŞBAŞI SK.

Bu bilgilerden
CAD. içerenleri ayrı bir sütuna
SK. içerenleri ayrı bir sütuna
MAH. içerenleri ayrı bir sütuna yazdırabilirmiyiz?

 

[mustafaine1]

dosya eklerseniz, deneme yapilabilir..

 

[İhsan Tank]

merhaba
bütün adresler yazdığınız gibi ise yani nokta var ise
veri-metni sütünlara dönüştür-sınırlandırılmış-diğer seçeneğini işaretleyip nokta koyarsanız istediğiniz işlemi yapar örnek dosya ekte.

 

[mustafaine1]

search fonksiyonu ile`de cad yahut sk. gibi kriterler aratilarak ayirilabilir..

 

[erkankamilonas]

1000'e yakın satır var. veri-metni sütünlara dönüştür-sınırlandırılmış-diğer seçeneğini işaretleyip nokta koyarsanız istediğiniz işlemi ile olmuyor.

Bazen mahalle önde bazen cadde önde oluyor. Yani bir makro lazım.

 

[İhsan Tank]

sorunuza ezbere bir cevap verdim çünkü hangi sayfada çalışacağımı bilmiyorum örnek dosya ekleyiniz

 

[erkankamilonas]

Dosya Ektedir

 

[mustafaine1]

ek nerdedir

 

[halit3]

bu kod hücrenin içinde noktayı gördüğü zaman oradan ayırımı diğer satıra yapıyor

Sub ayır()
Columns("A:A").Select
For i = 1 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A1:A65000"))
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(i, 1), Array(i, 2), Array(i, 3))
Next i

End Sub

krmızı tırnaklı yere hangi değeri kayarsan koy o değeri gördüğü yerde ayırma işlemini yapıyor.

 

[erkankamilonas]

Teşekkürler, ancak
Cadde, sokak ve mahalle bilgilieri alt alta denk gelmediği için olmuyor. Mesela Sokak bilgisi orta kısımda sokak için "&" şu işareti ayarlasam ve sizin makronuza eklesem Cadde ve sokak bilgisi aynı hücreye denk gelecek. yani olmadı.

 

[mustafaine1]

dosyanizi ekledim ali beyin bu konuda bir ktf`si var ondan yararlandim sakli satirlara goz atiniz..

 

[erkankamilonas]

Çok teşekkür ederim.
Cadde, Sokak ve mahalle ifadelerini değiştirdim, buna göre bir çözüm olabilirse çok sevinirim teşekkürler.

 

[halit3]

ekli dosyaya bir bakınız verilerinizi sayfa2 ye A sütununa koyunuz. ve sayfa1 deki düğmeye tıklayınız.

 

[mustafaine1]

Guzel calisma olmus Halit bey..

 

[halit3]

Guzel calisma olmus Halit bey..

teşekkürler
iyi çalışmalar

 

[halit3]

13.nolu mesajdaki dosyayı yeniden düzenledim

 

[tet42]

Merhaba Bu kodu ben USERFORM da nasıl çalıştırabilirim.

bu olmuyor
Private Sub ayır_Click()
Call Module1.ayır
End Sub

 

[EbuHarun]

Merhaba arkadaşlar konuyu hortlatmış gibi olacağım belki ama benimde bu işleme ihtiyacım var. Adresleri içinde mahalle cadde sokak no: içermeyenleri temizlemem gerek. Ancak örnek çalışma sayfalarını görüntüleyemiyorum.

 

[EbuHarun]

ekli dosyaya bir bakınız verilerinizi sayfa2 ye A sütununa koyunuz. ve sayfa1 deki düğmeye tıklayınız.

Halit bey benimde buna ihtiyacım var ancak bendeki datalarda kullanmak istediğimde bazılarında mah. bazılarında mahalle bazılarında cad. bazılarında cadde şeklinde olduğu için adresler mah-allesi şeklide mah gördüğü cad-desi şeklide cad gördüğü herşeyi ayırdı. Haddim olmadan burada sormayayım diye kod'a girip mah. olanın noktasını cad. olanın noktasını çıkarınca bu seferde sütunlara bölmedi. Acaba bu konuda yapılabilecek birşey varmıdır?

 

[halit3]

Halit bey benimde buna ihtiyacım var ancak bendeki datalarda kullanmak istediğimde bazılarında mah. bazılarında mahalle bazılarında cad. bazılarında cadde şeklinde olduğu için adresler mah-allesi şeklide mah gördüğü cad-desi şeklide cad gördüğü herşeyi ayırdı. Haddim olmadan burada sormayayım diye kod'a girip mah. olanın noktasını cad. olanın noktasını çıkarınca bu seferde sütunlara bölmedi. Acaba bu konuda yapılabilecek birşey varmıdır?

Ekli dosyayı görüntüle 204575

Konuya cevap yazalı dokuz sene olmuş ne yaptığımı bende hatırlamıyorum örnek dosyanızı yeni bir konu başlığı altında sorunuz.