Convertir fecha en xx en 20xx

[lphant]

Buenos días;

Me acaba de surgir un problema en la macro que estoy haciendo y por mas que lo he dado vueltas no he conseguido solucionarlo, a ver quién me puede echar una mano.

Tengo varios datos que tengo que transformar en fecha los datos son como el siguiente " 18/04/13/ 0", primero reemplazo “/ 0” por nada y luego quito el espacio que tiene al principio, una vez realizado esos 2 pasos ya tiene el formato de fecha, si lo hago sin macro el Excel solo me pone “18/04/20132, pero si lo hago desde la macro se me queda así “18/04/13” y con el símbolo de error para que elija entre convertir en xx en 20xx o en xx en 19xx.

Como podría hacerlo con una macro??.

Muchas gracias.

Fechas.xls

[tese1969]

¿Por qué no adjuntas un archivo con el código de la macro que has creado?

Así podríamos ver por qué falla.

Un saludo,

Tese

[Antoni]

Hola:

Selecciona el rango de las fechas a convertir y ejecuta la macro ConvertirFechas:

Sub ConvertirFechas()

Dim Celda As Range

For Each Celda In Selection

   If IsDate(Celda.Value) = False Then Celda.Value = FechaConvertida(Celda.Value)

Next

End Sub



Private Function FechaConvertida(FechaSinConvertir As Variant) As Date

FechaConvertida = CDate(Format(Left(Trim(FechaSinConvertir), 8), "dd/mm/yyyy"))

End Function



[/CODE]

[lphant]

Buenas tardes;

Perdonar por no haber contestado antes, hoy ha sido un día de kaos.

Tese1969, ya no hace falta que suba lo que había hecho yo, el amigo Macro Antonio me acaba de dar la alegría del día, funciona perfecto, mejor imposible.

muchas gracias a los 2, un abrazooo.....