Arreglar el listbox para que cargue la información
Aun por Aquí Dante, veré si me deja crear las 3 preguntas
YA el libro lo tienes con el cual puedes hacer lo que necesito
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Carga información filtrada
Private Sub OptionButton1_Click()
Call FiltrarLista2("B", "K", "D")
End Sub
Private Sub OptionButton2_Click()
Call FiltrarLista2("M", "V", "O")
End Sub
Sub FiltrarLista2(col1, col2, col3)
'Por.Dante Amor
Set h1 = Sheets("Lista Repuestos")
Set h2 = Sheets("filtro")
h2.Cells.ClearContents
Lista2.RowSource = ""
fila = 46
h1.Range("B10:K10").Copy h2.Range("A1")
j = 2
For i = 11 To 46
If Cells(i, col1) <> "" And _
UCase(h1.Cells(i, col3)) Like "*" & UCase(txtFiltro) & "*" Then
h1.Range(col1 & i & ":" & col2 & i).Copy h2.Cells(j, "A")
h2.Cells(j, "K") = i
j = j + 1
End If
Next
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
If u2 > 1 Then
Lista2.RowSource = h2.Name & "!A2:K" & u2
Else
MsgBox "No se encuentra.", vbExclamation, "Inexistente"
End If
End Subsal u dos
