Hola a todos, quisiera saber si es posible, mediante macro, validar DNI, CIF y NIE y esa validación me la ponga en un textbox.

De ante mano muchas gracias

Sube tu archivo y  pon un ejemplo

 

@JSDJSD no hay archivo de momento porque aún no he creado nada es para saber cómo sería si se pudiera

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

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

 

Editado el el 22 de febrero5 años por ikanni

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 

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

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 

Sube el archivo y te lo miro

Hace 2 minutos , JSDJSD dijo:

Sube el archivo y te lo miro

es el archivo que tu me has pasado @JSDJSD hay he probado

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

 

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

 

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

 

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 

puedes pasarme uno de ellos para probarlo yo

 

Hace 1 minuto , JSDJSD dijo:

puedes pasarme uno de ellos para probarlo yo

 

Por aquí no, comprenderás que son datos privados si quieres por correo si

Bueno, prueba el adjunto y si no te funciona lo manadas por correo

Prueba2 consulta Marcos14.xlsm

Hace 2 minutos , Marcos14 dijo:

Por aquí no, comprenderás que son datos privados si quieres por correo si

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

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 

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

Has probado el nuevo adjunto ?

36907753K, 37640400A, son DNI válidos obtenidos con la función aportada por ikanni ¿Donde está la privacidad de estos DNI si no identifican a nadie?

Hace 9 minutos , JSDJSD dijo:

Bueno, prueba el adjunto y si no te funciona lo manadas por correo

Prueba2 consulta Marcos14.xlsm 21 kB · 0 descargas

@JSDJSD Ahora ni el mio coge 

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

Marcos  te he mandado un mensaje con mi correo, pasame esos DNI que no te funcionan y los compruebo

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.

Hace 1 minuto , Antoni dijo:

¿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.

@Antoni no voy a entrar a tu juego.

Gracias @JSDJSD por toda tu ayuda desinteresada te agradezco muchísimo toda tu ayuda, por mi doy por finalizado el tema