Fecha formato americano al europeo

OK

Muchas gracias de antemano

"KL" wrote:

Alvaro,

Creo q hara falta un macro aqui. No tengo una solucion hecha para este caso
y hora no tengo tiempo - estoy viajando, pero te lo escribire el Sabado, si
no se adelantan los companeros del foro, por ejemplo Fernando Arroyo o
Hector Miguel.

Saludos,
KL

"Alvaro" wrote in message
news:
> Si, como comente los datos los pego desde el editor de notas (osea sin
> formato), y cuando le doy a pegado especial solo me deja dos opciones...
> como
> texto unicode o como texto... y en ninguno de los dos casos me lo
> convierte...
>
> alguna pista?
>
> Gracias de nuevo por la pronta contestacion
>
> "Daniel V" escribio:
>
>> No probaste con Pegado Especial - Valores, esa te mantiene el formato
>> original de la celda en la que vas a poner los datos.
>>
>> Daniel
>>
>> "Alvaro" escribio en el mensaje
>> news:
>> > Hola y gracias por la respuesta, pero creo que no me explique bien...
>> > anteriormente lo habia comentado... tengo una hoja en la que pego a
>> > diario
>> > datos, y las fechas que pego estan en formato mm/dd/aaaa. Actualmente
>> > lo
>> que
>> > hago es meter una formula en otra columna y guardar ahi la fecha en
>> > dd/mm/aaaa
>> > "þCHANUMERO(EXTRAE(C2;4;2)&"/"&IZQUIERDA(C2;2)&"/"&DERECHA(C2;4))".
>> > Lo
>> que
>> > me gustaria conseguir es ahorrarme esa otra columna y que cuando pegue
>> > en
>> la
>> > otra los datos la fecha se convierta automaticamente... no se si con el
>> > formato de la celda se puede hacer o no. He probado a ponerle formato
>> > personalizado "dd/mm/aaaa" a las celdas en cuestion, pero cuando pego
>> > los
>> > datos no me los transforma... me deja las fechas que en europeo son
>> > incorrectas como texto (x ej. 12/30/2004) y las que -por casualidad-
>> > son
>> > correctas (coincide que el mes/dia en formato americano puede ser una
>> fecha
>> > en el europeo).
>> >
>> > Gracias de nuevo :)
>>
>>
>>

Alvaro,

1. Copia el codigo de abajo a cualquier modulo en el Editor VBA.
2. Selecciona el rango q contiene las fechas a convertir.
3. Pulsa Alt+F8 (o ve al menu Herremientas>Macro>Macros), selecciona
"ConvertirFechas" y pulsa el botton Aceptar. Tambien podrias asignar este
macro a un boton.

Espero q te se de ayuda.
Saludos,
KL

Sub ConvertirFechas()
For Each c In Selection
If c.Text Like "*#/*#/####" Then
With WorksheetFunction
dt = c.Text
m = Left(dt, .Find("/", dt))
y = Right(dt, 4)
d = Mid(dt, Len(m) + 1, Len(dt) - Len(m) - Len(y))
myStr = d & m & y
c.Value = DateValue(myStr)
End With
End If
Next c
End Sub


"Alvaro" wrote in message
news:

OK

Muchas gracias de antemano

"KL" wrote:

Alvaro,

Creo q hara falta un macro aqui. No tengo una solucion hecha para este
caso
y hora no tengo tiempo - estoy viajando, pero te lo escribire el Sabado,
si
no se adelantan los companeros del foro, por ejemplo Fernando Arroyo o
Hector Miguel.

Saludos,
KL

"Alvaro" wrote in message
news:
> Si, como comente los datos los pego desde el editor de notas (osea sin
> formato), y cuando le doy a pegado especial solo me deja dos
> opciones...
> como
> texto unicode o como texto... y en ninguno de los dos casos me lo
> convierte...
>
> alguna pista?
>
> Gracias de nuevo por la pronta contestacion
>
> "Daniel V" escribio:
>
>> No probaste con Pegado Especial - Valores, esa te mantiene el formato
>> original de la celda en la que vas a poner los datos.
>>
>> Daniel
>>
>> "Alvaro" escribio en el mensaje
>> news:
>> > Hola y gracias por la respuesta, pero creo que no me explique
>> > bien...
>> > anteriormente lo habia comentado... tengo una hoja en la que pego a
>> > diario
>> > datos, y las fechas que pego estan en formato mm/dd/aaaa.
>> > Actualmente
>> > lo
>> que
>> > hago es meter una formula en otra columna y guardar ahi la fecha en
>> > dd/mm/aaaa
>> > "þCHANUMERO(EXTRAE(C2;4;2)&"/"&IZQUIERDA(C2;2)&"/"&DERECHA(C2;4))".
>> > Lo
>> que
>> > me gustaria conseguir es ahorrarme esa otra columna y que cuando
>> > pegue
>> > en
>> la
>> > otra los datos la fecha se convierta automaticamente... no se si con
>> > el
>> > formato de la celda se puede hacer o no. He probado a ponerle
>> > formato
>> > personalizado "dd/mm/aaaa" a las celdas en cuestion, pero cuando
>> > pego
>> > los
>> > datos no me los transforma... me deja las fechas que en europeo son
>> > incorrectas como texto (x ej. 12/30/2004) y las que -por casualidad-
>> > son
>> > correctas (coincide que el mes/dia en formato americano puede ser
>> > una
>> fecha
>> > en el europeo).
>> >
>> > Gracias de nuevo :)
>>
>>
>>