Formulario en Excel 2013 con TextBox para filtro
Nueva pregunta para el mismo libro.
La pregunta anterior "Agregar a macro vba Excel, algunas columnas más en ListBox" para el libro "Lista Repuestos v2 dam.xlsm" se trata del formulario frmEliminar, para asunto columnas
También si pudieras dejar el filtro para que filtre en 2 columnas.
El OptionButton1 en C y D, y el OptionButton2 en N y O.
Actualmente esta solo en DE y O filtrar además de la columna DE y O (de la cual filtra) también por la C y N es decir
Escribo en el textBox y según lo que escriba, filtrar si se encuentra en la C o en la DE o N y O según el OptionButton seleccionado y mostrar
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Enviar las columnas en las que se va a revisar el filtro:
Private Sub cbtFiltro_Click() 'LISTO
'Por.Dante Amor http://www.todoexpertos.com/preguntas/6tq6n98o8eefyo4j/arreglar-la-macro-para-filtrar-con-el-textbox?nid=gcqp5uuggnw63hkphks99g6ma4qp9tm5gso6jgulabr3&utm_source=todoexpertos&utm_medium=EmailNotification&utm_campaign=AskerQuestion_ExpertMessageAdded
If OptionButton1 Then
Call FiltrarLista2("B", "K", "C", "D")
ElseIf OptionButton2 Then
Call FiltrarLista2("M", "V", "N", "O")
End If
' MsgBox "No se encuentra.", vbExclamation, "Inexistente"
End Suben esta parte se concatenan las columnas enviadas, pueden ser C y D o N y O:
For i = 11 To 46 If Cells(i, col1) <> "" And _ UCase(h1.Cells(i, col3) & h1.Cells(i, col4)) 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
sal u dos
