Estimado Expertos.

Nuevamente solicitando vuestra ayuda, el libro adjunto lo utilizaba para control de un pequeño almacen, funcionaba bien con 100 filas, pero cuando agregue mas filas (12000), demora demasiado en buscar los datos.

Esto lo podran comprobar al ingresar en la Hoja Operaciones, opcion "control de almacen", al intentar buscar los datos en el combobox, notaran que la macro realiza la busqueda, demorando demasiado tiempo.

Por favor, agradecere vuestro apoyo, para solucionar este problema.

Atte.

Jmollan

PD: Tuve que borrar filas, porque el archivo pesaba demasiado.

CONTROL DE ALMACEN-FORO.zip

Prueba con el archivo adjunto!

No tarda tanto, me parece que tu compu no es muy rápida

De cualquier manera cambié un poco el código

Lo que hace tu macro es recorrer el rango para buscar el valor, lo cambie con la sentencia Find para agilizar más!!

Checa mi foro pronto publicaré más!!!

Armando Excel

CONTROL DE ALMACEN-FORO.zip

Nuevamente solicitando vuestra ayuda, el libro adjunto lo utilizaba para control de un pequeño almacen, funcionaba bien con 100 filas, pero cuando agregue mas filas (12000), demora demasiado en buscar los datos.

Y como no si con:

    While ActiveCell <> LISTA

        If ActiveCell = "" Then LISTA = "": Exit Sub

        ActiveCell.Offset(1, 0).Select

    Wend

[/CODE]

cada vez que cambia el combo haces que se recorra todo el rango de datos... en tu caso 12 mil filas...

Se que tu aplicacion no es un desarrollo profesional, pero seria recomendable que identaras de forma correcta tu codigo y otro tip... aprende como funciona el advancedfilter, es mejor que find! Aqui en el foro hay muchos buenos ejemplos!

Saludos!

Estimado Armandocid.

Gracias por las modificaciones realizadas, he probado el archivo, el combobox ahora si busca con rapidez, pero al dar click en el boton REGISTRAR, continua tardando demasiado tiempo, mi maquina tiene un procesador intel I5 y 4 GB de RAM.

Unas puntualizaciones:

El valor de LISTA.ListIndex + 5 te proporciona de forma automática la fila de la hoja "LISTADO".

Si el valor de LISTA.ListIndex = -1 el valor introducido en el TextBox del combo LISTA no existe en el combo, y por tanto, no existe en la hoja "LISTADO".

El método End del objeto Range te permite averiguar de forma directa la primera fila vacía sin necesidad de recorrer todo el rango

Saludos

CONTROL DE ALMACEN-FORO.zip

Muchas Gracias Macro Antonio, he probado la macro y todo funciona muy bien.

TEMA SOLUCIONADO.