Encontrar un valor y remplazar otro en misma fila

03/10/2006 - 12:03 por Roberto Miranda | Informe spam
Buenos días a todos.

Tengo un Libro con 2 hojas, una de ellas es el formato/machote y en otra
hoja está la base de datos del formato en la 1ra hoja, hice un botón para
que guarde la información a la otra hoja.

Mi consulta es, desde un botón con un Text Box, quiero encontrar p/e: el
número de Ck: 30(columna A Base Datos), cuando lo encuentre en esa fila, en
la columna G, que se escriba Anulado.

Espero haber sido claro, les pido su opinión

Saludos

Roberto

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
04/10/2006 - 08:45 | Informe spam
hola, Roberto !

... Libro con 2 hojas, una de ellas es el formato/machote y en otra hoja esta la base de datos
... desde un boton con un Text Box, quiero encontrar p/e: el numero de Ck: 30 (columna A Base Datos)
cuando lo encuentre en esa fila, en la columna G, que se escriba Anulado. Espero haber sido claro [...]



si suponemos que existe un control de cuadro de textos [p.e. en un formulario] llamado TextBox1
[donde se escribe el Ck: 30 a buscar/encontrar/...]
y que la hoja donde esta la base de datos se llama 'base de datos'
prueba con las siguientes opciones/variantes/... [segun donde esten y el tipo de los controles de texto y boton]...

Worksheets("base de datos").Columns("a:a").Find(TextBox1, Range("a1")).Offset(, 6) = "Anulado"

o la siguiene version usando una 'notacion abreviada' [en la referencia a los rangos]...

Worksheets("base de datos").[a:a].Find(TextBox1, [a1]).Offset(, 6) = "Anulado"

o la siguiente version [similar] PERO... suponiendo que el nombre de la base de datos NO contiene espacios [p.e. hoja1]

[Hoja1].[a:a].Find(TextBox1, [a1]).Offset(, 6) = "Anulado"

[ademas] se supone/espera/... que el dato a buscar/encontrar/... SI estara 'presente' en la columna 'A' -?-
[de lo contrario]... o habra que preparar alguna deteccion de -posibles- errores ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Roberto Miranda
06/10/2006 - 13:35 | Informe spam
Excelente muchas gracias Héctor,

solo una consulta sobre las hojas, yo siempre que he programado ingreso no
el nombre de hoja como tal, sino como el código, o sea, aunque se llame la
hoja "Base de Datos", esa hoja el Id(Por decirlo de alguna manera) es Hoja2,
en que me afecta eso??? más lento el código?

Uso Excel 2003

Roberto Miranda
"Héctor Miguel" escribió en el mensaje
news:
hola, Roberto !

... Libro con 2 hojas, una de ellas es el formato/machote y en otra hoja
esta la base de datos
... desde un boton con un Text Box, quiero encontrar p/e: el numero de
Ck: 30 (columna A Base Datos)
cuando lo encuentre en esa fila, en la columna G, que se escriba Anulado.
Espero haber sido claro [...]



si suponemos que existe un control de cuadro de textos [p.e. en un
formulario] llamado TextBox1
[donde se escribe el Ck: 30 a buscar/encontrar/...]
y que la hoja donde esta la base de datos se llama 'base de datos'
prueba con las siguientes opciones/variantes/... [segun donde esten y el
tipo de los controles de texto y boton]...

Worksheets("base de datos").Columns("a:a").Find(TextBox1,
Range("a1")).Offset(, 6) = "Anulado"

o la siguiene version usando una 'notacion abreviada' [en la referencia a
los rangos]...

Worksheets("base de datos").[a:a].Find(TextBox1, [a1]).Offset(, 6) =
"Anulado"

o la siguiente version [similar] PERO... suponiendo que el nombre de la
base de datos NO contiene espacios [p.e. hoja1]

[Hoja1].[a:a].Find(TextBox1, [a1]).Offset(, 6) = "Anulado"

[ademas] se supone/espera/... que el dato a buscar/encontrar/... SI estara
'presente' en la columna 'A' -?-
[de lo contrario]... o habra que preparar alguna deteccion de -posibles-
errores ;)

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

Respuesta Responder a este mensaje
#3 Héctor Miguel
07/10/2006 - 01:13 | Informe spam
hola, Roberto !

solo una consulta sobre las hojas, yo siempre que he programado ingreso no el nombre de hoja como tal
sino como el codigo, o sea, aunque se llame la hoja "Base de Datos", esa hoja el Id (Por decirlo de alguna manera) es Hoja2
en que me afecta eso??? mas lento el codigo?



'trabajan igual'... pierde cuidado por lentitud entre hacer referencia a las hojas por:
- su propiedad 'Name' [p.e. Worksheets("nombre de la hoja")] correspondiente a la interfase grafica con el usuario [etiquetas]
- o como objeto propio de un libro [la propiedad CodeName] o el nombre que VBA la asigna a cada objeto [en este caso Worksheet]

la diferencia/ventaja al usar el codename, es que el usuario esta 'en libertad' de modificar el nombre [en la etiqueta] SIN alterar el codigo ;)

saludos,
hector.
Respuesta Responder a este mensaje
#4 Ivan
07/10/2006 - 02:35 | Informe spam
Hola chicos, disculpadme que me entrometa.

solo una consulta rapida(creo que ya contestada) sobre el tema: ¿la
¡numeracion de las hojas <Hoja1, Hoja2,..> se mantiene a pesar de
cambiar el nombre y/o insertar/eliminar hojas? es sobre todo para
metermelo de una vez por todas en la cabeza

Gracias en cualquier caso

un saludo y hasta pronto
Ivan
Respuesta Responder a este mensaje
#5 Roberto Miranda
09/10/2006 - 08:21 | Informe spam
Gracias Héctor..

Saludos

Roberto
"Héctor Miguel" escribió en el mensaje
news:%
hola, Roberto !

solo una consulta sobre las hojas, yo siempre que he programado ingreso
no el nombre de hoja como tal
sino como el codigo, o sea, aunque se llame la hoja "Base de Datos", esa
hoja el Id (Por decirlo de alguna manera) es Hoja2
en que me afecta eso??? mas lento el codigo?



'trabajan igual'... pierde cuidado por lentitud entre hacer referencia a
las hojas por:
- su propiedad 'Name' [p.e. Worksheets("nombre de la hoja")]
correspondiente a la interfase grafica con el usuario [etiquetas]
- o como objeto propio de un libro [la propiedad CodeName] o el nombre que
VBA la asigna a cada objeto [en este caso Worksheet]

la diferencia/ventaja al usar el codename, es que el usuario esta 'en
libertad' de modificar el nombre [en la etiqueta] SIN alterar el codigo ;)

saludos,
hector.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida