Soru İBAN No Kontrol..

[bulentkars]

Arkadaşlar Merhaba,

Sitede IBAN no kontrolu için aşağıdaki kodu buldum, kod güzel yapanın eline sağlık, ben kodu bu şekilde değiştirmek istiyorum mümkün mü acaba, Mevcut kod formül ile çalışmaktadır. =IsFormatIBAN(A2) ben aktif sayfasında D sutun satırlarına İBAN NO giriyorum, girilen iban hatalıysa msgboxta uyarı versin istiyorum, yardımcı olabilirseniz sevinirim.

İyi Çalışmalar.

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

 

[Haluk]

O fonksiyon bir modülde dursun, siz sayfa modlüne aşağıdakini girin;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("D2:D20"), Target) Is Nothing Then
        If IsFormatIBAN(Target) = False Then MsgBox "Hatalı IBAN"
    End If
End Sub

Not: Bu arada kullandığınız fonksiyon Rick Rothstein tarafından 04/12/2011 tarihinde hazırlanmıştır.

.

 

[bulentkars]

Haluk Bey
Çok Teşekkür ederim. Elinize sağlık..