Como seleccionar un tem de un listbox
Quiero seleccionar un item de un listbox con varias columnas y pasar a varios textbox el valor de cada columna, si me pueden pasar un ejemplo, se los vot a agradecer.
Otro que necesto es poder filtrar dentro de un listbox y mostrar solo los filtrados y mostarr en textbox.
Respuesta de Carlos Arrocha
1
[Hola. Aquí tienes un ejemplo de como llenar unas cajas de texto desde un listbox
Private Sub ListBox1_Click() Cargar = ListBox1.ListIndex ComboCodigo = ListBox1.List(Cargar, 0) TxtArticulo = ListBox1.List(Cargar, 1) TxtDescripcion = ListBox1.List(Cargar, 2) TxtPrecio = ListBox1.List(Cargar, 3) TxtCantidad = ListBox1.List(Cargar, 4) End Sub
Salu2 Carlos Arrocha
¡GraciaMuchas Gracias Carlos
si me podrias mandar un ejemplo de como filtrar en listbox y mostar los datos filtrados
[Hola. Este código te hace un autofilter, pero Ojo, Los datos los toma de la hoja3, tienes que modificar este dato por el que corresponda en tu hoja. Esta macro debes colocarla dentro del evento change de un textbox.
Private Sub TextBox1_Change()
Datos = Hoja3.Range("A" & Rows.Count).End(xlUp).Row
Hoja3.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
Y = 0
For fila = 2 To Datos
Ref = Hoja3.Cells(fila, 1).Value '<-Modifica el 1 por la columna que quieras filtrar
If UCase(Ref) Like "*" & UCase(Me.TextBox1.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(Y, 0) = Hoja3.Cells(fila, 1).Value
Me.ListBox1.List(Y, 1) = Hoja3.Cells(fila, 2).Value
Me.ListBox1.List(Y, 2) = Hoja3.Cells(fila, 3).Value
Me.ListBox1.List(Y, 3) = Hoja3.Cells(fila, 4).Value
Me.ListBox1.List(Y, 4) = Hoja3.Cells(fila, 5).Value
Me.ListBox1.List(Y, 6) = Hoja3.Cells(fila, 7).Value
Y = Y + 1
End If
Next
End SubSalu2 Carlos Arrocha
