Contenido celda texto a fecha con macro
Hola.
Tengo un hoja que contiene fechas bajadas desde un sistema ERP. Resulta que el informe me arroja las fechas al parecer como texto separadas por "/ " .Lo que tengo que hacer es siempre es un pegado especial multiplicado por 1. Y que si que me resulta(dejándolo como quiero en este formato(01-01-1900). Sin embargo intente hacerlo con una macrograbación y sólo me cambio los formatos de fecha para los días menores a 12 y me cambia el orden pasando los días a meses y los meses a días y para los números mayores a 12 me deja el formato original. No entiendo si lo hago de forma manual resulta, pero si lo ejecuto con la macro no. (adjunto las imágenes)
Sub formatofecha()
Sheets("hoja1").Select
Range("L1").Select
ActiveCell.FormulaR1C1 = "1"
Range("L1").Select
Selection.Copy
Range("F2:F25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yyyy;@"
End Sub
2 Respuestas
Gracias. Bajo las condiciones que les plantie si funciona la macro. Sin embargo me tope con este problema, por lo que la macro se cae al llegar a esa celda. ¿Esta vacía pero con formato de / . Se podrá hacer algo con eso?
Cambia la macro por esta
Sub formatofecha()
'Por.Dante Amor
Dim fec As Date
For Each c In Range("F2:F25")
If IsDate(c) Then
fec = c
c.Value = fec
End If
Next
Range("F2:F25").NumberFormat = "dd/mm/yyyy;@"
End Sub
Gracias. Bajo las condiciones que les plantie si funciona la macro. Sin embargo me tope con este problema, por lo que la macro se cae al llegar a esa celda. ¿Esta vacía pero con formato de / . Se podrá hacer algo con eso?
Lo que te pasé (aquí te lo reitero):
Sub Texto_a_Fecha()
Range("f2:f25").TextToColumns Destination:=Range("f2"), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlDMYFormat)
End Subno genera ningún tipo de error.
En todo caso, deberías decidir tú que hacer con eso...