Editar macro para llenar ListBox

2 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Editar macro para llenar ListBox

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

Etiquetas: 

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Alguien me podria prestar su

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

AdjuntoTamaño
Package icon lista_repuestos.zip1 MB