¿Puedo cargar un listbox con 2 condiciones?
Tengo este código, que me permite cargar en el istbox las facturas asociadas a una orden de compra, con un key, esta key es el numero de la orden de compra.
En la hoja de facturas se encuentran los registros de facturas, donde cada registro tiene asociada un numero de orden de compra..
Mi consulta es si puedo agregar otra key, para q aparte de cargar por numero de orden de compra, pueda cargar solo aquellas q en su observación diga "lista"
Es decir, cargrar a listbox si numero de orden de compra(txtodcN) = numero de orden de compra( columna "O" hoja factura) y si columna "L" = "listo"
Agradecería mucho su ayuda! Muchas gracias!
2 respuestas
Marcos estas macro hace una autofiltro desde dos textbox
Field:=10 y Field:=1 esta parte es la que tiene que cambiar el 10 por el numero de tu columna
La 1 hace referencia la columna A y la y el 10 a la columna J
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ListBox1.Clear
p1= txtodcn
p2= TextBox2
Range("a9").AutoFilter Field:=10, Criteria1:=">=" & p1, Operator:=xlAnd, Criteria2:="<=" & p1
Range("a9").AutoFilter Field:=1, Criteria1:=">=" & p2, Operator:=xlAnd, Criteria2:="<=" & p2
On Error Resume Next
For Each celda In Range("a10:a" & Range("a100000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
ListBox1.AddItem celda
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = celda.Offset(0, 1)
ListBox1.List(i, 2) = celda.Offset(0, 2)
ListBox1.List(i, 3) = celda.Offset(0, 3)
Next
'este parte vuelve la base de dato a su estado original
ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=10
ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=1
Range("A10").Select
Application.ScreenUpdating = True
End Sub
