Parça al

[bosislermuduru]

A1 sütunundaki Veri 'Nakit ödeme Yapan, loop 12345678900 nakit 1234₺'

A2 sütununda A1 de bulunan TC Noyu Parça al ile Dinamik Olarak Alabilmek İçin ne yapmam Gerekiyor.

 

[anemis]

Örnek dosya olmadığından dinamik almaktan kastınızı anlayamadıysam da;

A2 ye =PARÇAAL(A1;(BUL("p ";A1;1)+2);BUL(" nakit";A1;1)-(BUL("p ";A1;1)+2)) yazınız.

 

[bosislermuduru]

Sorunum Şu Aslında 3 Adet Sütunum Var 4.Sütunda İse Tc Kimlik Numarasını Almam Lazım ... Fakat 3. Sütunda İsteyen İstediği yere Tc yi Yazıyor Örnek 1- > Hesap 1 - 12345678900
Örnek 2 -> Ödeme Emri ipta 12345678900
örnek 3 -> Ödeme ipt Tc 12345678900

Amacım 4. Satırda Bu Tcleri Ayırmak Bir Çok Yol Denedim Ama Malesef Olmadı

 

[metehan8001]

Sorunum Şu Aslında 3 Adet Sütunum Var 4.Sütunda İse Tc Kimlik Numarasını Almam Lazım ... Fakat 3. Sütunda İsteyen İstediği yere Tc yi Yazıyor Örnek 1- > Hesap 1 - 12345678900
Örnek 2 -> Ödeme Emri ipta 12345678900
örnek 3 -> Ödeme ipt Tc 12345678900

Amacım 4. Satırda Bu Tcleri Ayırmak Bir Çok Yol Denedim Ama Malesef Olmadı

TC no hep sonda mı bulunuyor.

 

[bosislermuduru]

Yok Rastgele Ama Ben Şöyle Bir Şey Düşündüm Tc No Çift Sayılarla Biityor , Bu Sebeple 0 Gördüğün Yerde 11 Sayı Geri Al 2 gördüün yerde 11 geri al Şeklinde Denedik Ama Çalışmadı Bile , Sonda Olsaydı Nasıl Yapabilirdik __???

 

[metehan8001]

Yok Rastgele Ama Ben Şöyle Bir Şey Düşündüm Tc No Çift Sayılarla Biityor , Bu Sebeple 0 Gördüğün Yerde 11 Sayı Geri Al 2 gördüün yerde 11 geri al Şeklinde Denedik Ama Çalışmadı Bile , Sonda Olsaydı Nasıl Yapabilirdik __???

Sonda olsa idi eğer

=Right(A1;11)

=Sağdan(A1;11)

olabilirdi.

 

[anemis]

Sorunum Şu Aslında 3 Adet Sütunum Var 4.Sütunda İse Tc Kimlik Numarasını Almam Lazım ... Fakat 3. Sütunda İsteyen İstediği yere Tc yi Yazıyor Örnek 1- > Hesap 1 - 12345678900
Örnek 2 -> Ödeme Emri ipta 12345678900
örnek 3 -> Ödeme ipt Tc 12345678900

Amacım 4. Satırda Bu Tcleri Ayırmak Bir Çok Yol Denedim Ama Malesef Olmadı

Bana ait olmayan fakat arşivimde olan kodlardan birisi işinizi görecektir.

Öncelikle aşağıdaki kodu bir modüle yapıştırın.

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

daha sonra istediğiniz hücreleri =RAKAMAYIR(A1) fonksiyonu ile sadece rakamlar kalacak şekilde numaraları alabilirsiniz.

 

[Haluk]

daha sonra istediğiniz hücreleri =RAKAMAYIR(A1) fonksiyonu ile sadece rakamlar kalacak şekilde numaraları alabilirsiniz.

1. mesajda verilen örnekteki 1234 ifadesini de sonuca aldığı için her zaman çalışmaz.

.

 

[anemis]

evet kod text içerisindeki rakamların tamamını ayırır.

 

[Haluk]

Hücredeki sadece 11 karakterli nümerik verileri bulmak için ekli dosyadaki Kullanıcı Tanımlı Fonksiyon kullanılabilir.

.

 

[çıtır]

11 haneli ve sonu çift sayı olan tcno alır.Dosya ektedir.
http://dosya.la/download/dc8559ce2fc57585b0d9addc33028eef.html

 

[Haluk]

Regular Expression kullanarak hazırlanmış başka bir alternatif, ektedir.

.