Macro o formula para invertir fecha

Tux escribió:

Tux escribió:

GR escribió:

Hola a todos:

Tengo un pequeño problema,importe unos datos pero la fecha me la
importo con el formato "aa/mm/dd", lo que necesito es invertir la
fecha con el siguiente formato "dd/mmmm/aaaa", las fechas se
encuentran en la columna c5 a la columna c3000

Les agradezco de antemano su atencion.

Reciban un cordial saludo

Hola GR :-)

A ver probaremos con este codigo para la columna C , bueno para el
rango C5:C3000:

Sub Aplicar_mi_Formato()

'dd/mmmm/aaaa equivale a estilo fecha ejem: 26/octubre/2006

Range("C5:C3000").NumberFormat = "dd/mmmm/yyyy"

End Sub

Nos comentas ok? :-)

Bien ya se que se puede hacer con la columna C eliminarla una vez que se
hace lo siguiente:

Coge la columna D y Una vez realizado lo anterior, selecciona boton
derecho copiar y boton derecho pegado especial en donde dice "Valores"
marca eso y aceptar. Ya puede eliminar la columna "C"

Bien tambien tiene la opcio desde el menú DAtos > Texto en columna,
Selecciona el rango y siga el asistente Que será mas rapido que todo
este rollo que hemos hecho :-)

Saludos
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

GR escribió:

Hola Monica

Faltaria invertir la fecha por que por ejemplo la tengo asi:
antes de correr la macro:
01/05/20
despues de correr la macro:
01/Mayo/2020
Deberia quedar asi:
20/Mayo/2001

Agradezco infinitamente su ayuda.

Saludos


"Tux" wrote:

GR escribió:

Tux gracias por responder, pero no me funciono la macro, por que primero hay
que invertir el formato, tuve un error y les pido disculpas por que no
importe sino exporte los datos de un programa llamado NOI a excel y en la
columna C5:c3000 me quedaron las fechas pero como texto y con formato
"aa/mm/dd" y yo necesito convertir a formato fecha "dd/mmmm/aaaa".

Les agradezco de antemano sus respuesta y de nuevo disculapas por no saberme
explicar.

Saludos


"Tux" wrote:

GR escribió:

Hola a todos:

Tengo un pequeño problema,importe unos datos pero la fecha me la importo con
el formato "aa/mm/dd", lo que necesito es invertir la fecha con el siguiente
formato "dd/mmmm/aaaa", las fechas se encuentran en la columna c5 a la
columna c3000

Les agradezco de antemano su atencion.

Reciban un cordial saludo

Hola GR :-)

A ver probaremos con este codigo para la columna C , bueno para el rango
C5:C3000:

Sub Aplicar_mi_Formato()

'dd/mmmm/aaaa equivale a estilo fecha ejem: 26/octubre/2006

Range("C5:C3000").NumberFormat = "dd/mmmm/yyyy"

End Sub

Nos comentas ok? :-)


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Hola GR :-)

Bien Pues vamos a hacer lo siguiente ok? :-)

Nuevo código, Primero inserte una fila al lado de la columna C osea
Inserte una Columna D y haga correr este codigo:

Sub Una_Prueba()

Range("D2").Select
ActiveCell.FormulaR1C1 = "ÚTEVALUE(RC[-1])"
Selection.AutoFill Destination:=Range("D2:D23"), _
Type:=xlFillDefault
Range("D1:D30").NumberFormat = "dd/mmmm/yyyy"

End Sub

Nos comenta ok? :-)

Saludos
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Vale GR! Gracias, ahora en cuanto venga de hacer unas cosas e intenrare
hacerlo todo con una macro a ver si asi podemos dejarlo bien lipmio todo
y acorde a sus necesidades ok? :-)

Saludos
Monica

¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Hola Monica, no entendi tu respuesta, la macro esta bien solo nos falta
invertir la fecha.
antes correr la macro
01/05/20
despues de correr la macro:
01/Mayo/2020
Solo faltaria corregir la macro para invertir la fecha y quedar así:
20/Mayo/2001

Aqui esta macro:
Sub Una_Prueba()

Range("D5").Select
ActiveCell.FormulaR1C1 = "ÚTEVALUE(RC[-1])"
Selection.AutoFill Destination:=Range("D5:D3000"), _
Type:=xlFillDefault
Range("D5:D3000").NumberFormat = "dd/mmmm/yyyy"

End Sub


Les agradezco sus respuestas

Saludos

GR escribió:

Hola Monica, no entendi tu respuesta, la macro esta bien solo nos falta
invertir la fecha.
antes correr la macro
01/05/20
despues de correr la macro:
01/Mayo/2020
Solo faltaria corregir la macro para invertir la fecha y quedar así:
20/Mayo/2001

Aqui esta macro:
Sub Una_Prueba()

Range("D5").Select
ActiveCell.FormulaR1C1 = "ÚTEVALUE(RC[-1])"
Selection.AutoFill Destination:=Range("D5:D3000"), _
Type:=xlFillDefault
Range("D5:D3000").NumberFormat = "dd/mmmm/yyyy"

End Sub


Les agradezco sus respuestas

Saludos

Hola ya toy aqui :-)

Vale pruebe con este codigo a ver si ahora si creo que si tenemos esa
inversion de fechas :-), esta hecha para la hoja 1 :

Sub Macro1()

With Hoja1

Range("C5:C3000").TextToColumns _
Destination:=Range("C5:C3000"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
Tab:=True, FieldInfo:=Array(1, 5), _
TrailingMinusNumbers:=True
Range("C5:C3000").NumberFormat = "dd/mmmm/yyyy"

Range("C5").Select

End With


End Sub

Este codigo hace la inversion de fechas y lo deja asi por ejem:
20/Mayo/2001 en lugar de 01/mayo/2020 osease pruebe a ver si ahora si ;-)

Saludos
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

Monica:

Ya quedo resuelto mi problema, gracias a la ultima macro que me pasastes, te
gradezco infinitamente.

Que tengas un buen dias

Saludos.

"Tux" wrote:

GR escribió:
> Hola Monica, no entendi tu respuesta, la macro esta bien solo nos falta
> invertir la fecha.
> antes correr la macro
> 01/05/20
> despues de correr la macro:
> 01/Mayo/2020
> Solo faltaria corregir la macro para invertir la fecha y quedar así:
> 20/Mayo/2001
>
> Aqui esta macro:
> Sub Una_Prueba()
>
> Range("D5").Select
> ActiveCell.FormulaR1C1 = "ÚTEVALUE(RC[-1])"
> Selection.AutoFill Destination:=Range("D5:D3000"), _
> Type:=xlFillDefault
> Range("D5:D3000").NumberFormat = "dd/mmmm/yyyy"
>
> End Sub
>
>
> Les agradezco sus respuestas
>
> Saludos
>

Hola ya toy aqui :-)

Vale pruebe con este codigo a ver si ahora si creo que si tenemos esa
inversion de fechas :-), esta hecha para la hoja 1 :

Sub Macro1()

With Hoja1

Range("C5:C3000").TextToColumns _
Destination:=Range("C5:C3000"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
Tab:=True, FieldInfo:=Array(1, 5), _
TrailingMinusNumbers:=True
Range("C5:C3000").NumberFormat = "dd/mmmm/yyyy"

Range("C5").Select

End With


End Sub

Este codigo hace la inversion de fechas y lo deja asi por ejem:
20/Mayo/2001 en lugar de 01/mayo/2020 osease pruebe a ver si ahora si ;-)

Saludos
Monica


¡Un SAludo!:-)

www.fermu.com
www.zorval.es