Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Validación de NIE español

publicado

Hola a todos.

Tengo una hoja excel en la que desgloso si un documento es NIF, CIF o NIE en base a una macro obtenida en este foro. 

Todo bien hasta que encuentro casos en los que el resultado no es lógico y no logro comprender porqué.

Los casos son NIE que están confirmados en la web del ministerio como válidos pero la macro no las reporta como válidos. El caso es más curioso porque si ponemos la última letra del NIE en minúscula, sí lo valida si la letra inicial está en mayúsculas. En caso de estar también en minúsculas las dos letras, la letra de control indica que es otra totalmente diferente.

En el siguiente ejemplo se muestran dos casos  de NIE válidos, escrito de las tres formas y la letra que la macro asume que debe tener en cadas caso. En caso de ser NIE, muestra que es NIE y colorea de verde la fila.

image.png.78ab7e6999b4862fee6f99c61a5a4b9d.png

Adjunto ejemplo para su visualización y aporte de solución. Gracias.

Prueba NIE.xlsm

Featured Replies

publicado
  • Autor

Ya me respondo yo mismo:

El código vba que tenía al principio era el siguiente, sirve para hallar la letra de un DNI, y yo, en las celdas de análisis comprobaba que tipo de DNI es en función de su composición. 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

Me dí cuenta que el problema aparece en los NIE que comienzan y terminan con la misma letra, X, Y , Z, y este código no sólo sustituía la letra inicial sino que también sustituía el dígito de control final. Realicé la siguiente modificación al código  para quien le pueda interesar:

Function CodigoNIFNIE(ByVal DNI As String) As String
   Select Case Left$(DNI, 1)
      Case Is = "X", "x"
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val("0" & Mid$(DNI, 2)) Mod 23) + 1, 1)
      Case Is = "Y", "y"
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val("1" & Mid$(DNI, 2)) Mod 23) + 1, 1)
      Case Is = "Z", "z"
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val("2" & Mid$(DNI, 2)) Mod 23) + 1, 1)
      Case Else
         CodigoNIFNIE = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(DNI) Mod 23) + 1, 1)
   End Select
End Function

En ella no sustituyo la letra, sino que unifico el número que le corresponde a la letra inicial con el resto del DNI para hallar el dígito de control correcto.

Ahora si funciona correctamente para NIF y NIE, e incluso teniendo las letras en minúsculas.

Saludos.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.