Macro Excel para Filtrar con 2 Optionbutton
1º recibe mis saludos.
Mira amigo, tengo la plantilla la cual tu me haz ayudado mucho, digamos que casi en la tutalidad de ella. Lista para Repuestos.
Quiero con el formulario (frmLista) eliminar cierto datos (línea(s)) según la selección en el ListBox (Lista2).
Verás que la hoja Listas Repuestos tiene 2 páginas (así le llamo yo) .
Todo lo que necesito, esta explicito en la hoja Quiero, 2 hojas más son ejemplo (creo) de lo que quiero que haga.
¿Puedo enviarte el libro?
1 Respuesta
En este momento son las 9:50pm, hora a la que llego la conexión de Internet.
CANTV nos tien restringida la banda, en todo el país esta presente la restricción de navegación.
Veré si me da chance para enviarte. Alguna otra ejemplo, veré si encuentro forma de hacerme entender
H o l a:
Te anexo la macro para filtrar
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
HOla Dante, peor que ayer la conexión a Internet, solo ahora mismo es que me llego conexión, aquí en este país la cosa esta caótica que hasta la Conexión Internet esta restringida.
Rápido crearé las preguntas antes que se me vaia y recogeré la macro que me dejas.
¿Aquí? No hay vida amigo
Tienes pendiente valorar
