Como crear un ListBox con filtros predefinidos
Estoy queriendo crear un ListBox y le doy referencia a un rango, ahí todo bien, pero NO quiero que me muestre todos los datos sino solo algunos que cumplan con la condición que hay en una columna.
Ejemplo:
Eso es el resultado de mi list box jalando toda la base de datos, pero yo necesito que "específicamente" me filtre aquellas vacas que están en Estado "Preñada", dato que está en la columna 3.
Lo que NO quiero es habilitar un TextBox para rellenar porque para este Form solo sirven las que el Estado es "Preñada"
Respuesta de Dante Amor
1
Le doy referencia a un rango
Puedes poner aquí ese rango.
Si el rango es de la columna A a la D y empieza en la fila 1, entonces utiliza el siguiente código en lugar de utilizar el rango:
Private Sub UserForm_Activate()
Dim i As Long
For i = 1 To Range("C" & Rows.Count).End(3).Row
Select Case LCase(Range("C" & i).Value)
Case LCase("Estado"), LCase("Preñada")
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = Range("A" & i)
.List(.ListCount - 1, 1) = Range("B" & i)
.List(.ListCount - 1, 2) = Range("C" & i)
.List(.ListCount - 1, 3) = Range("D" & i)
End With
End Select
Next
End Sub
Hola Dante. Hice una pregunta parecida a esta. Lo único que cambia es que yo quiero una lista desplegable en una hoja diferente. ¿Me puedes ayudar por favor? - Osvaldo Calero Marin