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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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"