macro del boton de busqueda (Filtro)
'Mostrar resultado en ListBox
[CODE]Private Sub cbtFiltro_Click()
On Error GoTo Errores
If Me.txtFiltro.Value = "" Then Exit Sub
Me.Lista2.Clear
j = 11
Filas = Range("d1").CurrentRegion.Rows.Count 'BUSCAR POR LA COLUMNA D
For i = 12 To Filas
If LCase(Cells(i, j).Offset(0, 12).Value) Like "*" & LCase(Me.txtFiltro.Value) & "*" Then
Me.Lista2.AddItem Cells(i, j)
Me.Lista2.List(Me.Lista2.ListCount - 12, 1) = Cells(i, j).Offset(11, 1)
Me.Lista2.List(Me.Lista2.ListCount - 12, 2) = Cells(i, j).Offset(11, 2)
Me.Lista2.List(Me.Lista2.ListCount - 12, 3) = Cells(i, j).Offset(11, 3)
Else
End If
Next i
Exit Sub
Errores:
MsgBox "No se encuentra.", vbExclamation, "Inexistente"
End Sub[CODE\]
Los titulos en linea 10 y datos a partir de linea11
Los datos van desde linea 11 hasta linea 46. Nunca menor a la linea 11 ni nunca mas de la 46
No logro que me presente resultados en el Listbox, buscando por la columna D
Dejo imagen de la hoja
Quiero escribir en el txtfiltro parcial o completo un dato y presionar (boton)cbtFiltro y que me prsente los resultados de esa busqueda en el ListBox(Lista2) en las 5 columnas del ListBox lo referente a la buisqeuda
Propiedades del ListBox(Lista2)
Private Sub UserForm_Initialize()
With Lista2
.ColumnCount = 5
.ColumnWidths = "50 pt;60 pt;160 pt;40 pt;60 pt"
End With
End Sub
Alguien me podria prestar su ayuda?
Se que nadie esta obligado a dar su generosa ayuda pero la verdad la necesito
En la hoja1 esta la exposicion de lo que necesito lo cual agradezco
Gracias