• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Metin içinden kelime alma

  • Konbuyu başlatan Konbuyu başlatan Ridan
  • Başlangıç tarihi Başlangıç tarihi
R

Ridan

Katılım
3 Temmuz 2005
Mesajlar
306
Excel Vers. ve Dili
excel 2021 tr
Aşağıdaki şekilde uzun bir listem var.. Burada sadece formül ile İLÇE İSİMLERİ ayrı bir sütuna alınacak. ilçe isimleri GÖNEN, BANDIRMA...bu şekilde devam ediyor. Şimdiden teşekkürler.

Çarşı Mah. No: 1 GÖNEN / BALIKESİR
Çarşı Mah. No: 2 GÖNEN / BALIKESİR
Çarşı Mah. No: 3 BANDIRMA / BALIKESİR
Çarşı Mah. No: 4 GÖNEN / BALIKESİR
Çarşı Mah. No: 5 KARESİ / BALIKESİR
Çarşı Mah. No: 6 GÖNEN / BALIKESİR
 
Merhaba,
Bu şekilde deneyiniz.
Kod: 
=KIRP(SOLDAN(YERİNEKOY(PARÇAAL(A1;MBUL(":";A1;1)+4;38);" ";YİNELE(" ";38));38))
 
Alternatif,

Kapı numarası tek haneli olmadığı durumlarda da sonuç getirir.

Kod: 
=İNDİS(KIRP(PARÇAAL(YERİNEKOY(" "&$A1;" ";YİNELE(" ";255));SATIR($D$1:D9)*255;255));5)
 
Eğer bir tane : olursa oluyor ama, iki tane olur ": " olursa olmuyor sayın bzace.. aşağıdaki gibi

SERVİ MAH. HIFZI VELDET VELİDEDEOĞLU CAD. NO: 99 İÇ KAPI NO: 9 BİGADİÇ / BALIKESİR

Sayın erdem, yukarıdaki adreste sadece VELİDEDEOĞLU kelimesini aldı.. Almak istenilen kelime ilçe isimleri.. BİGADİÇ kelimesi alınacak.
 
Aşağıdaki Kullanıcı Tanımlı Fonksiyonu kullanın
Kod: 
Function al(Metin)
ilk = Split(Metin, "/")
son = Split(Trim(ilk(0)), " ")
say = UBound(son)
al = Trim(son(say))
End Function
 
Kodlar Sn. Korhan Ayhan hocama aittir
Kod: 
Option Explicit
 
Sub İL_İLÇE_AYIR()
    Dim X, Veri
 
    Application.ScreenUpdating = False
 
    Range("B:C") = ""
 
    For X = 1 To Cells(Rows.Count, 1).End(3).Row
        Veri = Replace(Replace(Cells(X, 1), "   ", " "), "  ", " ")
        Veri = Split(Replace(Replace(Replace(Veri, "/", " "), "-", " "), "  ", " "), " ")
        Cells(X, 2) = Veri(UBound(Veri) - 1)
        Cells(X, 3) = Veri(UBound(Veri))
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Ridan' Alıntı:
Eğer bir tane : olursa oluyor ama, iki tane olur ": " olursa olmuyor sayın bzace.. aşağıdaki gibi

SERVİ MAH. HIFZI VELDET VELİDEDEOĞLU CAD. NO: 99 İÇ KAPI NO: 9 BİGADİÇ / BALIKESİR

Sayın erdem, yukarıdaki adreste sadece VELİDEDEOĞLU kelimesini aldı.. Almak istenilen kelime ilçe isimleri.. BİGADİÇ kelimesi alınacak.
Genişletmek için tıkla ...

İlk sorduğunuz soru ile bunun arasında dağlar kadar fark var.
 
Alternatif olarak deneyiniz.
Kod: 
=EĞER(A1="";"";KIRP(PARÇAAL(A1;BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-2));BUL("/";YERİNEKOY(A1;" ";"*";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-2))-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-2)))))
 
Kusura bakmayın.. ilk formülü uyguladıktan sonra sorun meydana çıktı..
Sayın alicimri, birkaç satır dışında yüzde 90 işe yaradı.

Üstatlarım.. Excel 2016 kullanıyorum. Bu sürümde hızlı doldurma özelliği ile kendi bilgisayarımda hallediyorum. Ancak, diğer kurumda çalışan arkadaşın kullandığı sürüm 2010.. 2010 sürümünde hızlı doldurma özelliği olmadığı için formülle veya makro ile çözülmesi gerekiyor sanırım.
 
Alternatif formül.

Kod: 
=İNDİS(KIRP(PARÇAAL(YERİNEKOY(" "&KIRP($A1);" ";YİNELE(" ";255));SATIR($1:$99)*255;255));UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-1)
 
çıtır' Alıntı:
Alternatif olarak deneyiniz.
Kod: 
=EĞER(A1="";"";KIRP(PARÇAAL(A1;BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-2));BUL("/";YERİNEKOY(A1;" ";"*";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-2))-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))-2)))))
Genişletmek için tıkla ...

Kelimeler arasında tek boşluk olursa sorun yok, ancak çift boşluk olursa olmuyor.
 
Alternatif
Kod: 
=EĞER(A1="";"";KIRP(PARÇAAL(YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";"*";UZUNLUK(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));"")))-UZUNLUK(YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";"")));BUL("*";YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";"*";UZUNLUK(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));"")))-UZUNLUK(YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";""))))+1;UZUNLUK(A1))))
 
çıtır' Alıntı:
Alternatif
Kod: 
=EĞER(A1="";"";KIRP(PARÇAAL(YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";"*";UZUNLUK(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));"")))-UZUNLUK(YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";"")));BUL("*";YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";"*";UZUNLUK(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));"")))-UZUNLUK(YERİNEKOY(KIRP(YERİNEKOY(A1;PARÇAAL(A1;BUL("/";A1);UZUNLUK(A1));""));" ";""))))+1;UZUNLUK(A1))))
Genişletmek için tıkla ...

Sayın çıtır, genelde doğru sonuç verdi.. Mesela aşağıdaki adreste doğru sonuç vermedi. Sanırım iki tane "/" olduğundan dolayı.. İlgi ve alakanız için teşekkür ederim.
ÜÇPINAR MAH. ESKİ MEVKİİ SK. NO: 99/1 KARESİ / BALIKESİR
 
Merhaba.

Aşağıdaki formülün, tüm veri seçenekleri için istenilen sonucu vermesi lazım.
Formül; sağdan ilk "/" işareti ile bu "/" işaretinin solundaki ilk BOŞLUK karakteri arasını alır.
(bir'den fazla boşluk, bir'den fazla / karakteri sonucu etkilemez, formülde ":" karakteri ile ilgili işlem yoktur)
Rich (BB code): 
=SOLDAN(PARÇAAL(YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";"@";UZUNLUK(YERİNEKOY(KIRP(A1);" / ";"/"))-UZUNLUK(YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";"")));BUL("@";YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";"@";UZUNLUK(YERİNEKOY(KIRP(A1);" / ";"/"))-UZUNLUK(YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";""))))+1;255);BUL("/";PARÇAAL(YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";"@";UZUNLUK(YERİNEKOY(KIRP(A1);" / ";"/"))-UZUNLUK(YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";"")));BUL("@";YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";"@";UZUNLUK(YERİNEKOY(KIRP(A1);" / ";"/"))-UZUNLUK(YERİNEKOY(YERİNEKOY(KIRP(A1);" / ";"/");" ";""))))+1;255))-1)
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst