Bul ve Bir Öncekini Al.

[chantage77]

Merhaba,

Adres ayırma konusunda çalışıyorum.
Söyle birşey nasil olabilir.
Hücreyi incele, içinde MAH. kelimesini bul.
Bunu bulduğun zaman bir önceki kelimeyi al ve beraber yaz.

Atatürk Mah. Fatihsultan Mehmet Cad.

Bu cümlede kullandığımızda sonuç "Atatürk Mah." olarak gelmesi nasıl sağlanabilir.

 

[ÖmerBey]

Aşağıdaki kullanıcı tanımlı fonksiyonu (KTF) kullanabilirsiniz. Kodu boş bir modüle kopyaladıktan sonra
Formülü =MAHALLE(Metin;Ayrac;Aranan değer) şeklinde oluşturabilirsiniz.
Örneğin:

=MAHALLE(A1;" ";"Mah.")

şeklinde.

Function MAHALLE(deger, ayrac, ara)
For i = 0 To (Len(deger) - Len(Replace(deger, ayrac, ""))) / Len(ayrac)
    If Split(deger, ayrac)(i) = ara Then sonuc = Split(deger, ayrac)(i - 1) & ayrac & Split(deger, ayrac)(i)
Next
MAHALLE = sonuc
End Function

 

[chantage77]

Tamamdır, çok teşekkürler