¿Poner una condición al cargar lista de combobox?

Para Dante Amor

Maestro,¿podrías ayudarme con esto por favor?

Usualmente cargo en el activate de un form una lista para el combobox, establecido con un rango determinado. Tipo:

Me.ComboBox1.List = Sheets("bodega").Range("a2:a" & Sheets("bodega").Range("a" & Rows.Count).End(xlUp).row).value

Sería posible condicionar la lista, ¿mostrando el mismo rango pero solo los que cumplan con el valor "SI" en el campo "AD"?

1 Respuesta

Respuesta
2

H o l a:

Tendría que ser con el método additem, por ejemplo:

Private Sub UserForm_Activate()
    Set h1 = Sheets("bodega")
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
        If h1.Cells(i, "AD") = "SI" Then
            ComboBox1.AddItem h1.Cells(i, "A")
        End If
    Next
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas