Saltar al contenido

Búsqueda Inteligente en ListBox con rango de fechas en 2 TextBox

publicado

Hola estimados, nuevamente solicitando su ayuda.

En este archivo quiero implementar una búsqueda inteligente en un ListBox (Fact1) aplicando entre dos rangos de fechas usando dos TextBox (Fech_InicioFact y Fech_FinalFact), con 2 condiciones; que sean de clase de Documento (DF) y que el Comité no sea Vigente. La busqueda inteligente o normal debe efectuarse al hacer Enter en el segundo TextBox (Fech_FinalFact)

Para activar el formulario hay que hacer lo siguiente:

Seleccionar celda A4("Cuenta") de la hoja Resumen Cart-Cli para activar UserForm1. Después haciendo click en cualquiera de las celdas de Cuenta en la columna (“A5:A57”) cargar de registros al UserForm1(3 ListBox).

'Filtar ListBox (Fact1)entre dos fechas con dos TextBox (Fech_InicioFact y Fech_FinalFact)

Private Sub Fech_FinalFact_Change()
Fila = Hoja2.Range("I" & Rows.Count).End(xlUp).Row
UserForm1.Fact1.Clear
For I = 2 To Fila
If UCase(Hoja2.Cells(I, 3)) Like "DF" And Hoja2.Cells(I, 22) <> "Vigente" And _
Hoja2.Cells(I, 17) Like UserForm1.Cuenta.Caption Then
If CDate(Hoja2.Cells(I, 9)) >= CDate(Fech_InicioFact) And CDate(Hoja2.Cells(I, 9)) <= CDate(Fech_FinalFact) Then
With UserForm1.Fact1
.AddItem
.List(.ListCount - 1, 0) = Hoja2.Cells(I, 9)
.List(.ListCount - 1, 1) = Format(Hoja2.Cells(I, 10), "##,##0")
End With
End If
End If
Next I
End Sub

"No subo el archivo porque es muy pesado"

Featured Replies

publicado
  • Autor

Trate de reducir al máximo posible, pero no hay caso el foro no me permite subirlo. 

publicado

Saludos, necesito un archivo con un listbox de mas de 30 columnas y que pueda filtrar según varios parámetros, fechas meses, concepto o items de diferentes columnas  

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.