Satırdaki veri arasından belirli değeri alma

[AyşegülEge]

Arkadaşlar metin ve rakamlardan oluşan çokça satırın içinden sadece hesap numaralarını almam gerekiyor.mesela
ANADOLU BÖLGE POS 00381 6287150
ANADOLU BÖLGE POS 00381 6287112 HESAPTAN GELEN
ANADOLU BÖLGE POS 00381 6287990 HESABA GİDEN
gibi satırların içinden sadece hesap numaralarını almam gerekiyor.yani bana lazım olan
00381 6287150
00381 6287112
00381 6287990 değerleri.lütfen acilen yardıma ihtiyacım var.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki fonksiyonu kullanabilirsiniz.

Function RAKAMAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
    RAKAMAYIR = SONUÇ
End Function

 

[SertaCSeveR]

=PARÇAAL(A1;BUL(0;A1;1);13)
A1 yani sizin açıklamanızın bulunduğu hücrede 0 (sıfır)değerini arattırıp sıfırdan başlayarak 13 karakteri alırsınız.Tabi bütün hesap numaraları 0 ile başlıyorsa

 

[Murat OSMA]

Sn. AyşegülEge, corsan75 isimli üye ile aynı kişi misiniz ?
Aynı dosyaları gönderiyorsunuz...

 

[AyşegülEge]

Sn. AyşegülEge, corsan75 isimli üye ile aynı kişi misiniz ?
Aynı dosyaları gönderiyorsunuz...

Sn Murat OSMA hayır aynı kişi tabiiki değilim ama sizi tebrik ediyorum
çok dikkatlisiniz corsan75 ve ben aynı şirlketin muhasebesinde çalışan iki kardeşiz.bana önerende o oldu bu siteyi bana tanıttığı içinde sizleri tanıdığım içinde sorularıma çok hızlı cevap alabildiğim içinde çok mutluyum sağolun varolun.COrsan75 yani mücahid farklı bir banka işlemlerini yaparklen ben farklı bir banka işlemi yapıyorum ve değerlerde farkediyor o yüzden benzer sorular için kusura bakmayın.

 

[AyşegülEge]

=PARÇAAL(A1;BUL(0;A1;1);13)
A1 yani sizin açıklamanızın bulunduğu hücrede 0 (sıfır)değerini arattırıp sıfırdan başlayarak 13 karakteri alırsınız.Tabi bütün hesap numaraları 0 ile başlıyorsa

çok teşekkürler ellerinize sağlık.sağolun.

 

[AyşegülEge]

Merhaba,

Aşağıdaki fonksiyonu kullanabilirsiniz.

Function RAKAMAYIR(Hücre As Range)
    For X = 1 To Len(Hücre)
    If IsNumeric(Mid(Hücre, X, 1)) Then SONUÇ = SONUÇ & Mid(Hücre, X, 1)
    Next
    SONUÇ = IIf(SONUÇ = 0, "Rakam Bulunamadı!", SONUÇ * 1)
    RAKAMAYIR = SONUÇ
End Function

Sn korhan Ayhan sizler harikasınız çok teşekkür ediyorum.

 

[Murat OSMA]

Anlıyorum Ayşegül Hanım...

Size kolaylıklar dilerim.