Buscar datos en Varias hojas de Calculo

07/09/2005 - 15:56 por Eliseo Ortega V. | Informe spam
Tengo una lista de nombres (digamos de clientes) y 5 hojas de calculo. Estos
nombres de clientes, pueden encontrarse en cualquiera de las 5 hojas de
calculo.
Cual sería la mejor manera de buscar estos nombres, en todas las hojas? Lo
que me quiero evitar es hacer una Busqueda hoja por hoja.
Existe alguna función / manera de hacerlo en Excel?

Gracias y saludos,

Preguntas similare

Leer las respuestas

#6 Eliseo Ortega V.
08/09/2005 - 14:47 | Informe spam
Jesus y KL,

A falta de uno, ahora tengo DOS metodos de hacer la busqueda! Le agradezco
mucho el interese y las respuesta.

Tambien muchas gracias a Mario Alberto.

Que tengan una excelente semana!

"Eliseo Ortega V." wrote:

Tengo una lista de nombres (digamos de clientes) y 5 hojas de calculo. Estos
nombres de clientes, pueden encontrarse en cualquiera de las 5 hojas de
calculo.
Cual sería la mejor manera de buscar estos nombres, en todas las hojas? Lo
que me quiero evitar es hacer una Busqueda hoja por hoja.
Existe alguna función / manera de hacerlo en Excel?

Gracias y saludos,
Respuesta Responder a este mensaje
#7 Eliseo Ortega V.
08/09/2005 - 14:47 | Informe spam
Buen día KL,

Hice la prueba como me indicaste y entiendo que la macro funciona, al menos
hasta ahora encontró todos los valores (nombres) que le he ingresado.

Muchisimas gracias por tu ayuda!

"KL" wrote:

Hola Eliseo,

Prueba hacer lo siguiente:

1) haz clic-derecho sobre el nombre de cualquier hoja de tu libro (en una de
las pestañas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo abajo
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Pulsa Alt+F8
7) Busca el macro "Macro1" y haz doble clic sobre el.

Saludos,
KL

'--Inicio Codigo
Sub Macro1()
Dim x As String, Hoja As Worksheet, Nombre As String, msg As String
Nombre = InputBox("Introduce el nombre a buscar:")

For Each Hoja In ThisWorkbook.Worksheets
On Error Resume Next
If Nombre <> "" Then
x = Hoja.Cells.Find(What:=Nombre, _
After:=Hoja.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Address
If Err.Number = 0 Then
If msg = "" Then _
msg = "se ha encontrado el texto buscado en:" _
& Chr(13) & Chr(13)
msg = msg & Hoja.Name & "!" & x & Chr(13)
End If
End If
On Error GoTo 0
Next Hoja
If msg <> "" Then MsgBox msg
End Sub
'--Fin Codigo



Respuesta Responder a este mensaje
#8 Eliseo Ortega V.
08/09/2005 - 14:47 | Informe spam
Buen día Jesus,

Hice la prueba tal como lo indicaste y funciona perfectamente!

Muchas gracias por tu ayuda!

"Jesus Peralta" wrote:

Que tal Eliseo, a como te entiendo la pregunta formulada, haber prueba
asi,..

1.- te pones en una pestaña de cualquier hoja del libro que deseas buscar
los datos.
2.- le das seleciconar todas las hojas
3.- Oprimes Ctl+B ó Ctl+F y buscas los datos

***** si en caso de aque quieras hacer algo a todas las hojas, por ejemplo
convertirlas en valores, haz lo mismo y oprimes el rectangulo que esta entre
la Fila A y la Columna 1 se seleccionaran todas las hojas y al mismo tiempo
tdas las hojas haran la funcion que desees.

saludos

"Eliseo Ortega V." escribió en el
mensaje news:
> Tengo una lista de nombres (digamos de clientes) y 5 hojas de calculo.
Estos
> nombres de clientes, pueden encontrarse en cualquiera de las 5 hojas de
> calculo.
> Cual sería la mejor manera de buscar estos nombres, en todas las hojas? Lo
> que me quiero evitar es hacer una Busqueda hoja por hoja.
> Existe alguna función / manera de hacerlo en Excel?
>
> Gracias y saludos,



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