Filtrar entre dos fechas con variables Excel VBA
Para filtrar una sola fecha me funciona bien:
TextBox8 = Date
TextBox8 = Format(Date, "dd-mm-yyyy")
fecha = "=" + TextBox8
Worksheets("bd_ventas").Activate
ActiveSheet.Range("A:J").AutoFilter Field:=1, Criteria1:= _
fecha, Operator:=xlAnd
Pero para filtrar dos fechas no me toma los datos en el filtro... ¿qué puede ser?
Columns("A:J").Select
TextBox9 = Format(TextBox9, "dd-mm-yyyy")
TextBox8 = Format(TextBox8, "dd-mm-yyyy")
fecha = TextBox8
fecha2 = TextBox9
fecha3 = ">=" + fecha
fecha4 = "<=" + fecha2
ActiveSheet.Range("A:J").AutoFilter Field:=1, Criteria1:= _
fecha3, Operator:=xlAnd, Criteria2:=fecha4
1 Respuesta
Quedaría así:
Private Sub CommandButton1_Click()
ActiveSheet.Range("A:J").AutoFilter Field:=1, _
Criteria1:=">=" & Format(CDate(TextBox8), "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(CDate(TextBox9), "mm/dd/yyyy")
End SubRecuerda que para filtrar debes formatear la fecha a formato inglés "mm/dd/yyyy"
En los textbox puedes tener dd/mm/aaaa:
10/03/2017 (10 de marzo de 2007)
Pero al filtrar hay que ponerlo en inglés .
Tienes pendiente valorar la respuesta anterior.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
¡Gracias! Funciono a la perfección
