Filtrar una tabla desde un UserForm
Tengo una Tabla de Excel en donde las columnas:
A Están los numero de Identificación
B Los Nombres de las personas,
Etc
Y necesito un userform en donde tenga un rango para escribir los números de Identificación (Ej.: 4663) y me filtre todos los datos que tengan ese numero.
Respuesta de Dante Amor
1
Envíame tu archivo con el userform para adaptar la macro
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Andrés López Acosta”
ya te envié un archivo de ejemplo
Te anexo el código
Private Sub ListBox1_Click()
'Por.Dante Amor
'
u = Range("A" & Rows.Count).End(xlUp).Row
num = Val(ListBox1.List(ListBox1.ListIndex, 0))
ActiveSheet.Range("$A$1:$C" & u).AutoFilter Field:=1, Criteria1:=num
End Sub
'
Private Sub TextBox1_Change()
'Por.Dante Amor
'
ListBox1.Clear
Set h = ActiveSheet
If h.AutoFilterMode Then h.AutoFilterMode = False
Set r = h.Columns("A")
Set b = r.Find(TextBox1, LookAt:=xlPart)
If Not b Is Nothing Then
celda = b.Address
Do
'detalle
ListBox1.AddItem h.Cells(b.Row, "A")
ListBox1. List(ListBox1.ListCount - 1, 1) = h. Cells(b.Row, "B")
ListBox1. List(ListBox1.ListCount - 1, 2) = h. Cells(b.Row, "C")
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Muy Bueno
Para poder entender un poco la macro para futuro, ¿en qué parte cambio si los datos están en la Columna B? Etc
Cambia A por B, B por C, C por D, etc
