Encontrar un valor y remplazar otro en misma fila

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.

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.

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.

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

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.