filtrar datos con listbox

[lolo20]

buenas tardes no soy capaz de solucionarlo esta casi pero no encuentro el final

en el adjunto tengo un fron de facturas bien si pongo el cmd buscar con el txt como esta ahora

me busca un listbox pero no los otros 3 y si lo pongo buscar por los txt me rellena solo los txt ayuda por favor

el txt busca por nº factura

gracias de antemano

facturacion.rar

[tese1969]

Buenas, lolo20.....

Creo que podrías intentar explicar mejor qué es lo que necesitas, porque con lo que cuentas en tu consulta y una vez abierto tu archivo, la cosa está muy liada......jejejeje......yo al menos no termino de entender lo que te falta o falla.....

En fin, un saludo,

Tese

[Guest Cacho R]

Hola! lolo (y Tese). Lo que solicitas es bastante sencillo de implementar.

Sin embargo será prudente analizar -desde lo conceptual- lo más sensitivo de ese formulario. O sea:

a) Buscas en la columna A de la hoja FACTURAS un número de factura.

Pretendes desplegar la info asociada en cuatro listbox.

Y aquí viene "la gran pregunta":

¿Por qué has implementado listbox's? ¿Es que en esa columna es posible encontrar más de una vez al mismo número de factura?...

Como advertirás no es lo mismo que tengas una sola línea de datos asociada a un número de factura, a que tengas varias líneas.

De hecho: para el primero de los escenarios, ni tan siquiera es necesario "complicarse la vida" con listbox y es suficiente utilizar textbox.

¿Comentas, por favor?...

Saludos, Cacho R.

[lolo20]

buenos dias cacho R el motivo de ponerlo asi es para poder rellenarlo otra vez igual que se izo la factura para poder imprinirla en caso de que el cliente la pierda as saldria igual aunque las almaceno en formato pdf pero yo ya les pongo que estan contabilizadas con lo cual al cliente asi le das motivo de despiste a la hora de contabilizar y si me gustaria que se rellenaran todss los campos aldar clik en el boton buscar con la factura correspondiente gracias

[Guest Cacho R]

Mira lolo: "la gran pregunta" (¿Es que en esa columna es posible encontrar más de una vez el mismo número de factura?) no la respondiste...

Por ello te muestro una forma general de tratar el tema:

Private Sub CommandButton1_Click()
Dim Q%
Application.ScreenUpdating = False
With Sheets("facturas")
  .[aa1:aa2] = WorksheetFunction.Transpose(Array(.[a1], TextBox1))
  .[a1].CurrentRegion.AdvancedFilter xlFilterCopy, .[aa1:aa2], .[ab1], False
  lstCantidad.Clear: lstDescripcion.Clear
  lstPrecio.Clear: lstImporte.Clear: txtSubtotal = ""
  Q = WorksheetFunction.CountA(.[ab:ab]) - 1
  If Q = 1 Then
    lstCantidad.AddItem .[ag2]
    lstDescripcion.AddItem .[ae2]
    lstPrecio.AddItem .[af2]
    lstImporte.AddItem .[ah2]
  ElseIf Q > 1 Then
    lstCantidad.List() = .[ag2].Resize(Q).value
    lstDescripcion.List() = .[ae2].Resize(Q).value
    lstPrecio.List() = .[af2].Resize(Q).value
    lstImporte.List() = .[ah2].Resize(Q).value
  End If
  If Q > 0 Then txtSubtotal = WorksheetFunction.Sum(.[ah2].Resize(Q))
  .[aa1].CurrentRegion.Delete xlShiftUp
  Application.ScreenUpdating = True
End With

End Sub[/PHP]

¡Espero te sea de utilidad!

Saludos, Cacho R.

[lolo20]

gracias cacho R esta bien es mas corto que el que yo usaba pero mi pregunta era para poder rellenar todos los campos txtbos y listbox es aqui donde tenia el problema pues filtrar los datos en txtbox se y para los listbox tambien pero no se como filtrar con todos los campos no se si me falta una variable o como unir los mezclar los txtbox con los listbox lo siento por no expresarme bien la 1º vez gracia

[lolo20]

no save nadie com puedo solucionarlo por favor me urge gracias