Publicar DNI de modo alternativo
Con arreglo a la ley, hay que publicar los DNI de modo alternativo. Tengo una columna DE dedicada los DNI de un montón de candidatos. Está con 8 dígitos (pongamos también con letra, sería el NIF)... Para que es esa columna, de cada candidato, publique alternativamente sus números, qué fórmula para esa columna debería redactar. El ejemplo sería así,
Nombre Columna D
Manolo 78564321
Pepe 12345678
María 45678934
y debería verse, por Ley, tras la fórmula así,
Nombre Columna D
Manolo 78***4***
Pepe ***456***
María 4***8*34
Por ejemplo.
1 respuesta
Con fórmulas no creo que se pueda hacer, pero usando una función VBA sí es posible:
Public Function OcultarDNI(sDNI As String) Dim n As Byte, bAsteriscos As Byte bAsteriscos = 4 'número de asteriscos a devolver While Len(Replace(sDNI, "*", "")) > Len(sDNI) - bAsteriscos For n = 1 To Len(sDNI) If Len(Replace(sDNI, "*", "")) > Len(sDNI) - bAsteriscos Then If Rnd < 0.5 Then Mid(sDNI, n, 1) = "*" Next n Wend OcultarDNI = sDNI End Function
La sintaxis para llamar a la función es: =OcultarDNI(CELDA ó CADENA)
La cantidad de asteriscos a poner se establece en la 3ª línea.
En principio la función no debería ser invocada cuando Excel hace un recálculo, pero para más seguridad lo mejor es copiar las celdas cuando ya están puestos los asteriscos y hacer un pegado especial sólo de los valores.
Saludos_
amigo jrgces,
MUCHAS GRACIAS.
Pero como una es "torpe"... por favor, si me puede vd. explicar como se lleva a cabo esa función VBA le quedaría muy agracedido.
Gracias,
Noelia
1) ALT F11 para entrar en el editor de VBA
2) Insertar->Módulo
3) Pegar en la ventana más grande el código
Si el libro no estaba guardado como xlsm habrá que hacerlo así casi con toda seguridad, aunque esto depende de la versión de Excel.
Saludos_
