Los parámetros[b][Nombre del Control],[Nombre de la Hoja],[Rango Inicial][/b] son opcionales:
Para llenar un listbox llamado "[b]ListBox1[/b]" con los datos de la [b]hoja activa[/b] desde [b]A2[/b], bastaría con:
[CODE][B]Filas = LlenarLista(Me)[/B][/CODE]
En el adjunto encontrareis 3 formularios a modo de ejemplo, pueden ser concurrentes, por lo que podeis ejecutarlos los 3 a la vez. Pulsad el botón "[b]Play[/b]" para llenar las listas.
También encontrareis la macro de evento [b]Change [/b]de la hoja "[b]Listas[/b]".
Esta macro actualiza listas y combos de los formularios que estén mostrados.
Probad a hacer alguna modificación en la hoja y vereis como las listas quedan actualizadas automáticamente.
En la propia función encontrareis mas textos de ayuda
Hola:
Vamos a ver si me se explicar.
El llenado de listas y cuadros combinados en un formulario es de lo mas tedioso y repetitivo.
Me estrujado los sesos pensando como poder realizar esta tarea sin necesidad de escribir o copiar el código cada vez.
¿ Que diferencia hay de un control de un formulario a otro control de otro formulario ?
Pues:
1) El formulario
2) El control
3) La hoja donde están los datos
4) El rango de inicio de los datos
5) El nº de columnas
Pues con esas variables he creado una función que realiza el trabajo de llenado del control.
El nº de columnas se toma de la propiedad .ColumnCount del control
La función retorna el nº de filas que se han añadido al control
La forma de llamar la función es la siguiente:
Filas=LlenarLista(Formulario,[Nombre del Control],[Nombre de la Hoja],[Rango Inicial])
Ejemplo:
Para llenar un listbox llamado "MiLista" con los datos de la hoja "MiHoja" desde C1:
Los parámetros[b][Nombre del Control],[Nombre de la Hoja],[Rango Inicial][/b] son opcionales:
Para llenar un listbox llamado "[b]ListBox1[/b]" con los datos de la [b]hoja activa[/b] desde [b]A2[/b], bastaría con:
En el adjunto encontrareis 3 formularios a modo de ejemplo, pueden ser concurrentes, por lo que podeis ejecutarlos los 3 a la vez. Pulsad el botón "[b]Play[/b]" para llenar las listas.
También encontrareis la macro de evento [b]Change [/b]de la hoja "[b]Listas[/b]".
Esta macro actualiza listas y combos de los formularios que estén mostrados.
Probad a hacer alguna modificación en la hoja y vereis como las listas quedan actualizadas automáticamente.
En la propia función encontrareis mas textos de ayuda
Besitos
Saludos.
Fill List Function.zip