Rapidez en la Búsqueda de 2 formularios

Actualmente tienes esto para hacer la búsqueda:

***

Set r = Hoja1.Range(Hoja1.Cells(2, COL), Hoja1.Cells(uRow, COL))
Set c = r.Find(t)
If Not c Is Nothing Then
nCell = c.Address
contador = 1
Do
xRow = c.Row
.AddItem Hoja1.Cells(xRow, 1)
For xCol = 1 To Columns("H").Column
.Column(xCol, .ListCount - 1) = Hoja1.Cells(xRow, xCol + 1)
Next xCol
.Column(Columns("H").Column + 1, .ListCount - 1) = xRow
filtrado = True
Set c = r.FindNext(c)
Loop While Not c Is Nothing And c.Address <> nCell

***

Con estas líneas se va agregando registro por registro y columna por columna
***
AddItem Hoja1.Cells(xRow, 1)
For xCol = 1 To Columns("H").Column
.Column(xCol, .ListCount - 1) = Hoja1.Cells(xRow, xCol + 1)
Next xCol
***
Para cambiarlo, tendría que cargar con rowsource, pero para ello tendría que llevarme a una hoja temporal los registros que cumplen con el filtro y luego cargar de esa hoja temporal el listbox.
A la hoja temporal, le puedo borrar completamente su contenido, para que quede en cero celdas ocupadas después de la consulta del filtro.
O puedo eliminar la hoja y crearla cada vez que se ocupe el filtro.
Para revisar si funciona la carga más rápido, tendrías que probarlo.
Si quieres modifico el código para cargar con rowsource de una hoja temporal y luego decides si se elimina la hoja o simplemente se borra el contenido.
Saludos. Dam

Hola Amigo

Cuanto a tu sugerencia, yo escogería eliminar la hoja para volver a crearla cuando necesario.

Cuanto a rapidez, como te dije en el mail. dicen que por medio de un Combo seleccionaría la columna por la cual buscar y así solo buscaría en esa columna y no en toda la hoja, seria mas ra`pido creo si así lo ves tu, pues volvé a crear un combo en el form Eliminar y dale código.

Acabo de enviarte un RAR, Le mi explicación en el mail y luego en la hoja2 de cada libro. Gracias Dam.

Como ves solo ahoora pude sentarme acá, mi ocupación Mecánica pesada me solicita casi tiempo completo