Como cambiar formato de fecha en office 2007
Hola
Tengo office 2007 y me envían archivos en donde las columnas de fechas están
con el formato mes -día-año
ejemplo : 12-23-2009 (columna a2), 12-29-2009 (columna b2), tengo una fórmula
con una resta =a2-b2, me entrega un error #valor hasta que cambio el formato de fecha
día-mes-año, la fórmula me entrega el valor real
quiero cambiarlo a día- mes-año con una macro
podrían ayudarme por favor
los archivos que me envían son un poco grandes de hasta 800 a 1000 filas
lo he hecho uno por uno con filtros, y es una rutina de siempre
por eso necesito una macro pero no he logrado hacerla
la pregunta en sí es :
Como cambiar el formato de fecha a toda la columna,
y como hacerlo con una macro
gracias por su atención ayuda
Tengo office 2007 y me envían archivos en donde las columnas de fechas están
con el formato mes -día-año
ejemplo : 12-23-2009 (columna a2), 12-29-2009 (columna b2), tengo una fórmula
con una resta =a2-b2, me entrega un error #valor hasta que cambio el formato de fecha
día-mes-año, la fórmula me entrega el valor real
quiero cambiarlo a día- mes-año con una macro
podrían ayudarme por favor
los archivos que me envían son un poco grandes de hasta 800 a 1000 filas
lo he hecho uno por uno con filtros, y es una rutina de siempre
por eso necesito una macro pero no he logrado hacerla
la pregunta en sí es :
Como cambiar el formato de fecha a toda la columna,
y como hacerlo con una macro
gracias por su atención ayuda
1 Respuesta
Respuesta de Elsa Matilde
1
Este rutina te servirá. Está desarrollada para correr en col A hasta encontrar 1 fila vacía.
Entrá al Editor, insertá un módulo y allí copiá lo siguiente:
Sub formateo()
'para col A
Range("A2").Select
While ActiveCell.Value <> ""
'ajustar el formato deseado
ActiveCell = CDate(Format(ActiveCell, "dd/mm/yyyy"))
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Sdos. Si todo quedó claro y solucionado, no olvides finalizar la consulta.
Elsa
http://aplicaexcel.galeon.com/manuales.htm
Entrá al Editor, insertá un módulo y allí copiá lo siguiente:
Sub formateo()
'para col A
Range("A2").Select
While ActiveCell.Value <> ""
'ajustar el formato deseado
ActiveCell = CDate(Format(ActiveCell, "dd/mm/yyyy"))
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Sdos. Si todo quedó claro y solucionado, no olvides finalizar la consulta.
Elsa
http://aplicaexcel.galeon.com/manuales.htm
