Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Añadir o Eliminar Elementos de un ListBox

| 2 comentarios

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

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

Lista1 Añadir o Eliminar Elementos de un ListBox

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

Listbox Añadir o Eliminar Elementos de un ListBox

Ejemplo de uso de un ListBox

Elaborado por: Luis Agustin Gaitan Murillo

2 comentarios

  1. BUENAS NOCHES MI DUDA ES LA SIGUIENTE TENGO UN LISTBOX DE 9 COLUMNAS, AL SELECCIONAR UNA DE LA LISTA LO DESEO PASAR A UN CONTRO SE LABEL O TEXTBOX, DE ACUERDO A LO QUE DESEO, REALIZAR UNAS OPERACIONES Y LOS NUEVOS RESULTADOS ANEXARLOS AL LISTBOX A SI ES LO QUE PLANTEO.

  2. HOLA, solicito apoyo para poderme auxiliar en la revisión de mi código fuente de mi macro excel especialmente en como puedo eliminar una fila o un registro seleccionado con listbox.

Deja una respuesta

Los campos requeridos estan marcados con *.