Metin İçerisinden Şarta Göre Veri Aldırma

[yyhy]

Metin İçerisinden Şarta Göre Veri Aldırabilir miyiz? İlgilenen arkadaşlara teşekkürler.

 

[mami68]

Merhabalar,

eğer maksadınız sütunlara ayırmak ise,

Veri > Metni sütunlara dönüştür ile işlem yapabilirsiniz.

iyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.
KTF aşağıdadır.
Kullanım:
=veri_al(B6;D6)

Function veri_al(a As String, deg As String) As String
Dim adr, deg2 As String, i As Integer
If deg = "" Then Exit Function
adr = Split(a, " ")
deg = UCase(Replace(Replace(deg, "ı", "I"), "i", "İ"))
For i = LBound(adr) To UBound(adr)
    If UCase(Replace(Replace(adr(i), "i", "İ"), "ı", "I")) = deg Then
        veri_al = adr(i - 1)
        Exit For
    End If
Next i
End Function

 

[yyhy]

Teşekkürler

Güzel olmuş elinize sağlık. Yeni Veri girince Değer hatası veriyor. Bunu düzeltebilir miyiz?

 

[Orion1]

Güzel olmuş elinize sağlık. Yeni Veri girince Değer hatası veriyor. Bunu düzeltebilir miyiz?

Yooo hata vermiyor.
Yalnız aradığınız veri ilk bölümdeyse hata veriryor buda normaldir.
Veya arasında hiç boşluk yoksa hata veriyor.Buda önceki söylediğimle ayni şeydir.

 

[yyhy]

Cümle İçerisinden Metin Aldırma, Makroda Değişiklik Yapılabilir mi

Cümle İçerisinden Metin Aldırma, Makroda Değişiklik Yapılabilir mi? İlgilenen arkadaşlara teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki formülleri denermisiniz.

Mahalle için C6 hücresine;

=KIRP(PARÇAAL(B6;1;MBUL("MAH.";B6;1)-1))

Sokak için C7 hücresine;

=KIRP(PARÇAAL(B7;MBUL("MAH.";B7;1)+4;MBUL("SOK.";B7;1)-MBUL("MAH.";B7;1)-4))

Apartman için C8 hücresine;

=KIRP(PARÇAAL(B8;MBUL("SOK.";B8;1)+4;MBUL("APT.";B8;1)-MBUL("SOK.";B8;1)-4))

Kapı No için C9 hücresine;

=KIRP(PARÇAAL(B9;MBUL("NO:";B9;1)+3;MBUL(" ";PARÇAAL(B9;MBUL("NO:";B9;1);1024);1)-3))

 

[yyhy]

Korhan Ayhan Bey teşekkürler güzel olmuş, Adres Bölümüne Cadde yazmayı unutmuşum acaba adres şu şekilde olursa " Yıldırım Küçük Fatih Mah. Yandım Ali Cad. Tomurcuk Siyah Gül Sok. İkinci Hayal Apt. No:9/1 İstanbul " Cad. için yapılacak formül ne olur acaba?

 

[yyhy]

Şöyle bir sorun oldu Mah.---------Cad.-----------Sok.-----------Apt.--------No: Şeklinde sıraladık. Eğer bunlardan bir tanesini çıkardığımız zaman formül kopuyor. Örneğin Cad. 'yi çıkardığım zaman formülün kopmaması lazım. veya Mah. yoksa sadece Cad., Sok., Apt., No: 'lardan birisi yazılmışsa yine formülün kopmaması lazım. Yani Diğer Hücreler bozulmayacak şekilde ayarlanabilir mi?