Buscar y eliminar

30/01/2004 - 23:22 por Jesus | Informe spam
Buenas noches a todos, necesitaría realizar una búsqueda y eliminar el
contenido de las celdas que coincidan.
Me explico; al introducir un valor (una referencia de números y letras) en
una celda (G4 de la Hoja1) y tras pulsar un botón, realice una búsqueda en
la propia Hoja1 y en otras 3 hojas mas (en Hoja1, rango E100:E150 y en las
otras hojas rango J3:Z50 ) y que elimine los resultados coincidentes.

Gracias y un saludo

Jesús

Preguntas similare

Leer las respuestas

#1 cataplas
31/01/2004 - 19:41 | Informe spam
Hash: SHA1

Puedes hacerlo con 'Reemplazar' en el menu Edicion.
En el cuadro Buscar escribes lo que quieres buscar, en el cuadro
Reemplazar no pones nada, (o lo que quieras) y despues pulsas el
boton Reemplazar todos.




"Jesus" escribió en el mensaje
news:%23SNxi%
Buenas noches a todos, necesitaría realizar una búsqueda y eliminar
el contenido de las celdas que coincidan.
Me explico; al introducir un valor (una referencia de números y
letras) en una celda (G4 de la Hoja1) y tras pulsar un botón,
realice una búsqueda en la propia Hoja1 y en otras 3 hojas mas (en
Hoja1, rango E100:E150 y en las otras hojas rango J3:Z50 ) y que
elimine los resultados coincidentes.

Gracias y un saludo

Jesús


Respuesta Responder a este mensaje
#2 Héctor Miguel
31/01/2004 - 19:46 | Informe spam
hola, Jesus !

... realizar una busqueda y eliminar el contenido de las celdas que coincidan.
... una referencia de numeros y letras en ... G4 de la Hoja1 ...
... un boton, realice una busqueda en ... Hoja1 y en otras 3 hojas mas
... en Hoja1 ... E100:E150 y en las otras hojas J3:Z50 y que elimine los resultados coincidentes.



un ejemplo [asigna la siguiente macro al boton]:
___ en un modulo de codigo 'normal' ___
Sub Borrar_Si_Coincide()
Dim Celda As Range, Hoja As Worksheet
Application.ScreenUpdating = False
For Each Celda In Range("e100:e150")
If Celda = Range("g4") Then Celda.ClearContents
Next
For Each Hoja In Worksheets(Array("Hoja3", "Hoja7", "Hoja8"))
For Each Celda In Hoja.Range("j3:z50")
If Celda = Range("g4") Then Celda.ClearContents
Next
Next
End Sub

notas: la 'comparacion' versus el contenido de la celda 'g4' [en la hoja del boton] sera =>EXACTA< los nombres de [los nombres de] las hojas en la matriz 'Array("Hoja3", etc.)'... segun las 'reales'

saludos,
hector.
Respuesta Responder a este mensaje
#3 cataplas
31/01/2004 - 19:49 | Informe spam
Hash: SHA1

Para que el reemplazo se realice sólo en un area determinada, debes
previamente de seleccionar las áreas.


"cataplas" escribió en el mensaje
news:%

Hash: SHA1

Puedes hacerlo con 'Reemplazar' en el menu Edicion.
En el cuadro Buscar escribes lo que quieres buscar, en el cuadro
Reemplazar no pones nada, (o lo que quieras) y despues pulsas el
boton Reemplazar todos.




"Jesus" escribió en el mensaje
news:%23SNxi%
> Buenas noches a todos, necesitaría realizar una búsqueda y eliminar
> el contenido de las celdas que coincidan.
> Me explico; al introducir un valor (una referencia de números y
> letras) en una celda (G4 de la Hoja1) y tras pulsar un botón,
> realice una búsqueda en la propia Hoja1 y en otras 3 hojas mas (en
> Hoja1, rango E100:E150 y en las otras hojas rango J3:Z50 ) y que
> elimine los resultados coincidentes.
>
> Gracias y un saludo
>
> Jesús
>


Respuesta Responder a este mensaje
#4 Jesus
31/01/2004 - 23:10 | Informe spam
Muchas gracias a los dos por ser tan rápidos, pero la 'solución' de Héctor
me 'va' perfecta.

Un saludo

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