Macro para busqueda en todos los libros abiertos

5 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 2 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2750
Macro para busqueda en todos los libros abiertos

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

AdjuntoTamaño
Package icon formulario.zip17.9 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 2 días 6 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 11110
Hola, JoaoMHe abierto el

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

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 2 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2750
Gracias por responder.Si,

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

Cron
Imagen de Cron
Offline
última acción: Hace 2 días 6 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 11110
A ver si esto te sirve:Sub

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

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 2 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2750
Gracias cron, mui atento como

Gracias cron, mui atento como siempre