Como activar y desactivar un combox en excel según tres criterios de rangos de fechas
Tengo una consulta existe una posibilidad de filtrar datos de una planilla de timbrados vencidos y no vencidos utilizando tres combox por ejemplo:
Combox 1: Desde fecha - Hasta fecha, este combox me debe permitir solo ingresar el rango de fechas de manera ilimitada o sea que me de libertad de elegir fechas.
Combox 2: Mes anterior, al elegir este combox debe leer el reloj de la computadora ejemplo si estamos en setiembre, que el combox se rellene de manera automática que se coloque por si solo 01/08/2015 al 31/08/2015.
Combox 3: Hasta la fecha: este combox debe darme la opción de limitarle hasta cierta fecha que me estire todos los datos de los timbrados vencidos y no vencidos.
Si me podrías ayudar
1 Respuesta
Te anexo el código para los combos de fechas
Private Sub ComboBox1_Change()
'Por.Dante Amor
Select Case ComboBox1.ListIndex
Case 0
ComboBox2 = ComboBox2.List(0)
ComboBox3 = ComboBox3.List(ComboBox3.ListCount - 1)
ComboBox2.Enabled = True
ComboBox3.Enabled = True
Case 1
ComboBox2 = ComboBox2.List(0)
ComboBox3 = ComboBox3.List(ComboBox3.ListCount - 1)
ComboBox2.Enabled = False
ComboBox3.Enabled = True
Case 2
udia = Day(DateSerial(Year(Date), Month(Date), 1) - 1)
ComboBox2 = DateValue("01/" & Format(Month(Date) - 1, "00") & "/" & Format(Date, "yyyy"))
ComboBox3 = DateValue(udia & "/" & Format(Month(Date) - 1, "00") & "/" & Format(Date, "yyyy"))
ComboBox2.Enabled = False
ComboBox3.Enabled = False
End Select
End Subs aludos
