Buscar Listbox de 2 columas de otra hoja Excel
Publicado por Wilb (12 intervenciones) el 22/11/2019 06:54:32
Estimados
Una consulta:
Adjunto un archivo en el que se encuentran 2 hojas de cálculo.
En una de ellas se encuentra una tabla con una base de datos.
Y en la otra un botón que muestra un userform con el contenido de la tabla de la hoja 1 en un listbox.
Mi problema es que cuando trato de filtrar el contenido de este, me aparece solamente una columna y necesito que al filtrar se muestren ambas columnas de la tabla porque luego que aparezca el contenido filtrado, debo insertar en una celda en particular la linea seleccionada de la fila del listbox
La búsqueda se hace insertando un texto en un textbox
Mi fórmula de búsqueda es la siguiente:
Una consulta:
Adjunto un archivo en el que se encuentran 2 hojas de cálculo.
En una de ellas se encuentra una tabla con una base de datos.
Y en la otra un botón que muestra un userform con el contenido de la tabla de la hoja 1 en un listbox.
Mi problema es que cuando trato de filtrar el contenido de este, me aparece solamente una columna y necesito que al filtrar se muestren ambas columnas de la tabla porque luego que aparezca el contenido filtrado, debo insertar en una celda en particular la linea seleccionada de la fila del listbox
La búsqueda se hace insertando un texto en un textbox
Mi fórmula de búsqueda es la siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub TextBox1_Change()
'If Me.TextBox1.Value = "" Or Me.TextBox1.Value = " " Then
' Me.Height = 83
' Else
' Me.Height = 160
ListBox1.RowSource = Empty
Dim rng As Range, eSet Lista = Range("TABLA1")
With Me
.ListBox1.Clear
For Each i In Lista.ValueIf (i <> "") * (i Like "*" & .TextBox1.Value & "*") Then
.ListBox1.AddItem i
End If
Next i
End With
' End If
End Sub
- Pasar-Tabla-a-ListBox-copia.zip(17,8 KB)
Valora esta pregunta
0