Busqueda en listbox, seleccionar un item y pasar info a otro form
Publicado por fjpg (135 intervenciones) el 22/08/2019 22:23:59
Hola buenas. Acudo a ustedes para otra duda.
Tengo este codigo (lo encontre en internet y lo adapte):
Con ese codigo relleno el listbox del frm_articulos y mientras escribo en un textbox me filtra la busqueda.
La idea ahora sería, seleccionar un item de ese listbox y pasar los datos a otro form.
En ese form, donde tendria que ir la info, tengo 7 texbox, donde iria la info de las siete columnas del item seleccionado.
Tengo este codigo (lo encontre en internet y lo adapte):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub txt_buscar_Change()
'Declaramos variables
Dim fin As Long, i As Long, n As Long
Dim sproducto As String
'Filtramos por sección
With Sheets("ARTICULOS")
fin = Application.CountA(.Range("A:A"))
If txt_buscar = "" Then
Me.ListBox1.RowSource = ("A2:G") & Worksheets("ARTICULOS").Range("A" & Rows.Count).End(xlUp).Row
Exit Sub
End If
Me.ListBox1.RowSource = Clear
For i = 2 To finsproducto = .Cells(i, 2).Value
If UCase(sproducto) Like "*" & UCase(txt_buscar.Value) & "*" Then
Me.ListBox1.AddItem
Me.ListBox1.List(n, 0) = .Cells(i, 1).Value
Me.ListBox1.List(n, 1) = .Cells(i, 2).Value
Me.ListBox1.List(n, 2) = .Cells(i, 3).Value
Me.ListBox1.List(n, 3) = .Cells(i, 4).Value
Me.ListBox1.List(n, 4) = .Cells(i, 5).Value
Me.ListBox1.List(n, 5) = .Cells(i, 6).Value
Me.ListBox1.List(n, 6) = .Cells(i, 7).Value
n = n + 1
End If
Next
Me.ListBox1.ColumnWidths = "60 pt;250 pt;100 pt;80 pt;30 pt;80 pt;30 pt"
End With
End Sub
Private Sub UserForm_Initialize()
'Indicamos el número de columnas que tendrá el listbox
Me.ListBox1.ColumnCount = 7
'Definimos tamaño de los espacios
Me.ListBox1.ColumnWidths = "60 pt;250 pt;100 pt;80 pt;30 pt;80 pt;30 pt"
'Cargamos listbox
Me.ListBox1.RowSource = ("A2:G") & Worksheets("ARTICULOS").Range("A" & Rows.Count).End(xlUp).Row
End Sub
Con ese codigo relleno el listbox del frm_articulos y mientras escribo en un textbox me filtra la busqueda.
La idea ahora sería, seleccionar un item de ese listbox y pasar los datos a otro form.
En ese form, donde tendria que ir la info, tengo 7 texbox, donde iria la info de las siete columnas del item seleccionado.
Valora esta pregunta
0
) la rutina para grabar las modificaciones y borrar registros