Busqueda cruzada en archivos

hola, David !

... necesito hacer que el excel busque dentro de un directorio (los archivos a buscar pueden ser excel o word)
... y que esa busqueda me la traiga a una nueva pagina... la fila entera de la palabra buscada
... Ej: busco la palabra "manga", y todos los archivos excel y/o word que contengan esa palabra
... deberan agregarse en una nueva pagina (toda la fila con sus datos, no solo la palabra "manga")
... me posibilita comparar entre varias listas de precios (generalmente en excel) el precio mas bajo del producto "manga".

podrias exponer algunos detalles +/- 'importantes' ? [p.e.]

- si se tratara -solo- de archivos de excel... podriamos 'recortar' las formas de busqueda ;)
- existe la posibilidad de que el dato buscado se encuentre mas de una vez dentro de cada libro ?
- conoces el/los nombre/s de la/s hoja/s de cada libro ? [y si pudieran existir mas de una hoja] -???-
- en cual columna 'debiera' encontrarse el dato buscado ?
- cualquier detalle que [tu conoces y] pudiera ser 'de impacto' para quien no conozca 'tus' archivos :D

saludos,
hector.

Hector: muchas gracias por tu asistencia. Tratando de aclarar el tema
te comento:

- se trata de archivos de excel, de word y de acrobat reader, aunque
con tan solo buscar dentro de archivos excel estaria mas que satisfecho.

- existe la posibilidad de que el dato buscado se encuentre mas de
una vez dentro de cada libro, en este caso necesito que aparezca cada
vez que aparece el dato, que se muestre toda la fila (es para comparar
listas de precios de distintos proveedores, a veces un mismo proveedor
tiene distintas marcas y precios de un mismo producto (ej: "alfajor")

- no conozco los nombres de las hojas de cada libro, es mas, hasta
hoy me tomo el trabajo, cada vez que necesito hacer una compra, de
ubicarme dentro de la carpeta "listas de precios", hacer una busqueda
desde windows (F3), poner todos los archivos (*.*), y donde dice texto
pongo "alfajor", de esa forma debo abrir todos los archivos y uno por
uno pasarlo a otra hoja para poder comparalos.

- no hay una columna en especial donde aparece el dato buscado, generalmente
es en la segunda o primera. En gral, el diseño es el siguiente:

Codigo Descripcion Pcio. Unitario Pcio. con iva


Pero no todos los archivos son iguales, no están normalizados.


Muchas gracias por su tiempo.



David
David Sese


"Héctor Miguel" escribió:

hola, David !

> ... necesito hacer que el excel busque dentro de un directorio (los archivos a buscar pueden ser excel o word)
> ... y que esa busqueda me la traiga a una nueva pagina... la fila entera de la palabra buscada
> ... Ej: busco la palabra "manga", y todos los archivos excel y/o word que contengan esa palabra
> ... deberan agregarse en una nueva pagina (toda la fila con sus datos, no solo la palabra "manga")
> ... me posibilita comparar entre varias listas de precios (generalmente en excel) el precio mas bajo del producto "manga".

podrias exponer algunos detalles +/- 'importantes' ? [p.e.]

- si se tratara -solo- de archivos de excel... podriamos 'recortar' las formas de busqueda ;)
- existe la posibilidad de que el dato buscado se encuentre mas de una vez dentro de cada libro ?
- conoces el/los nombre/s de la/s hoja/s de cada libro ? [y si pudieran existir mas de una hoja] -???-
- en cual columna 'debiera' encontrarse el dato buscado ?
- cualquier detalle que [tu conoces y] pudiera ser 'de impacto' para quien no conozca 'tus' archivos :D

saludos,
hector.

hola, David !

- se trata de archivos de excel, de word y de acrobat reader... con tan solo buscar dentro de archivos excel estaria mas que satisfecho.
- existe la posibilidad de que el dato buscado se encuentre mas de una vez dentro de cada libro
en este caso necesito que aparezca cada vez que aparece el dato, que se muestre toda la fila
(es para comparar listas de precios de distintos proveedores [...] ej: "alfajor")
- no conozco los nombres de las hojas de cada libro, es mas, hasta hoy me tomo el trabajo, cada vez que necesito hacer una compra
de ubicarme dentro de la carpeta "listas de precios", hacer una busqueda desde windows (F3), poner todos los archivos (*.*)
y donde dice texto pongo "alfajor", de esa forma debo abrir todos los archivos y uno por uno pasarlo a otra hoja para poder comparalos.
- no hay una columna en especial donde aparece el dato buscado, generalmente es en la segunda o primera.
En gral, el dise#o es el siguiente:
Codigo Descripcion Pcio. Unitario Pcio. con iva
Pero no todos los archivos son iguales, no estan normalizados.

1) para el caso de archivos de word, no quisiera 'meterme' a averiguar si se trata de tablas o tabulaciones -?-
[para el caso de los archivos .pdf ni decirte que... 'ni idea'] :D

2) dada la posible/segura/... 'disparidad' en los formatos y arreglos en libros y hojas de excel de distintos proveedores...
[comprenderas que]... no tengo forma de 'comprobar' si la siguiente propuesta resulta lo 'funcional' que necesitas :-(
[y es solo para archivos de excel] ;)

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

en un modulo de codigo 'general' [p.e.] de un libro nuevo ==Option Compare Text
Sub Busca_trae()
Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Busca As String, _
Hoja As Worksheet, Celda As Range, Datos As Range
Ruta = "c:uta y\sub carpetas\donde estan tus\listas de precios\" ' <= AJUSTA
Busca = "alfajor"
Archivo = Dir(Ruta & "*.xls")
Do While Archivo <> ""
Workbooks.Open Ruta & Archivo
For Each Hoja In ActiveWorkbook.Worksheets
For Each Celda In Hoja.UsedRange.Resize(, 2)
If Celda = Busca Then
Set Datos = Application.Union(IIf(Datos Is Nothing, Celda, Datos), Celda)
End If
Next
If Not Datos Is Nothing Then
With ThisWorkbook.Worksheets("hoja1")
.Range("b" & Rows.Count).End(xlUp).Offset(1 - 1) = ActiveWorkbook.Name
.Range("b" & Rows.Count).End(xlUp).Offset(2) = ActiveSheet.Name
Datos.EntireRow.Copy
.Range("b" & Rows.Count).End(xlUp).Offset(1, -1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Set Datos = Nothing
End With
End If
Next
ActiveWorkbook.Close False
Archivo = Dir()
Loop
End Sub