Buenas tardes,

Necesitaba , por favor, una fórmula que me dijera sí el IBAN que me proporciona un cliente es correcto o no. Tengo  que hacer cargas masivas de números de cuenta corriente y muchas veces me encuentro que al subir el IBAN este es incorrecto y me gustaría hacer un chequeo previo para que ya no hubiera errores.

 

Muchas gracias

Esta UDF devuelve VERADERO/FALSO en función de si el código IBAN es correcto o no:

Function ValidarIBAN(ByVal codigoIBAN As String) As Boolean
    Dim codigo As String
    Dim codigoValidado As String
    Dim codigoNumerico As String
    Dim codigoVerificacion As String
    Dim codigoPais As String
    Dim resto As Long
    
    ' Eliminar espacios en blanco y convertir a mayúsculas
    codigo = UCase(Replace(codigoIBAN, " ", ""))
    
    ' Verificar longitud mínima del código IBAN
    If Len(codigo) < 2 Then
        ValidarIBAN = False
        Exit Function
    End If
    
    ' Obtener código de país y código de verificación
    codigoPais = Left(codigo, 2)
    codigoVerificacion = Mid(codigo, 3, 2)
    
    ' Obtener parte numérica del código IBAN
    codigoNumerico = Mid(codigo, 5)
    
    ' Reordenar código IBAN
    codigoValidado = codigoNumerico & codigoPais & codigoVerificacion
    
    ' Convertir letras a números
    For i = 1 To Len(codigoValidado)
        If Asc(Mid(codigoValidado, i, 1)) >= 65 And Asc(Mid(codigoValidado, i, 1)) <= 90 Then
            codigoValidado = Left(codigoValidado, i - 1) & (Asc(Mid(codigoValidado, i, 1)) - 55) & Mid(codigoValidado, i + 1)
        End If
    Next i
    
    ' Calcular resto de la división
    resto = 0
    
    For i = 1 To Len(codigoValidado)
        resto = (resto * 10 + CInt(Mid(codigoValidado, i, 1))) Mod 97
    Next i
    
    ' Verificar si el resto es 1 (código IBAN válido)
    ValidarIBAN = (resto = 1)
End Function

UDF obtenida con el ChatGPT.

Si quieres un ejemplo de como usarla, sube un archivo con datos para poder probar.

En 24/6/2023 at 19:00 , Antoni dijo:

Esta UDF devuelve VERADERO/FALSO en función de si el código IBAN es correcto o no:

Function ValidarIBAN(ByVal codigoIBAN As String) As Boolean
    Dim codigo As String
    Dim codigoValidado As String
    Dim codigoNumerico As String
    Dim codigoVerificacion As String
    Dim codigoPais As String
    Dim resto As Long
    
    ' Eliminar espacios en blanco y convertir a mayúsculas
    codigo = UCase(Replace(codigoIBAN, " ", ""))
    
    ' Verificar longitud mínima del código IBAN
    If Len(codigo) < 2 Then
        ValidarIBAN = False
        Exit Function
    End If
    
    ' Obtener código de país y código de verificación
    codigoPais = Left(codigo, 2)
    codigoVerificacion = Mid(codigo, 3, 2)
    
    ' Obtener parte numérica del código IBAN
    codigoNumerico = Mid(codigo, 5)
    
    ' Reordenar código IBAN
    codigoValidado = codigoNumerico & codigoPais & codigoVerificacion
    
    ' Convertir letras a números
    For i = 1 To Len(codigoValidado)
        If Asc(Mid(codigoValidado, i, 1)) >= 65 And Asc(Mid(codigoValidado, i, 1)) <= 90 Then
            codigoValidado = Left(codigoValidado, i - 1) & (Asc(Mid(codigoValidado, i, 1)) - 55) & Mid(codigoValidado, i + 1)
        End If
    Next i
    
    ' Calcular resto de la división
    resto = 0
    
    For i = 1 To Len(codigoValidado)
        resto = (resto * 10 + CInt(Mid(codigoValidado, i, 1))) Mod 97
    Next i
    
    ' Verificar si el resto es 1 (código IBAN válido)
    ValidarIBAN = (resto = 1)
End Function

UDF obtenida con el ChatGPT.

Si quieres un ejemplo de como usarla, sube un archivo con datos para poder probar.

Muchas gracias Antoni, la probaré y te informaré del resultado.

Buenas tardes Antoni,

 

No soy capaz de utilizar tu UDF. Subo un libro con algunos IBAN para verificar y probarla.

 

Me podrías ayudar, por favor.

 

Gracias. 

verificar udf.xlsx

Revisa las fórmulas de la columna B del adjunto.

verificar udf.xlsm

Funciona perfectamente, muchísimas gracias.