iban numarası sorgulama

[mc_exrem]

İzne ayrıldım. Dönüşte kontrol edeceğim hocam.

 

[mc_exrem]

tekrardan merhalar hocam,

sayfanın N sütununda ibanları kontrol etmek amacıyla N4 hücresine =@IsFormatIBAN(L4) formülünü yazdım.
modül3' teki kodu sütun sıralamasına göre aşağıdaki gibi değiştirdim ama çalışmadı.
yardımcı olabilir misiniz hocam.

Function IsFormatIBAN(ByVal S As String) As Boolean
    Dim X As Long, DigitValue As Long, Total As Long
    If Not S Like "*[0-9A-Z ]*" Then Exit Function
    S = Replace(S, " ", "")
    S = Mid(S, 5) & Left(S, 4)
    For X = 65 To 90 'A to Z
        S = Replace(S, Chr(X), X - 55)
    Next
    S = StrReverse(S)
    DigitValue = 1
    Total = Left(S, 12)
    For X = 15 To Len(S)
        DigitValue = 10 * DigitValue Mod 97
        Total = Total + Mid(S, X, 12) * DigitValue
    Next
    IsFormatIBAN = (Total Mod 97) = 1
End Function

 

[Haluk]

Kullanmanız gereken fonksiyonu değiştirmişişsiniz, aşağıdaki orjinal fonksiyonu kullanın....

' Orjinal kod: https://www.mrexcel.com/forum/excel-questions/596481-excel-sheet-iban-checker.html
' Kod        : Rick Rothstein
' Tarih      : 04/12/2011

Function IsFormatIBAN(ByVal S As String) As Boolean
    Dim X As Long, DigitValue As Long, Total As Long
    If Not S Like "*[0-9A-Z ]*" Then Exit Function
    S = Replace(S, " ", "")
    S = Mid(S, 5) & Left(S, 4)
    For X = 65 To 90 'A to Z
        S = Replace(S, Chr(X), X - 55)
    Next
    S = StrReverse(S)
    DigitValue = 1
    Total = Left(S, 1)
    For X = 2 To Len(S)
        DigitValue = 10 * DigitValue Mod 97
        Total = Total + Mid(S, X, 1) * DigitValue
    Next
    IsFormatIBAN = (Total Mod 97) = 1
End Function

Ayrıca, N4 hücresinde aşağıdaki formülü kullanın ki; L4 hücresindeki IBAN'dan "TR" kısmını kaldırıldıktan sonra IBAN kontrolu yapılabilsin....

=IsFormatIBAN(SUBSTITUTE(L4;"TR";""))

Eğer Türkçe Excel kullanıyorsanız, SUBSTITUTE yerine Türkçe karşılığını kullanacaksınız...

.

 

[mc_exrem]

Allah razı olsun Sn. @Haluk ve @Korhan Ayhan hocam,

Kodun orijinalini kullanıpN4 ve aşağısına yazdığım =@IsFormatIBAN(L4) formülü ile doğru ve yanlış ibanları tespit edebiliyorum.
Hatta 1 adet ibanı bankadan kontrol ettim hatalı olduğunu da tespit etmiş oldum.

Sizden bir ricam da M sütununa banka isimlerini getirtmem için kod mevcut mudur acaba?

 

[Korhan Ayhan]

Arşiv konularını inceleyiniz.

Arama Sonuçları

 

[Haluk]

Eğer birisi ekli PDF dosyasını Excel'e düzgünce aktarırsa, internet erişimine gerek kalmadan bu iş (Iban No'dan Banka adını alma....) yapılabilir gibi görünüyor....

.

 

[Haluk]

Verileri PDF'den Excel'e aktardım..... müsait bir zamanda konuyu ele alacağım. Olumlu sonuç alrsam, haber veririm...

.

 

[Haluk]

@mc_exrem , dosyanız....

.

 

[mc_exrem]

Allah razı olsun Sn. @Haluk reis

ellerine sağlık. saygılar selamlar