Añadir o Eliminar Elementos de un ListBox

Para agregar o eliminar los elementos de un Listbox emplearemos el siguiente método:

Crearemos dentro de la hoja “Ventas” una lista de elementos:

Luego creamos nuestro Userform adicionando un listbox y emplearemos el siguiente código para que al cargar el userform  automáticamente los elementos ingresados en la lista presentada anteriormente, se adicionen al listbox que hemos creado.

1) Le indicamos al sistema que una vez activado el userform se seleccione la hoja “Ventas”

Private Sub UserForm_Activate()

Sheets("Ventas").Select

2) Una vez en la hoja “ Ventas” el código ordena ir hasta la fila 80000 de la columna A y desde ahí regresar hasta la ultima fila llena perteneciente a dicha columna

ultimaFila = Columns("A:A").Range("A65000").End(xlUp).Row

3)      Finalmente el código a  indica que tome el numero de la ultima fila llena y a través de un contador adicione uno a uno los elementos presentes en dicha lista a partir de la fila 2, dado que asumimos que la lista tiene encabezado.

For cont = 2 To ultimaFila

If Cells(cont, 1) <> "" Then

ListBox1.AddItem (Cells(cont, 1))

End If

Next

Sheets("Inicio").Select

End Sub

4) Entonces cada vez que carguemos el userform aparecerá las lista en nuestro listbox

Ejemplo de uso de un ListBox

Elaborado por: Luis Agustin Gaitan Murillo