Formato de Fecha

09/01/2007 - 15:54 por data2000sanjuan | Informe spam
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.-

Preguntas similare

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"
Respuesta Responder a este mensaje
#2 Ariel
10/01/2007 - 13:06 | Informe spam
Hola Hector,
muchisimas gracias por tu ayuda, con tu comentario 2) resolvi mi
problema.
Hasta pronto. Ariel.-

Héctor Miguel ha escrito:

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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida