Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Buscar y Reemplazar en Excel

97 views
Skip to first unread message

Noelia Fernandez

unread,
Apr 10, 2001, 4:30:56 AM4/10/01
to
Wuenas!
Tengo un pequeño pb. con una hoja de excel.
Para la gente que suele trabajar con excel seguro que la solución es
sencillísima.
Desde un comando de mi formulario tengo que abrir una hoja de cálculo de
excel y llenar las celdas con los resultados de un Select.
En las celdas que tengo que rellenar tengo escrito texto, "[CodigoCliente]"
por ejemplo, y quiero hacer un Buscar y Reemplazar.
Buscar "[CodigoCliente]" y reemplazar por rs!CodigoCliente.
Como no tengo idea del código que tengo que utilizar he grabado una macro
con un buscar y reemplazar y he copiado el código. Pero no me funciona.
El código es este:

Selection.Replace What:="[CodigoCliente]", Replacement:="5642",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

He copiado este código al formulario y no funciona.
Alguien me puede ayudar? Es urgente.
Gracias.
Noelia.

PD. Disculpas por el rollazo.


Jorgelina E. Bernasconi

unread,
Apr 10, 2001, 8:44:33 AM4/10/01
to
Noelia
Realmente estabas bien con lo que te devolvio el grabador de macros. No
se por que se te grabo en Replacement="5642" ese numero, porque ahi deberia
haber quedado el nuevo texto "rs!CodigoCliente". Es decir, tu codigo
quedaria:

Cells.Replace What:="[CodigoCliente]", Replacement:="rs!CodigoCliente",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Ese "Cells" del comienzo, en lugar de "Selection", como escribiste vos,
remitiria la busqueda a toda la hoja, y no a la seleccion activa. Fijate que
te sirve mas.
Suerte
Jorgelina
www.ospymes.com.ar

"Noelia Fernandez" <noelia.f...@speedcom.es> escribió en el mensaje
news:ODGsyiZwAHA.1864@tkmsftngp03...

Noelia Fernandez

unread,
Apr 10, 2001, 9:05:47 AM4/10/01
to
Gracias Jorgelina!
Cuando lo pruebe ya te diré si funciona (supongo que sí).
Se me grabó "5642" pq lo puse yo manual para recuperar el código, en el
formulario ya puse "rs!CodigoCliente" pero creo que no lo puse entre
comillas; entre las comillas y el Cells confío que me funcione.
Muchas gracias.
Noelia. ;)


"Jorgelina E. Bernasconi" <jorge...@omicron.com.ar> escribió en el mensaje
news:ukU9pwbwAHA.1352@tkmsftngp05...

Noelia Fernandez

unread,
Apr 12, 2001, 5:50:03 AM4/12/01
to
Hola Jorgelina!
Sólo escribo para decirte que el "Cells" funciona de coña. Supongo que al
grabar la macro hice algo que me coló el "Selection" pq he probado más veces
y siempre me sale el "Cells". Caprichos de la informática.
Te agradezco mucho tu ayuda, si algún día tienes un pb cuenta conmigo.
Salud!
Noelia

"Noelia Fernandez" <noelia.f...@speedcom.es> escribió en el mensaje

news:#HkNY8bwAHA.1276@tkmsftngp03...

Jorgelina E. Bernasconi

unread,
Apr 12, 2001, 7:20:55 AM4/12/01
to
Me alegro mucho que te haya funcionado. Y te cuento que Selection siempre
aparece cuando grabas la macro. Porque primero seleccionas algo, y luego
aplicas el cambio sobre la seleccion. Ej.
Cells.Select
Selection.Replace ..... blabla
Siempre va a ser mejor si borras Select - Selection, para que quede asi:
Cells.Replace ..... entendes?
Besos!
Jorgelina


"Noelia Fernandez" <noelia.f...@speedcom.es> escribió en el mensaje

news:ODZdPYzwAHA.1396@tkmsftngp05...

0 new messages