Macro o formula para invertir fecha

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

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

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

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? :-)

Perdon :-)

Osease este:(es el mismo, pero con los rangos exactos)

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

Lo unico que no se que haremos con la columna C :-S


¡Un SAludo!:-)

www.fermu.com
www.zorval.es

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