Curso Excel VBA y Macros – Cap. 58 – Formularios – PARTE 4 Control ListBox ó Cuadro de lista

<<CURSO COMPLETO EN YOUTUBE>>

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:

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

<<CURSO COMPLETO EN YOUTUBE>>

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.

También te podría gustar...