Adecuar un código para filtre entre dos fechas
Tengo el siguiente código:
En donde en el combobox "vehículo" coloco una fecha de búsqueda... Y en el combobox "proveedor" coloco la descripción de lo que este haciendo y este me arroja un filtro en el listbox de lo que necesito basado en esos dos datos... Todo bien..
El detalle que presento es que quisiera abrir un 3er combobox.. Para que ahí coloque una fecha final...
Osea que en el combobox "vehículo" coloque la fecha inicial... En el combobox "nuevo" coloque la fecha final y en el combobox "proveedor" coloque el concepto de búsqueda...
Así en base a esos 3 datos me filtre unos datos y este se refleje en el listbox ya existente... Espero me puedan apoyar...
Private Sub vehiculo_Change2()
Dim i As Byte, tot As Double, tot1 As Double
'Evito movimientos de la pantalla
Application.ScreenUpdating = False
Dim fila, a As Integer
On Error Resume Next
'Borra datos del listbox
ListBox1.Clear
TextBox2 = ""
TextBox1 = ""
propietario = ""
a = 0
fila = 1
'Bucle mientras la fila no esté vacia
While Sheets("GASTOS_BODEGA").Cells(fila, 4) <> Empty
dato = CDate(vehiculo)
'Si el dato de la fila coincide con textbox carga los datos al listbox
Var = Sheets("GASTOS_BODEGA").Cells(fila, 2)
If vehiculo = "" Then
If proveedor = "" Then
Else
If Sheets("GASTOS_BODEGA").Cells(fila, 4) = proveedor Then
filtrar fila
End If
End If
Else
If Sheets("GASTOS_BODEGA").Cells(fila, 3) = CDate(vehiculo) Then
If proveedor = "" Then
filtrar fila
Else
If Sheets("GASTOS_BODEGA").Cells(fila, 4) = proveedor Then
filtrar fila
End If
End If
End If
End If
'Aumento la fila para que pase a la siguiente
fila = fila + 1
Wend
'Devuelvo movimientos de la pantalla
Application.ScreenUpdating = True
If ListBox1.ListCount > 0 Then
For i = 0 To ListBox1.ListCount - 1
' Cambia el punto por una coma "," (".")
ListBox1.List(i, 3) = Format(ListBox1.List(i, 3), "$ #,##0.00")
ListBox1.List(i, 6) = Format(ListBox1.List(i, 6), "$ #,##0.00")
tot = tot + ListBox1.List(i, 3)
If ListBox1.List(cuenta, 0) <> "" Then
m = m + 1
End If
'' ListBox1.List(i, 3) = Replace(ListBox1.List(i, 3), ",", Application.DecimalSeparator)
'tot1 = tot1 + ListBox1.List(i, 3)
vehiculo = Format(vehiculo, "dd/mm/yy")
Next i
' Cambia el punto por una coma "," (".")
'TextBox1 = Replace(TextBox1, ",", Application.DecimalSeparator)
TextBox2 = Format(tot, "$ #,##0.00")
TextBox1 = m
End If
End Sub
1 respuesta
me pudieses apoyar adecuando el código?
ya investigue y me han servido los códigos que me compartiste, sin embargo como los llevo al listbox.
hacer un código es volver a comenzar...:c
Y terreno nuevo para mi lo de controlar los filtros avanzandos..
gracias
Aquí otro ejemplo
