Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Formato de Fecha

09/01/2007 - 15:54 por data2000sanjuan | Informe spam
Ayuda Hacer una pregunta
Hola a todos, les planteo la siguiente consulta.
Recibo informacion bancaria a diario en un archivo .csv que abro con
Excel.
Algunas columnas son inncesarias o otras es preciso darles formato. Tal
es el caso de una columna con fechas que es suministrada en forma de
texto, por ejemplo "13 Dec 2006". Por lo anterior, intento escribir una
macro que cambie el formato a fecha (para una exportacion posterior).
Se me presenta el siguiente problema: si utilizo la funcion de
reemplazo, cambiando "Dec" por "Dic" (mi Excel es 2003 en español),
automaticamente se transforma el formato de la celda en "dd-mmm-yy" que
es lo que yo necesito, sin embargo al hacerlo mediante una macro dicha
transformacion no se produce e incluso al aplicar el formato este no es
tomado por la celda.
Podrian ayudarme?
Este es el codigo de la macro:
Columns("A:A").Select
Selection.Replace What:="Dec", Replacement:="Dic", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "dd-mmm-yy"

Hasta pronto. Ariel.-
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
10/01/2007 - 03:54 | Informe spam
hola, Ariel !

1) el 'comportamiento' de los dialogos incorporados [como el de edicion/reemplazar] es distinto cuando se lanza desde macros
[p.e.] selecciona la columna 'A' y prueba la siguiente instruccion:
-> Application.Dialogs(xlDialogFormulaReplace).Show "dec", "dic"
-> una vez que aparezca el dialogo, pulsa el boton de reemplazar todo y veras que no sucede la 'auto-conversion' :-((

2) para el caso especifico que expones, prueba primero a reemplazar los espacios por algun caracter separador de fechas {- o /}
y despues reemplazas los caracteres de ingles a castellano [p.e.]

Sub Dec_a_Dic()
Columns("a:a").Replace " ", "-"
Columns("a:a").Replace "dec", "dic"
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
Recibo informacion bancaria a diario en un archivo .csv que abro con Excel.
Algunas columnas... es preciso darles formato el caso de una columna con fechas... en forma de texto, por ejemplo "13 Dec 2006"
... intento escribir una macro que cambie el formato a fecha (para una exportacion posterior).
... problema: si utilizo la funcion de reemplazo, cambiando "Dec" por "Dic" (mi Excel es 2003 en espa#ol),
... se transforma el formato de la celda en "dd-mmm-yy" que es lo que yo necesito
... al hacerlo mediante una macro dicha transformacion no se produce e incluso al aplicar el formato este no es tomado por la celda...
Este es el codigo de la macro:
Columns("A:A").Select
Selection.Replace What:="Dec", Replacement:="Dic", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "dd-mmm-yy"

Preguntas similares

 

Busqueda sugerida :