Formato de DNI
En Una Columna tengo DNI con diferentes formatos,¿Cuál es la Formula para que el DNI aparezca en otra columna con el siguiente formato;ceros a la derecha y letra al final sin espacio ni guiones?
{"Lat":37.6030751166943,"Lng":-3.681640625}
1 respuesta
¿No sería mejor los ceros a la izquierda para completar los 9 dígitos de tope que tiene un dni?
Si, tienes razón, quería decir a la izquierda.
Gracias
Te mando la solución: Posiciónate encima del primer dni y ejecuta esta macro:
Sub dnis() Do While ActiveCell.Value <> "" largo = Len(ActiveCell) If largo <> 9 Then ceros = 9 - largo ActiveCell.Offset(0, 1).Value = String(ceros, "0") & ActiveCell.Value Else ActiveCell.Offset(0, 1).Value = ActiveCell.Value End If ActiveCell.Offset(1, 0).Select Loop End Sub
recuerda finalizar y puntuar
Gracias por contestar tan rápido.
La solución que me propones es una macro y yo no las domino, por eso prefería una fórmula.
Al ejecutar la macro algo hago mal porque me aparece una ventana que dice "se ha producido el error 5 en tiempo de ejecución /argumento o llamada a procedimiento no válida.
Un saludo
La macro funciona perfectamente. Puedes mandarme un ejemplo de los dnis (aunque sean inventados) y te lo mando construido y funcionando.
Hola,
Los DNIS podrían ser;
1178993L
78936-L
80043 C
Lo que pretendo es que se complete con ceros y la letra quede sin espacios ni guiones
Gracias
Pues esta es tu solución: Posiciónate encima del primer dni y ejecuta esta macro:
Sub dnis() Do While ActiveCell.Value <> "" ActiveCell.Value = Application.WorksheetFunction.Trim(ActiveCell) ActiveCell.Value = Replace(ActiveCell, "-", "") ActiveCell.Value = Replace(ActiveCell, " ", "") largo = Len(ActiveCell) If largo <> 9 Then ceros = 9 - largo ActiveCell.Offset(0, 1).Value = String(ceros, "0") & ActiveCell.Value Else ActiveCell.Offset(0, 1).Value = ActiveCell.Value End If ActiveCell.Offset(1, 0).Select Loop End Sub
recuerda finalizar la consulta
