Macro o formula para invertir fecha

Hola chicos,

Probad lo siguiente:

- seleccionar el rango con las fechas en formato "aammdd"
- menu 'Datos>Texto en columnas...'
- 1a pantalla: pulsar el boton 'Siguiente'
- 2a pantalla: pulsar el boton 'Siguiente'
- 3a pantalla: marcar la opcion 'Fecha' y en el desplegable elegir 'AMD'
- pulsar el boton 'Finalizar'

Lo mismo en VBA:

Sub Test()
[A1:A100].TextToColumns _
DataType:=xlDelimited, _
FieldInfo:=Array(1, 5)
End Sub

Saludos,
KL


"Tux" wrote in message news:%

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