Textbox para filtrar datos en listbox
Estimado Dante Amor siguiendo el formulario que anteriormente me ayudaste a hacer, quiero agregar un textbox donde escriba un numero y al presionar el botón buscar haga que en los listbox solo se muestren los archivos que tienen ese numero.
2 Respuestas
Respuesta de Dante Amor
2
Te anexo el código.
Debes quitar el código del evento initialize
Dim ruta1, ruta2 ' Private Sub CommandButton1_Click() ' llamada a imprimir de listbox1 Call Imprimir_Pdf(ListBox1, archivo, ruta1) End Sub ' Private Sub CommandButton2_Click() ' llamada a imprimir de listbox2 Call Imprimir_Pdf(ListBox2, archivo, ruta2) End Sub ' Sub Imprimir_Pdf(lista, archivo, carpeta) 'Imprime archivo según la lista If lista.ListCount = 0 Then MsgBox "No hay registros a imprimir" Exit Sub End If If lista.ListIndex = -1 Then MsgBox "Selecciona un registro a imprimir" Exit Sub End If archivo = lista.List(lista.ListIndex) ruta = "C:\Program Files\Adobe\Reader 11.0\Reader\" Shell ruta & "AcroRd32.exe /n /t " & carpeta & archivo 'Shell ruta & "AcroRd32.exe " & archivo DoEvents End Sub Private Sub CommandButton3_Click() 'Por Dante Amor 'Cargar lista de archivos de carpetas ruta1 = "C:\trabajo\archivos\" ruta2 = "C:\trabajo\pdfs\" ' ListBox1.Clear ListBox2.Clear arch1 = Dir(ruta1 & "*" & TextBox1.Value & "*.pdf") Do While arch1 <> "" ListBox1.AddItem arch1 arch1 = Dir() Loop arch2 = Dir(ruta2 & "*" & TextBox1.Value & "*.pdf") Do While arch2 <> "" ListBox2.AddItem arch2 arch2 = Dir() Loop End Sub ' Private Sub UserForm_Initialize() End Sub
[sal u dos.
Respuesta de Programar Excel
2
