Excell Açık Adresteki İlçeyi Yan hücreye yazdırma

[blackjacker]

merhaba
Hoşnudiye Mahallesi, Doktorlar Cadddesi, No:39/A ESKİŞEHİR TEPEBAŞI
örneğinde olduğu gibi yukaarıdaki açık adreste ili yan hücreye ilçeyide onun yanına nasıl yazdırabilirim?amacım adresteki il ve ilçeleri ayırmak

 

[askm]

Sub askm()
Dim say
Dim ilce As String, il As String
Application.ScreenUpdating = False
For i = 1 To Range("A" & Rows.Count).End(3).Row
    say = Split(Cells(i, 1), " ")
    
    ilce = Split(Cells(i, 1), " ")(UBound(say))
    il = Split(Cells(i, 1), " ")(UBound(say) - 1)
    Cells(i, 2) = ilce
    Cells(i, 3) = il
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Ömer BARAN]

Merhaba.
Soru Fonksiyonlar bölümünde sorulduğuna göre formül ile çözüm önerisinde bulunayım dedim.
Adres metninin A1 hücresinde yazılı olduğu, İL ve İLÇE adlarının birer kelime olduğu varsayıldı.

-- İL ADI için;

=PARÇAAL(KIRP(A1);BUL("|";YERİNEKOY(KIRP(A1);" ";"|";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-1))+1;BUL("|";YERİNEKOY(KIRP(A1);" ";"|";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))))-BUL("|";YERİNEKOY(KIRP(A1);" ";"|";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-1))-1)

-- İLÇE ADI için;

=PARÇAAL(KIRP(A1);BUL("|";YERİNEKOY(KIRP(A1);" ";"|";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))))+1;255)

 

[turist]

merhaba
Hoşnudiye Mahallesi, Doktorlar Cadddesi, No:39/A ESKİŞEHİR TEPEBAŞI
örneğinde olduğu gibi yukaarıdaki açık adreste ili yan hücreye ilçeyide onun yanına nasıl yazdırabilirim?amacım adresteki il ve ilçeleri ayırmak

A1 Hücresine Örnek adresi girin.
B1 hücresine:

=KIRP(PARÇAAL(YERİNEKOY(A1;" ";YİNELE(" ";UZUNLUK(A1))); (UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))-1)*UZUNLUK(A1)+1; UZUNLUK(A1)))

C1 hücresine:

=KIRP(PARÇAAL(YERİNEKOY(A1;" ";YİNELE(" ";UZUNLUK(A1))); (UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";"")))*UZUNLUK(A1)+1; UZUNLUK(A1)))

formüllerini yazarak deneyin.
Adreste değişiklikler yaparak, sonuçları test edin.

 

[Erdem Akdemir]

Alternatif olarak B1 hücresine uygulayın ve sağa doğru kopyalayın.

=İNDİS(KIRP(PARÇAAL(YERİNEKOY(" "&$A2;" ";YİNELE(" ";255));SATIR($1:$99)*255;255));UZUNLUK($A2)-UZUNLUK(YERİNEKOY($A2;" ";""))+SÜTUN(B2)-1)

 

[blackjacker]

Gerçekten çok teşekkürler
Deneyip geri bildirim yapacağım

 

[blackjacker]

Merhaba,
denediklerimin hiçbiri olmadı.
bazıları caddeyi aldı bazı formüller no: yazan yeri aldı.galiba son 10 kelimeyi alıyor formüller.
ayrıca askm üyenin yazdığı kodu nasıl yapıcam orasınıda bulamadım

 

[Haluk]

Adres formatlarının her zaman aynı olduğu garanti edilmeden çözüm önermek gerçekten zor olur.

Eğer adresler Mahalle Cadde Sokak İL İLÇE değil de; Mahalle Cadde Sokak İLÇE İL olursa, sonuçlar doğal olarak anlamsız olabilir.

.

 

[blackjacker]

aslında 1yıl önce bir konuda böyle bir ihtiyaç olmuştu.2 tane sheet var 1.sine türkiyedeki bütün ilçeleri yazmışlardı.diğer sheet ise küçük bi formlle o adreste geçen o ilçenin kelimesini arayıp yan hücreye yazıyordu.
konuyu bu yada başka bi forumda görmüştüm bulamadım.aslında öyle birşey yapılabilir mi nasıl olur?

 

[netzone]

Merhaba,
denediklerimin hiçbiri olmadı.
bazıları caddeyi aldı bazı formüller no: yazan yeri aldı.galiba son 10 kelimeyi alıyor formüller.
ayrıca askm üyenin yazdığı kodu nasıl yapıcam orasınıda bulamadım

Merhaba @blackjacker

@Haluk Bey'in de dediği gibi adres formatlarının hepsinin aynı olmaması halinde yukarıdaki çözümlerin hiçbiri işinizi görmeyecektir.
Söz konusu sorunuza karşılık olarak verilen çözümlerin hepsini ekteki dosyada doğru olarak işlevini yerine getirdiğiniz gözlemleyebilirsiniz.
@askm'ın paylaşımındaki kodları VBA kısmında yazmanız gerekir [ALT+F11 tuşları ile bu alanı açabilirsiniz.]

İyi çalışmalar.

Dosyayı buradan indirebilirsiniz.

 

[Erdem Akdemir]

Konuda verilen çözümler ilk mesajdaki örneğe göre verildi.Sonra denediklerimin hiçbiri olmadı demek soru cevaplayanlara haksızlık ve saygısızlık.Bundan sonra sorularınızı doğru örneklerle sorarsanız doğru cevaplar alırsınız.

 

[Ömer BARAN]

Oldukça hasta olmama rağmen bu konuya cevap yazmamak olmazdı.

Pes yani, nezaket/feraset kalmamış memlekette.
Böyle durumlar gerçekten çok üzücü, verilen emeğe, harcanan zamana yazık oluyor doğrusu.
Forumda nadiren kullandığım bir cümleyi yazacağım: SORU SORMAK ZOR ZANAAT VESSELAM.

Şu anki cevabımı da konuyu açan üye için değil, sayfayı ziyaret edecek ve bilgi edinme/paylaşma peşinde olan diğer üyeler için yazıyorum.

A1 hücresindeki adres metni için, aşağıdaki formül B1 hücresine kopyalanıp sağa doğru (boş sonuç elde edilinceye kadar) kopyalanırsa;
ilgili metin boşluk kriterine göre, FONKSİYON kullanarak kelime kelime sütunlara dağıtılmış hale gelir.

=EĞERHATA(YERİNEKOY(PARÇAAL(" "&KIRP($A1)&" ";BUL("|";YERİNEKOY(" "&KIRP($A1)&" ";" ";"|";SÜTUN(A$1)))+1;BUL("@";YERİNEKOY(" "&KIRP($A1)&" ";" ";"@";SÜTUN(B$1)))-BUL("|";YERİNEKOY(" "&KIRP($A1)&" ";" ";"|";SÜTUN(A$1)))-1);"@";"");"")