Macro formato fecha mm/dd/yyyy a dd/mm/yyyy

macdanmx · el 5 de febrero

Estimados,

Buen día. Un favor, estoy trabajando con una aplicación en la cual al exportar datos a formato Excel, me arroja las fechas con formato mm/dd/yyyy hh:mm AM/PMson muchos registros y quisiera que a través de una macro convertir los datos al formato dd/mm/yyyy hh:mm AM/PM, ya que de este último formato dependo para hacer otros cálculos.............

Ejemplo:

1/2/2013 8:22:44 AM - 02/01/2013 08:22:44 a.m.

Anexo dejo archivo con los datos.

Gracias.

CambiarFormatoFecha.rar

Armando Montes · el 5 de febrero

Hola, intenta con este formato personalizado:

[$-409]m/d/yyyy hh:mm AM/PM[/CODE]

macdanmx · el 5 de febrero

Armando,

Agradezco tu apoyo, el formato que me enviaste funciona bien en la mayoría de los casos, únicamente tuve que hacer unos pequeños cambios.

Formato propuesto

[$-409]m/d/yyyy hh:mm AM/PM

Formato con la modificación "m" "aaaa"

[$-409]mm/dd/aaaa hh:mm AM/PM

Pero lo raro es que en algunas celdas, no lo respeta. Otro detalle que me encontré es que, cuando aplico el formato, tengo que oprimir "F2" en cada celda como para editarla y entonces, aparece bien. Imagínate esto con unos cuantos miles de registros. el archivo es solo una muestra.

Como quiera te comparto el archivo, me gustaría que vieras la hoja 1 y la macro que tengo, para ver de que otro manera puedo agilizar el eliminado de filas vacías.

Seguimos al pendiente... 8)

CambiarFormatoFecha_v2.rar

Armando Montes · el 6 de febrero

Hola, esto elimina las vacias:

Sub Blanks()

Application.ScreenUpdating = False

Hoja1.UsedRange.UnMerge

LR = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:A" & LR).AutoFilter Field:=1, Criteria1:="="

Range("A2:A" & LR).SpecialCells(xlCellTypeVisible).EntireRow.Delete

ActiveSheet.AutoFilterMode = False

Application.ScreenUpdating = True

End Sub

[/CODE]

Lo del formato de momento no se como, vere si se me ocurre algo.

Armando Montes · el 6 de febrero

Esto cambia el formato de fechas:

Sub Fechas()

With Selection

.Value = Evaluate(.Address & "*" & 1)

.NumberFormat = "[$-409]mm/dd/yyyy hh:mm AM/PM"

End With

End Sub

[/CODE]

Modifica el formato a tu configuracion regional.

macdanmx · el 7 de febrero

Armando,

Referente a lo de las filas vacías, al correr la macro me salen un mensaje (ver adjunto), tal vez se deba a la cantidad de filas que tengo en el archivo origen. Hice pruebas con pocas filas y si funciona. Como una solución temporal, salve el archivo como .csv y después ordene....... tratare de mandarte el archivo con menos columnas, por que es muy pesado.

Referente a la formato de las fechas, parece que si funciona, sigo haciendo pruebas. Dame oportunidad y te confirmo.

Seguimos al pendiente.

Armando Montes · el 8 de febrero

Una forma rapida es:

1. Seleccionar la columna A

2. Presionar G5, Especial, Celdas vacias

3. Eliminar fila completa

Si usas la grabadora obtendras la macro

Armando Montes · el 8 de febrero

Al final, ya depurado, quedara algo asi:

Sub Vacias()

    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

[/CODE]

macdanmx · el 11 de febrero

Armando,

Gracias por el tip, hago pruebas y te aviso. Anexo te envío el archivo en donde podrás ver tres columnas con las fechas en la que quiero cambiar el formato, no sé que estoy haciendo mal con la macro que me mandaste, como que en ocasiones si me cambia el formato y en otros no, podrías darle una revisada.

Gracias.

FormatoFecha_macdanmx.rar