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.
