Consulta entre varios libros

Hola experto espero que me puedas ayudar con esta macro, te agradezco de antemano la atención.
Tengo un Libro (Rangos.xls)con datos en las columnas A, B, C y DE necesito que desde otro libro (Consulta.xls)yo le consulte desde una celda, busque un número de 18 dígitos que sea mayor o igual a la columna C y menor o igual a la columna DE y me devuelva en una celda de Consulta.xls los datos correspondientes a la columna A, en otra celda los de la columna B y en otra la fila donde se encuentran los datos de la búsqueda.
Y si no encuentra que me saque un mensaje de no encontrado.
Tengo una macro que me lo hace (adjunta), pero en la misma hoja y lo necesito en libros independientes.
Si no me entiendes, me podrías dar tu e-mail y te envío en una hoja de Excel donde se comprende mejor.
Mi e-mail es [email protected]
Sub ensayo()
Range("C2").Select
f = 2
c = 3
Do
If(Cells(1, 6))>=(Cells(f, 3))Then
If(Cells(1, 6))<=(Cells(f, 4))Then
Range("F2").Value = Cells(f, 1)
Range("F3").Value = Cells(f, 2)
Range("F4").Value = f
Exit Do
End If
End If
f = f + 1
Loop Until (Cells(f, 3) = "")
End Sub
Respuesta
1
La macro que me pides debe ir pegada en Consulta.xls y la debes ejecutar desde la celda donde esté el valor a buscar, es:
Sub Buscar()
BUSQUEDA = ActiveCell.Value
Windows("Rangos.xls").Activate
Range("C2").Select
Selection.End(xlDown).Select
While ActiveCell.Row > 1
If Not ActiveCell.Value < BUSQUEDA Then
If Not ActiveCell.Offset(0, 1).Value > BUSQUEDA Then
LODEA = ActiveCell.Offset(0, -2).Value
LODEB = ActiveCell.Offset(0, -1).Value
RENGLON = ActiveCell.Row
Windows("Consulta.xls").Activate
' ESTA INSTRUCCIÓN LE DICE QUE TE PEGUE LO DE "A" EN LA COLUMNA DE LA IZQUIERDA
ActiveCell.Offset(0, -1).Value = LODEA
' ESTA PEGA LO DE "B" EN LA CELDA DE LA DERECHA
ActiveCell.Offset(0, 1).Value = LODEB
'ESTA PEGA EL NÚMERO DE RENGLON DE "RANGOS" EN LA CELDA DE ABAJO
ActiveCell.Offset(1, 0).Value = RENGLON
End
End If
End If
ActiveCell.Offset(-1, 0).Select
Wend
End Sub
Gracias Gualo por tu interés, con esto ya tienes ganado mi reconocimiento...
Mi duda es que no sé, como ejecutar la macro desde una celda, los datos a buscar están en F1, disculpa mi ignorancia...
Nota te envío otra macro que me envío otro experto, me gustaría que la vieras, me funciona bien, le añadí que el libro Rangos.xls se abriera, pero no se viera, pero tengo un inconveniente, cada que repito la consulta me dice que el libro Rangos.xls, está abierto y cuando va a cerra me pide que lo salve, ¿cómo puedo sortear esos inconvenientes para que el usuario final no los note?
Sub ensayo()
Application.ScreenUpdating = False
Workbooks.Open "C:\Documents and Settings\lsanchez\Mis documentos\Ciclos y Correrías\Consultas\Rangos.xls", ReadOnly:=True
Windows("Rangos.xls").Visible = False
Range("C2").Select
f = 2
c = 3
Do
If Workbooks("Consulta.xls").ActiveSheet.Cells(1, 6) >= Workbooks("Rangos.xls").ActiveSheet.Cells(f, 3) Then
If Workbooks("Consulta.xls").ActiveSheet.Cells(1, 6) <= Workbooks("Rangos.xls").ActiveSheet.Cells(f, 4) Then
Workbooks("Consulta.xls").ActiveSheet.Range("F2").Value = Workbooks("Rangos.xls").ActiveSheet.Cells(f, 1)
Workbooks("Consulta.xls").ActiveSheet.Range("F3").Value = Workbooks("Rangos.xls").ActiveSheet.Cells(f, 2)
Workbooks("Consulta.xls").ActiveSheet.Range("F4").Value = f
Exit Do
End If
End If
f = f + 1
Loop Until (Workbooks("Rangos.xls").ActiveSheet.Cells(f, 3) = "")
Windows("Rangos.xls").Activate
Workbooks("Consulta.xls").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Además si me pudieras decir donde le inserto el msgbox para que me indique que no encontró el registro, te lo agradecería...
Si no me entiendes te puedo enviar el archivo por e-mail.
Tengo dos correos [email protected] y el otro es [email protected]
Gracias
La macro es correcta, pero si le dices que abra el libro lo va a querer abrir cada vez, es mejor que sólo lo manejes (ya abiertos los 2) que haga los cambios (aunque no se vea)
Para correr la macro, puedes usar el menu>Herramientas>Macro>Macros y la escoges de la lista que te despliega (ensayo). Hay otras maneras, pero es lo más simple. Recuerda que la debes ejecutar desde el archivo que tiene el dato en F1 a buscar.
Le puedes poner al final:
If f=2 then
msgbox "No se hallaron registros", 0, "Aviso"
Y si gustas, puedes enviarlo a [email protected]
Gualo, la macro yo la activo desde un botón, yo pensé que te referías a activar la macro desde la celda, luego de introducirle la información.
No se porque no me funciona el msgbox.
Te enviaré los dos archivos para que tengas una idea más global de que es lo que quiero y de pronto te sirva para futuras consultas.
Gracias por tu atención, eres excelente

2 respuestas más de otros expertos

Respuesta
1
Seria la misma macro, unicamente deberías especificar el libro donde coge los datos. En este caso la macro te quedaría como sigue
Sub ensayo()
Range("C2").Select
f = 2
c = 3
Do
If Workbooks("Consulta.xls").ActiveSheet.Cells(1, 6) >= Workbooks("Rangos").ActiveSheet.Cells(f, 3) Then
If Workbooks("Consulta.xls").ActiveSheet.Cells(1, 6) <= Workbooks("Rangos").ActiveSheet.Cells(f, 4) Then
Workbooks("Consulta").ActiveSheet.Range("F2").Value = Workbooks("Rangos").ActiveSheet.Cells(f, 1)
Workbooks("Consulta").ActiveSheet.Range("F3").Value = Workbooks("Rangos").ActiveSheet.Cells(f, 2)
Workbooks("Consulta").ActiveSheet.Range("F4").Value = f
Exit Do
End If
End If
f = f + 1
Loop Until (Workbooks("Rangos").ActiveSheet.Cells(f, 3) = "")
End Sub
Es idéntica que la tuya lo único añadido es al principio de la referencia de una celda añadir de que libro es la celda, workbooks("Nombre del libro"). Activesheet...
Eso si, debes tener los dos libros abiertos cuando ejecutes la macro.
Muy bien ahora necesito una macro para generar otra estrella y así poderte otorgar 6 estrellas y llamar la categoría Mega excelente, gracias y te seguiré molestando
Respuesta
1
Si dices que eso ya te funciona, te añado algunas líneas que te serán de utilidad para cambiar de libro en el momento que lo necesites:
Para abrir un archivo:
Workbooks.Open "ruta_completa_mas_nombre_archivo"
Para "activar" un libro, o sea, que reciba el enfoque:
Workbooks("nombre_archivo").Activate
Para cerrar el libro activo:
ActiveWorkbook. Close

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para eliminar filas y columnas ocultas

Necesito un macro para eliminar filas y columnas de una hoja. Probé algunos macros que encontré en internet y algunos me dan error y otros directamente no hacen nada. El archivo no tiene ninguna particularidad más que contener una tabla con filas ocultas.
1 respuesta

Copia muchos archivos a variadas carpetas según el nombre del archivo a copia y carpeta destino

Tengo una carpeta con mas de 5000 archivo y su nombre comienza con dígitos Las carpetas que deben contener estos archivos también comienzan con los mismos dígitos Y se encuentran en un disco de red. Ejemplo de archivo: 3415-monitor.pdf Carpeta donde...
1 respuesta

Macro que llame a otro archivo xls. Lea los valores de 2 columnas especificas y luego las copie en..

Tengo un libro1.xlsx El cual tiene una hoja (master) que está construida de la siguiente manera. Columna A (INDICE) - Es decir no se repite.(Numérico) Columna B (Nombre) Columna C (NumeroX) - Numérico Columna D (Descriptor) Columna E (Descriptor 2)...
1 respuesta

Macro buscar y recopilar datos en Excel

Tengo un botón en una la Hoja1 de Excel e información en esta misma hoja de los rangos (A5:F100), en la columna A del rango (A1:A100) tengo un numero 0 (cero) o también el numero 1 (uno), lo que necesito es que al momento de oprimir el botón me...
2 respuestas

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Macro recorre columna !urgente!

En la columna A desde A1 hasta A100 hay números, celdas vacías y ceros, necesito una macro que recorra el rango y me elimine unicamente los ceros que el resto del rango quede igual... Muchas gracias x tu ayuda Ya me habías mandado una macro pero lo...
1 respuesta

Comparar valores de columna A, si iguales, concatenar valores de B en C, si no copiar B en C sin con

Tengo un Excel, en la columna A hay valores repetidos desde 2 veces hasta N, y en la columna B hay valores diferentes para cada celda de A, independientemente de sus valores. Lo que tengo que hacer es mientras los valores de A sean iguales, hay que...
1 respuesta

Macro excel, comparación de columnas

Te cuento, tengo 3 columnas en un libro: ----------A------------ B----------- C 1----- Oscar--------- si----------- si 2---- Gabriel--------- si---------- no 3---- Hector ---------no--------- no 4----- Nancy ---------si----------- si 5 -----Yuriko...
2 respuestas