Curso Excel VBA y Macros – Cap. 58 – Formularios – PARTE 4 Control ListBox ó Cuadro de lista
En este artículo del Curso de macros desde cero, veremos un ejemplo que fácilmente puede ser aplicable a la vida real. Veremos cómo filtrar valores de un rango y mostrar esos valores en un ListBox. Con respecto a este Control ListBox veremos los siguientes tema:
- Filtrar valores de una tabla y mostrarlos en un
ListBox. - Eliminar filas de una tabla con datos mostrados en un
ListBox.
Ver video Capítulo 58 Excel VBA & Macros
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Filtrar valores de una tabla y mostrarlos en un ListBox
Una de las prácticas más comunes es mostrar valores filtrados de una Tabla o rango, en un ListBox. De hecho este ejercicio puede ser aplicable a proyectos de la vida real, ya que siempre vamos a necesitar filtrar valores, por ejemplo, mostrar todas las ventas de una sucursal.
Figura 1. UserForm para mostrar valores filtrados usando un ListBox.
Código VBA del Formulario
Option Explicit 'Botón Filtrar Private Sub CommandButton1_Click() Dim Hoja As Worksheet Dim Filas As Integer Dim i As Integer Set Hoja = Sheets("Hoja1") Filas = Hoja.Range("A1").CurrentRegion.Rows.Count If Me.TextBox1.Value = "" Then Exit Sub Me.ListBox1.Clear For i = 1 To Filas If Hoja.Cells(i, 1).Offset(0, 1).Value = UCase(Me.TextBox1.Value) Then Me.ListBox1.AddItem Hoja.Cells(i, 1) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Hoja.Cells(i, 1).Offset(0, 1) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Hoja.Cells(i, 1).Offset(0, 2) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Hoja.Cells(i, 1).Offset(0, 3) Else 'No hacer nada End If Next i End Sub 'Botón Cerrar Private Sub CommandButton2_Click() Unload Me End Sub 'Al iniciar el Formulario Private Sub UserForm_Initialize() With Me .ListBox1.ColumnCount = 4 .ListBox1.ColumnWidths = "20 pt;60 pt;60 pt;60 pt" End With End Sub
Descarga el archivo de ejemplo
058 – Forrmularios Control ListBox Cuadro de lista 4 – EXCELeINFO.zip
Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.