İBAN kontrulü

[ŞAHİNce]

Ekli dosyamda, bir isim listem var. Bu isim listesinin üzerinde gezinerek,
aktif olan hücre bilgisini, C1 hücresine aktarmak ve bu hücre ile İBAN kontrulünü yapılmak istiyorum.

Mümkün müdür?

TEŞEKKÜRLER

 

[Huseyinkis]

Ekli dosyamda, bir isim listem var. Bu isim listesinin üzerinde gezinerek,
aktif olan hücre bilgisini, C1 hücresine aktarmak ve bu hücre ile İBAN kontrulünü yapılmak istiyorum.

Mümkün müdür?

TEŞEKKÜRLER

Ekteki dosyayı incelermisiniz.

 

[ŞAHİNce]

Teşekkür ederim.

Evet yapmak istediğim buydu.

İban konrolu D1 hücresinde bir formül ile yapılabilir mi?

 

[Huseyinkis]

Evet yapmak istediğim buydu.

İban konrolu D1 hücresinde bir formül ile yapılabilir mi?

iban kontrol formulu yazılı olan zaten d1 hücresine doğru veya yanlış olarak yazıyor. farklı bir formul istiyorsanız yapılabilir fakat iban no neye göre nasıl kontrol edilecek onu anlatabilirseniz.

 

[Explorer]

Merhaba,

Formülü biraz sadeleştirip aşağıdaki gibi bir kullanıcı tanımlı bir fonksiyon hazırladım. Ekteki dosyadaki gibi kullanabilirsiniz.

Function IBAN_CONTROL(ByVal IBAN) As Boolean
    Dim iban1, iban2
    
    If Not Len(IBAN) = 26 Then
        IBAN_CONTROL = False
        Exit Function
    End If
    
    iban1 = Right(IBAN, 22) & Left(IBAN, 4)
    
    For i = 1 To 26
        iban1 = Replace(iban1, Chr(64 + i), 9 + i)
    Next
    
    iban2 = Left(iban1, 4) Mod 97
    
    For i = 5 To 27 Step 2
        iban2 = Val(iban2 & Mid(iban1, i, 2)) Mod 97
    Next
    
    If iban2 = 1 Then
        IBAN_CONTROL = True
    Else
        IBAN_CONTROL = False
    End If
End Function

Kolay gelsin.

 

[assenucler]

Emek ve paylaşımlarınız için teşekkürler.