Macro para formato fecha
Tengo una casilla en la que pone
días 01/11/2003
Quiero passarla a formato fecha con una macro (para después poder utilizar las funciones día, mes, etc). Como tiene la palabra "dias" no la puedo poner en ese formato y las funciones fecha no funcionan. He hecho una macro que quita la palabra "días"
For i = 4 To 30000
Cells(i, 1).Value = Mid(Cells(i, 1).Value, 6)
Next i
Lo que hace el bucle es escribir en cada celda lo que había menos los cinco primeros caracteres. El problema es que entonces me aparece en formato fecha, pero el ordenador cambia el orden y pone siempre el numero más grande (entre el numero de mes y el de día) primero. Es decir, 1/11/2003 pasa a ser el 11-1-2003, y ya no puedo utilizar las funciones fecha porque el mes y el día están mal. Gracias!
días 01/11/2003
Quiero passarla a formato fecha con una macro (para después poder utilizar las funciones día, mes, etc). Como tiene la palabra "dias" no la puedo poner en ese formato y las funciones fecha no funcionan. He hecho una macro que quita la palabra "días"
For i = 4 To 30000
Cells(i, 1).Value = Mid(Cells(i, 1).Value, 6)
Next i
Lo que hace el bucle es escribir en cada celda lo que había menos los cinco primeros caracteres. El problema es que entonces me aparece en formato fecha, pero el ordenador cambia el orden y pone siempre el numero más grande (entre el numero de mes y el de día) primero. Es decir, 1/11/2003 pasa a ser el 11-1-2003, y ya no puedo utilizar las funciones fecha porque el mes y el día están mal. Gracias!
1 Respuesta
Respuesta de agca73
1
Creo que una opción puede ser el utilizar una función en lugar de una macro.
Inserta una columna al lado de donde tienes estos datos y en ella escribe la siguiente función:
=DERECHA(A1,10)
Como resultado te arroja únicemente la fecha 01/11/2003. A este resultado le apliqué las funciones, MES, DÍA y AÑO y me arrojó los resultados esperados.
Si necesitas forzosamente utilizar una macro, por que no intentas con las funciones Left y Left$.
Inserta una columna al lado de donde tienes estos datos y en ella escribe la siguiente función:
=DERECHA(A1,10)
Como resultado te arroja únicemente la fecha 01/11/2003. A este resultado le apliqué las funciones, MES, DÍA y AÑO y me arrojó los resultados esperados.
Si necesitas forzosamente utilizar una macro, por que no intentas con las funciones Left y Left$.
