En este grupo En todos

Foro de Excel



Macro q busca dato en varios archivos

Oliver
Ingenieria estadística puc
Escrito por Oliver Ironman
el 20/07/2011

Estimados expertos tengo q buscar unos datos en varios archivos de excel y q me los resuma en otro, para ello hize una macro pero solo me arroja el primer dato tengo ene archivos pero solo resumi 3 , ojala me den una mano...
acá les dejo los archivos el archivo final tiene la macro q hize, pero me falta completar...
https://www.2shared.com/file/pq1Tbbhq/FILES. Html

Saludos y gracias

Oliver

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 20/07/2011

Oliver, por favor clic en Documentos en esta misma pagina para subir tu archivo aqui en el foro, gracias.

Oliver Ironman
Ingenieria estadística puc
Escrito por Oliver Ironman
el 20/07/2011

Ok , ahi va el archivo....

https://grupos.emagister.com/documento/archivo/6610-847949

Saludos,


Cacho Rodríguez
Ing. electrónica u.n.r.
Escrito por Cacho Rodríguez
el 20/07/2011

Hola! Oliver
Mira: está muy bien que muestres la macro que no te funciona.

Sin embargo te faltó mostrar las únicas dos cosas que -necesariamente- debemos conocer para poder ayudarte:

a) Los datos a copiar. Te sugiero que dichos datos los resaltes con algún color para distinguirlos y agregues en los archivos algún comentario adicional que sirva de orientación para localizarlos.

b) La tabla de datos a conseguir.
Muestras dos columnas: ¿Eso es todo?... O sea: ¿Sólo son dos datos por archivo?.

Saludos, Cacho R.

Oliver Ironman
Ingenieria estadística puc
Escrito por Oliver Ironman
el 20/07/2011

Holass Cacho
gracias por mirar mis datos , te comento q tienes razón el resultado deben ser 2 datos, como lo muestra la tabla del archivo Final , la diferencia es q existen archivos con mas de 1 dato doble a ingresar, incluso 10 , de los 3 archivos q adjunte uno debe buscar 3 datos x 2....
resalte con un color los datos q debo sacar de cada archivo , amplie la macro y ahora me dan 2 resultados ok...
Actualize los archivos :

https://grupos.emagister.com/documento/archivo/6610-847949



Cacho Rodríguez
Ing. electrónica u.n.r.
Escrito por Cacho Rodríguez
el 20/07/2011

¡Ahora sí que sí!... ¡Déjame analizarlo!

Cacho Rodríguez
Ing. electrónica u.n.r.
Escrito por Cacho Rodríguez
el 20/07/2011

Fíjate, por favor, si lo siguiente te puede servir:
_____________________

Sub BuscaDatos()
Dim mySh As Worksheet, C As Range, ii As Integer, D As Range
Set mySh = ActiveSheet
mySh. [a1]. CurrentRegion. Offset(1). Delete xlShiftUp
With Worksheets("RS")
If IsEmpty(. [a2]) Then Exit Sub
Application. ScreenUpdating = False

For Each C In. Range(. [a2],. Cells(Rows. Count, "a"). End(xlUp))
If Dir(C) <> "" Then
Workbooks. Open C
For ii = 1 To WorksheetFunction. CountIf([a:a], "LOCAL")
Select Case ii
Case 1: Set D = [a:a]. Find(What:="LOCAL", LookAt:=xlWhole, SearchDirection:=xlNext)
Case Else: Set D = [a:a]. FindNext(D)
End Select
mySh. [a65536]. End(xlUp). Offset(1). Resize(, 2) = _
Array(D. Offset(, 1), D. Offset(1). End(xlToRight). End(xlDown))
Next ii
ActiveWorkbook. Close False
End If
Next C
End With
Set D = Nothing
Set mySh = Nothing
Application. ScreenUpdating = True
End Sub
_____________________

Saludos, Cacho R.

Oliver Ironman
Ingenieria estadística puc
Escrito por Oliver Ironman
el 21/07/2011

Estimado Maestro , te pasaste resulto a la primera

Mil gracias
Saldudos.

Cacho Rodríguez
Ing. electrónica u.n.r.
Escrito por Cacho Rodríguez
el 21/07/2011

Moraleja: subir un archivo de muestra abrevia el tiempo de todos...

Saludos y hasta la próxima.
Cacho R.