Macro o formula para invertir fecha

13/11/2006 - 05:56 por GR | Informe spam
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

Preguntas similare

Leer las respuestas

#6 Tux
13/11/2006 - 17:06 | Informe spam
Tux escribió:
Mostrar la cita
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
#7 Tux
13/11/2006 - 17:15 | Informe spam
GR escribió:
Mostrar la cita
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
#8 GR
13/11/2006 - 17:21 | Informe spam
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
#9 Tux
13/11/2006 - 18:17 | Informe spam
GR escribió:
Mostrar la cita
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
#10 GR
13/11/2006 - 19:27 | Informe spam
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:

Mostrar la cita
Ads by Google
Search Busqueda sugerida