Tengo un fichero .dmp en donde vienen todas las fechas de un mes, por ejemplo:
01/12/2017
02/12/2017
03/12/2017
...
Cuando ejecuto el programa excel VBA para ponerlas en celdas, las transforma en:
12/01/2017
12/02/2017
...
Hasta el dia 13 que, al no haber mes 13, pues no lo cambia. Este es mi código y ya no se que hacer:
Cells(1, 1).Select
If Cells(1, 1) <> "" Then
Rows("4:4").Select
selection.Copy
Rows("1:1").Select
ActiveSheet.Paste
Else
Rows("1:1").Select
selection.Delete Shift:=xlUp
Rows("4:4").Select
selection.Copy
Rows("1:1").Select
ActiveSheet.Paste
End If
Range("A3").Select
Application.CutCopyMode = False
Rows("3:3").Select
selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Tini = Range("C3") & " " & Range("D3")
Tfin = Range("F3") & " " & Range("G3")
Rows("3:4").Select
selection.ClearContents
Cells(3, 1).Value = Tini
Cells(4, 1).Value = Tfin
Range("A3:A4").Select
selection.NumberFormat = "dd/mmm/yy hh:mm:ss"
Gracias
Tini
yTfin
? ¿Cómo las tienes definidas? Concatenas valores en ambos casos, incluyendo un espacio en blanco (por ejemplo,Range("C3") & " " & Range("D3")
) y los pones en A3 y A4. Y luego quieres pasarlos a fechas? Necesitamos más datos y ejemplos o será difícil ayudarte