DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
' 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
=IsFormatIBAN(SUBSTITUTE(L4;"TR";""))