[SOLUCIONADO] formato de fecha

[maialenlopez]

Hola,

Llevo un rato intentandolo y no se si es lo mas simple que hay pero no consigo darle formato a un fecha desde una macro de excel.
Mediante query la fecha me llega de esta forma "2014-05-07 15:42:05.170000000"
y yo quiero que dentro de la macro se formatee y quede de esta otra "2014-05-07 15:42:05".
No se como hacerlo, no lo veo.

¿alguien me puede ayudar?

[maialenlopez]

Haciendo lo siguiente he conseguido conseguido que me lo acorte a esto "2014-05-07 15:42:05"

Código VBA:

fecha = Left(Sheets("Sheet1").Cells(contadorFilas, 1).Value, 19)
Sheets("Sheet1").Cells(contadorFilas, 1).Value = fecha
 

Pero, a la hora de escribirlo en la excel me lo escribe así "07/05/2014 15:42", si me coloco encima de la columna el valor que aparece es el siguiente "07/05/2014 15:42:05" y si una vez escrito cojo y le dos a formatcells y elijo lo siguiente "aaaa-mm-dd hh:mm:ss" me lo escribe correctamente. Lo que yo quiero es que esto que hago yo a mano de formatCells me lo haga la macro y me lo escriba correctamente.

[Triby]

Puedes aplicar el formato deseado celda por celda o a un rango, ejemplo:

Código VBA:

' A un rango
Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd hh:mm:ss"
 
' A una celda
Sheet1.Cells(contadorFilas, 1).NumberFormat = "yyyy-mm-dd hh:mm:ss"
 
' Después asignas el valor y aparecerá ya con el formato aplicado
Sheets("Sheet1").Cells(contadorFilas, 1).Value = fecha
 

[maialenlopez]

Iniciado por Triby

Puedes aplicar el formato deseado celda por celda o a un rango, ejemplo:

Código VBA:

' A un rango
Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd hh:mm:ss"
 
' A una celda
Sheet1.Cells(contadorFilas, 1).NumberFormat = "yyyy-mm-dd hh:mm:ss"
 
' Después asignas el valor y aparecerá ya con el formato aplicado
Sheets("Sheet1").Cells(contadorFilas, 1).Value = fecha
 

Muchas gracias,

Así perfecto, tal y como yo quiero..