UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

donsuae


Hola Estimados Usuarios de UniversoExcel,
Los molesto una vez más por lo sgte:

Tengo 2 archivos excel.
1.- Sirve como BD
2.- Es la plantilla a llenar.

Lo que busco y no he logrado hacer, es que la macro tome cada dato de la columna A de la planilla, y los busque en el archivo BD, y que según vaya encontrándolos, pegue los datos en el otro libro excel.
Además de que según lo seleccionado en el combobox, sea la hoja donde busque el dato (Esto para evitar que la macro busque en todo el libro excel, sino que solo en una hoja).


No importa que se abran los libros, ya em rendí como hacerlo que busque en un libro cerrado.

Les dejo el código, que aún no logro que funcione.

Código:
Sub Buscar_Users()

Dim a As Integer, LastRow As Long, userid As String


LastRow = Worksheets("TEST").Range("B" & Rows.Count).End(xlUp).Row
For a = 2 To LastRow
userid = Worksheets("TEST").Cells(a, "B")

abrir_xls
Next a

End Sub



Public Function abrir_xls()
Dim LastRow2 As Integer, i As Integer, erow As Integer


Application.ScreenUpdating = False
Ruta = "C:\Users\IBM_ADMIN\Desktop\FINAL\TEST"
ChDir Ruta
archi = Dir("*.xlsm*")
Set h1 = ThisWorkbook.Sheets("TEST")
Workbooks.Open archi
Sheets(4).Select
LastRow2 = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow2
If Cells(i, 2) = userid Then
Range(Cells(i, 2)).Select
Selection.Copy
h1.Select
h1.Range("D" & i).Paste
End If
Next i




Saludos.
Gracias de Antemano.
PD: Adjunté los archivos para que se entienda mejor.
Archivos
BUSQUEDA IDS.zip
No tienes los permisos para descargar los archivos.
(15 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.