Pasar datos de tabla a Listbox en Excel

En el siguiente ejemplo mostraremos como pasar datos de una tabla a un Listbox en un formulario de Vba, para ello tendremos en cuenta los siguientes pasos:

 

1) Tener la lista que se desea  en una hoja de excel (con la estructura como se desea tener en la listbox) 

2) Abrir en el Excel el editor de visual Basic, esto se logra presionando alt+f11,  o desde la ficha "Desarrollador" (o "Programador"), seleccionar la opción Visual Basic.

3) Elegimos el menú "insertar" y seleccionamos "userform"

   

4) En el cuadro de herramientas seleccionamos cuadro lista y lo colocamos encima de la ventana del Userform (Lo ajustamos a un tamaño razonable que muestre los datos de nuestra lista en excel).

5) Damos doble click en el formulario(userform) para abrir la ventana de codificación.

6) Cambiamos el evento para esto le damos click al evento Initialize(para que cuando inicie el formulario se cargue los datos de la hoja1)

7) Empezamos la codificación:

 

Private Sub Userform_Initialize()

Me.Listbox1.Rowsource= "Hoja3!A2:D30" (esto es para poner elementos de una hoja hacia nuestro listbox ("Me." hace referencia al formulario), se podría omitir el uso del "Me." 

Me.Listbox1.ColumnCount=4 (con esto ponemos el número de columnas que queremos que se muestren en el listbox)

Me.Listbox1.ColumnWidths=" 55;80;80;120" (Con esto modificamos el ancho de las columnas a medida que nuestro Listbox se vea de una manera   ordenada,el 1er valor hace referencia la primera columna ,el 2do a la segunda columna y el 3ro a la tercera columna)

Me.Listbox1.ColumnHeads=True (esto hace que la listbox tome los titulos de las cabeceras de la lista en excel y los muestre)

End Sub

 

8) Damos F5 para correr la programación y ver nuestro listbox.

Descargar ejemplo para pasar datos de tabla a Listbox en Excel: Pasar datos de tabla a Listbox en Excel

Por: Miguel Huamaní