Foro Excel

Hola a todos de nuevo.

Despues de varios meses sin PC, de nuevo tengo una maquinilla para poder hacer cosas en el excel.

Bueno, mi pregunta es, mediante una macro se puede pasar el formato de fecha dd/mm/aaaa a este otro aaaammdd, necesito quitarle las barras, modificar el orden y convertirlo de fecha a numero o texto para poder usarlo como nombre de fichero.

No se si me he explicado, quisiera hacer lo siguiente:

De 20/03/2006 (formato fecha) pasarlo a aaaammdd (formato texto o numero)

Gracias anticipadas a todos.

Hola jero

prueba este codigo

Public Dato As String
Public Dia As String
Sub CambioFecha()
Dia = Format(Worksheets(1).Range("d29"), "yyyy/mm/dd;@")
Dato = Mid(Dia, 1, 4) & Mid(Dia, 6, 2) & Mid(Dia, 9)
End Sub

jimcov

jero

Me olvide poner que lee la fecha de la celda d29 hoja 1
y la almacena en la variable Dato

Jimcov

Hola chicos,

jimcov";p="22660 escribió:Public Dato As String
Public Dia As String
Sub CambioFecha()
Dia = Format(Worksheets(1).Range("d29"), "yyyy/mm/dd;@")
Dato = Mid(Dia, 1, 4) & Mid(Dia, 6, 2) & Mid(Dia, 9)
End Sub

Esto es aun mas facil:

Código: Seleccionar todo

Sub CambioFecha()
    Dato=Format(Worksheets(1).Range("d29"), "yyyymmdd")
End Sub

Gracias a los dos por vuestras respuestas, hoy ya es tarde y me voy a dormir, mañana probaréambos códigos.

Repito, gracias a los dos y un saludo

Hola.

Ayer no pude probar los códigos que me indicasteis, hoy si lo he hecho y funcionan a la perfeccion, aunque me quedo con el de KL ya que es mas corto y facil

De nuevo muchas gracias a los dos.