Metin aratıp eşleştirme

[karateboy]

Merhabalar,

Elimizde bulunan TC kimlik nolarının bankadan gelen hesap dökümündeki açıklama sütünündaki verilerinin arasında bulunduğunu sorgulamam lazım.
Şu ana kadar 100 küsür kişi vardı, tek tek "bul" ile sorgulayıp işimi gördüm, sayı 1000 i bulacak gibi, bu işin bir kolayı olmalı.

A sütününda Tc kimlik nolarının olduğunu düşünelim,
B sütününda Bankadan gelen döküm açıklaması(Tam bir standart yok, farklı örnekler yazdım),
ATM YATAN (KARTSIZ) KART NO:XXXXXXXXXX TCKN: XXXXXXXXX ATM:XXXXXX JOURNAL SIRA NO:XXXXX
Gönd: İsim Soyisim, TC:XXXXXXXX XXXXXXXX Referanslı Gelen Havale
T.C.XXXXXXXXX İsim Soyisim

Kısaca Elimizdeki Tc kimlik no Bankadan gelen bilgilerde varsa, Var gibi bir şey yazdırabilir miyim.

Teşekkürler

 

[Mahir64]

ATM YATAN (KARTSIZ) KART NO:XXXXXXXXXX TCKN: XXXXXXXXX ATM:XXXXXX JOURNAL SIRA NO:XXXXX
Gönd: İsim Soyisim, TC:XXXXXXXX XXXXXXXX Referanslı Gelen Havale
T.C.XXXXXXXXX İsim Soyisim

Üç TC.Kimlik numarasıda aynı mı? XXXX koymak yerine farazi birşeyler yazabilirsiniz.

--

 

[karateboy]

aynı numaralar değil,
Gelen EFT, havale, başka banka türüne dökümde farklı farklı yazıyor, tam bir standart yok, onu belirtmek istedim,

X ler için o an aklıma öyle gelmişti, kusura bakmayın

 

[Mahir64]

Bir metinde birden fazla TC.Kimlik numarası mı var?

Birkaç satırlık örnek ekleyebilir misiniz?

 

[karateboy]

Tekrardan Merhabalar,

bi Örnek Dosya yükledim

Başvuranların Tc kimlik noları ve bankadan gelen döküm bilgileri bulunmakta (uydurma).


Teşekkürler.

 

[Mahir64]

Merhaba,

Uygun yere yazarak aşağı doğru çekerek kopyalayın.

=EĞERSAY($B$2:$B$11;"*"&A2&"*")

Kaç tane varsa o kadar sayı verir. Yoksa 0 değeri verir.

-

 

[bzace]

Mahir bey,
Önerdiğiniz çözüm şu gibi durumlarda hatalı sonuç verebilir.
Verilerin içerisinde KART NO (16 haneli) sayılar olduğu düşünüldüğünde TC Kimlik numaralarıyla çakışma olasılığı olabilir.

 

[karateboy]

Teşekkürler Mahir Bey

Evet dediğiniz gibi, kontrol edeyim dedim çakışma oluyor.

 

[bzace]

Mahir bey'in verecceiği çözüme alternatif olarak;

=İNDİS($A$1:$A$10;MAK(ESAYIYSA(MBUL($A$1:$A$10;B2))*SATIR($A$1:$A$10)))
[COLOR="Blue"]Formül dizi formülüdür.CTRL + SHİFT + ENTER ile tamamlayyınız.[/COLOR]

yada

=EĞERHATA(ARA(2^15;MBUL($A$2:$A$10;B2);$A$2:$A$10);"Tc Kimlik no eşleşmedi")

 

[Murat OSMA]

Makro ile alternatif;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, Rky As Range
    For Each Rky In Range("B2:B" & Range("B65536").End(3).Row)
        For i = 2 To Range("A65536").End(3).Row
            If Rky.Value Like "*" & Cells(i, 1).Value & "*" Then
                Cells(i, 3).Value = "VAR"
                Cells(i, 4).Value = Rky.Address(0, 0)
            End If
        Next i
    Next Rky
    Set Rky = Nothing: i = Empty
End Sub[/FONT]

 

[karateboy]

Çok teşekkürler bu sefer tam istediğim gibi oldu.

 

[Murat OSMA]

Rica ederim, iyi günler.