Ayuda con una macro

sub Reemplazar()
Cells.Replace What:="-Dec-", Replacement:="-Dic-", LookAt:=xlPart,
SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
end sub

-
Clickea en 'SI' en '¿Le ha ayudado esta exposición?' si esta exposición te
ha sido de ayuda.
-
José Luis 22 ARG
-


"Alejandro Garcia" escribió:

De nuevo coloco este post ya que la fecha la tenia errada en el
anterior.

Realmente, no se como hacerla pero me he dado cuenta que la necesito.
Es para aplicarla con cualquier libro que tenga, y lo que debe hacer es
reemplazar unas cadenas contenidas en cualquier celda, por ejemplo,
necesito reemplazar estas cadenas(las cuales son fijas, siempre se
reemplazaran las mismas cadenas):

Original: -Dec-
Reemplazar por: -Dic-

¿Como puedo hacer esto?

Gracias...

Tengo dos opciones

1) Crtl+L te aparece el cuadro reemplazar, colocas en
buscar -Dec- y en reemplazar por -Dic- y orale! te los
cambia
2) si quieres aplicar una macro, en el menu Herramientas-

Macro->Grabar macro puedes darle la opcion de guardar en

libro de macros personal, en vez de este libro y con eso
puedes aplicarlo a cualquier macro.

Cuando le des grabar realizas la opcion 1 es decir, Crtl+L
te aparece el cuadro reemplazar, colocas en buscar -Dec- y
en reemplazar por -Dic- y entonces lo puedes correr como
macro
Dudas,... comentas

De nuevo coloco este post ya que la fecha la tenia errada

en el

anterior.

Realmente, no se como hacerla pero me he dado cuenta que

la necesito.

Es para aplicarla con cualquier libro que tenga, y lo que

debe hacer es

reemplazar unas cadenas contenidas en cualquier celda,

por ejemplo,

necesito reemplazar estas cadenas(las cuales son fijas,

siempre se

reemplazaran las mismas cadenas):

Original: -Dec-
Reemplazar por: -Dic-

¿Como puedo hacer esto?

Gracias...


.

Gracias a todos, hare mejor una macro, ya que son varios reemplazos y
con Ctrl+L me tomaria mucho tiempo. Luego les cuento como me fue. mdr