Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Marcos14

Validar DNI, CIF y NIE

Recommended Posts

Hola a todos,

Bueno te dejo dos funciones que calculan y devuelven el digito control de un NIF/NIE y del CIF. El digito control es el digito en ultima posición en todos los casos.

Con esto te lo puedes apañar para lo que necesites.

'--------------------------------------------------------------------------------------------
'Función que determina la letra del NIF/NIE
'--------------------------------------------------------------------------------------------
Function CodigoNIFNIE(ByVal DNI As String) As String
   Select Case Left$(DNI, 1)
      Case Is = "X"
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Replace(DNI, "X", "0")) Mod 23) + 1, 1)
      Case Is = "Y"
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Replace(DNI, "Y", "1")) Mod 23) + 1, 1)
      Case Is = "Z"
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Replace(DNI, "Z", "2")) Mod 23) + 1, 1)
      Case Else
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(DNI) Mod 23) + 1, 1)
   End Select
End Function

'--------------------------------------------------------------------------------------------
'Función que determina el dígito de control de un CIF
'--------------------------------------------------------------------------------------------
Function DigitoCIF(ByVal CIF As String) As String
   Dim A As Integer, B As Integer, C As Integer, i As Integer
   Dim temp As String
   Dim CIFDigito As String
   A = 0
   B = 0
   temp = Mid(CIF, 2, 7)   'Se obtienen los dígitos centrales
   CIFDigito = Right(CIF, 1)   'Dígito de control
   For i = 1 To 6 Step 2
      A = A + Mid(temp, i + 1, 1)   'Suma de posiciones pares
      C = 2 * Mid(temp, i, 1)     'Doble de posiciones impares
      B = B + (C Mod 10) + Int(C / 10)   'Suma de digitos de doble de pares
   Next i
   'Para obtener el cálculo de la cifra de la séptima posición que no se trata en el bucle
   B = B + ((2 * Mid(temp, 7, 1)) Mod 10) + Int((2 * Mid(temp, 7, 1)) / 10)
   'Se obtiene la unidad de la cifra total
   C = (10 - ((A + B) Mod 10)) Mod 10
   Dim Digito As String
   Dim Letras As Variant
   Letras = Array("J", "A", "B", "C", "D", "E", "F", "G", "H", "I")
   Select Case (Left(CIF, 1))
         'Los CIF que comienzan por estas letras deben terminar en una letra de la lista anterior
      Case "K", "P", "R", "Q", "S", "W"
         DigitoCIF = Letras(C)
         'Los CIF que comienzan por estas letras deben terminar en un dígito
      Case "A", "B", "E", "H", "J", "U", "V"
         DigitoCIF = C
         'Para el resto de CIF, la terminación puede ser un número o una letra
      Case Else
         If IsNumeric(CIFDigito) Then
            DigitoCIF = C
         Else
            DigitoCIF = Letras(C)
         End If
   End Select
End Function

 

Edited by ikanni

Share this post


Link to post
Share on other sites
Hace 16 horas, JSDJSD dijo:

Sube un ejemplo aunque sea manual explicando que tipo de validación quieres hacer.

@JSDJSD lo que desearía es que al introducir el DNI/CIF/NIE en un TEXTBOX, al apretar un COMMANDBUTTON pues me cambi el color de ese TEXTBOX a por ejemplo VERDE y eso querría decir que ese DNI/CIF/NIE, introducido es correcto.

@ikanni gracias por tu aporte lo probare 

Share this post


Link to post
Share on other sites
Hace 2 horas, Marcos14 dijo:

@JSDJSD lo que desearía es que al introducir el DNI/CIF/NIE en un TEXTBOX, al apretar un COMMANDBUTTON pues me cambi el color de ese TEXTBOX a por ejemplo VERDE y eso querría decir que ese DNI/CIF/NIE, introducido es correcto.

Prueba el adjunto y comenta. Te lo he dejado de manera que no tengas que hacer uso de un botón para comprobar si existe o no, simplemente introduce tu DNI,CIF o NIE y automáticamente se detectara si existe colocando de color verde el fondo del textbox.

Prueba1 consulta Marcos14.xlsm

Share this post


Link to post
Share on other sites
Hace 20 minutos , JSDJSD dijo:

Prueba el adjunto y comenta. Te lo he dejado de manera que no tengas que hacer uso de un botón para comprobar si existe o no, simplemente introduce tu DNI,CIF o NIE y automáticamente se detectara si existe colocando de color verde el fondo del textbox.

Prueba1 consulta Marcos14.xlsm 21 kB · 0 descargas

@JSDJSD Lo he probado con varios y por ejemplo con mi DNI,  si funciona pero con el resto que he probado no, de todas maneras muchisimas gracias por tu ayuda 

Share this post


Link to post
Share on other sites
Hace 1 minuto , JSDJSD dijo:

Que D.N.I. has probado que no te funcionan?

 

varios de la BBDD de clientes que tengo de la empresa y el de mi mujer también

 

Share this post


Link to post
Share on other sites

Lo único que se me ocurre es que tienes espacios en blanco al principio de esos DNI, te modifico el código y lo pruebas otra vez

 

Share this post


Link to post
Share on other sites
Hace 1 minuto , JSDJSD dijo:

Lo único que se me ocurre es que tienes espacios en blanco al principio de esos DNI, te modifico el código y lo pruebas otra vez

 

@JSDJSD no he hecho un copia y pega con los datos, los he puesto dígito a dígito 

Share this post


Link to post
Share on other sites
Hace 1 minuto , Antoni dijo:

Si no pones el nombre de la persona a quien pertenece, no veo la privacidad de los datos por ningún sitio.

@Antoni quizás para ti no lo sea, y lo acepto, aunque no lo comparto, pero para mi si lo es y con eso es suficiente, además creo que estoy siendo muy razonable y dando las explicaciones oportunas a @JSDJSD 

Share this post


Link to post
Share on other sites

Marcos14, simplemente es una observación desde el punto de vista del Maestro Antoni, no malinterpretemos las palabras. 

Has probado el nuevo adjunto ?

Share this post


Link to post
Share on other sites
Ahora mismo, JSDJSD dijo:

Marcos14, simplemente es una observación desde el punto de vista del Maestro Antoni, no malinterpretemos las palabras. 

Has probado el nuevo adjunto ?

@JSDJSD yo no malinterpreto nada pero el pensamiento y la forma de actuar de cada uno es tan valida como las de los demás yo acepto el comentario de @Antoni pero no lo comparto y él debería de hacer lo mismo conmigo

Share this post


Link to post
Share on other sites
Hace 6 minutos , JSDJSD dijo:

Marcos14, simplemente es una observación desde el punto de vista del Maestro Antoni, no malinterpretemos las palabras. 

Has probado el nuevo adjunto ?

¿Sabes cual es el problema JSDJSD?, que tu le estás dando una solución que no es la que quiere, lo que pasa es que no se ha enterado cual es la solución que tu le aportas, ya que la solución es la que ha aportado ikanni, o sea una función de validación del DNI, no una búsqueda en una columna.

Pero como no sube una archivo con el textbox, el botón y explicando que es lo que quiere tal como indican las normas del foro, el tema se está eternizando sin ninguna necesidad.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png