Merhaba,

Personeller banka hesaplarımıza para yatırıyor, hangi mağazadan yatırdıklarını malesef ki yazmıyorlar.

Eşleştirebileceğim tek veri ise Banka ekstresinin açıklama satırlarındaki TC kimlik numaraları.

Ancak Banka ekstre açıklama kısmında TC kimlik numarası bazen başta bazen ortada oluyor.

ve belirli bir standardı yok bu satırların. Aşağıda sizlere örnek paylaşıyor olacağım.

Benim yapmak istediğim ayrı bir satıra bu 11 haneli TC kimlik numarası verisini aldırmaktır.

Örnek;

0949/ATM-00003842 P YATIRMA TCKN.42355713434 DIGER OD.-212 AVM

0949/ATM-TC:48505713426 00003842 P YATIRMA podıum

Bu konuda bana destek olabilir misiniz?

Aşağıdaki VBA fonksiyon kodunu VBA editöründe Module1 içerisine yazın.

hücrede =TCKimlikAl(A1) şeklinde kullan

Function TCKimlikAl(hucre As Range) As String

'Mesut Akcan

'21/1/2021

'akcansoft.blogspot.com

Dim harfler() As String

Dim rakamlar() As String

Dim ar As Integer, oharf As String

Dim harf, rakam

ReDim rakamlar(3)

harfler = Split(StrConv(hucre, vbUnicode), Chr$(0))

ar = 0

For Each harf In harfler

  If IsNumeric(harf) Then

    rakamlar(ar) = rakamlar(ar) & harf

  Else

    If IsNumeric(oharf) Then

      ar = ar + 1

      If ar > 3 Then ReDim Preserve rakamlar(ar)

    End If

  End If

  oharf = harf

Next

For Each rakam In rakamlar

  If Len(rakam) = 11 Then

    TCKimlikAl = rakam

    Exit For

  End If

Next

End Function

Fonksiyonun uygulandığı örnek dosya: https://www.mediafire.com/file/jka12xij0mqprmd/tc-kimlik-no-al.xlsm/file