Hola amigos.
Mi pregunta es pedirles un enlace de macro que busque por 2 criterios minimo, en TODOS los libros que tenga abiertos y todas las hojas de cada libro.
Busqueda por nombre (descripción) ejemplo de nombre es nombre propiamente dicho (texto que puede contener de por medio, números tambien) y codigo (2 ejemplos de codigo: 9l7735stop y flauta3208)
Conforme se va introduciendo caracter en un TextBox se van mostrando resultados en un ListBox.
Esta la imajen del formulario
Los archivos son el código y el formulario. Este me funciona a perfeccion para lo que fue creado, modifico el formulario al tener el codigo (macro) para el fin que deseo, solo busquueda en todos los libros abiertos en sus hojas, quedando con todas las cajas de texto y ListBox
Se que el codigo de este, muchos eventos no hacen falta, solo quedarian los de busqueda modificado para el fin deseado.
De y para este formulario, las hojas estan así organisadas
En otros libros podrian estar con los encabezados en diferentes columnas.
¿podria alguen darme su mano? Gracias
| Adjunto | Tamaño |
|---|---|
 formulario.zip | 17.9 KB |
Hola, JoaoM
He abierto el código que has enviado, pero ahí tienes de todo!!
Por favor, concreta la pregunta. Dices que quieres una macro para que busque en todos los libros abiertos. ¿qué es lo que hace que te atasques? ¿Recorrer los libros abiertos? ¿Buscar por dos condiciones mínimo?
Un saludo
Gracias por responder.
Si, tiene de todo lo que se necesita para ese formulario, tal como lo ves.
Subi eso como ejemplo o, desecha eso visto buscar una macro que nada tiene que ver con lo que subi.
Busco una macro para busqueda en todos libros que tenga abierto, ejemplo:
Necesito buscar x texto pero no se en cual de los (7 libros abiertos) está.
Un libro puede tener 2, 3 4 o mas hojas, y los encabezados pueden ser diferentes y en columnas diferentes.
Gracias
A ver si esto te sirve:
Sub recorrelibros()
Dim wb As Workbook
Dim ws As Worksheet
For Each wb In Application.Workbooks
For Each ws In wb.Worksheets
Debug.Print ws.Name, wb.Name
Next
Next
End Sub
Esto lo que hace es recorrer todos los libros abiertos, y dentro recorre todas las hojas de cada libro. Lo que he hecho es simplemente escribir en la consola los nombres de hoja y libro(debug.print), pero ahí tú deberías poner tu código para buscar.
Un saludo
Gracias cron, mui atento como siempre