Macro Filtra por rango de Fechas

[Antonio1099]

Hola a todos

Encontré está macro en Internet, la cual me pareció que me podía funcionar, pero, quizás yo esté haciendo algo mal. Explico lo que necesito:

Requiero que a través de este formulario me permita filtrar las celdas que contenga los días que señale, por ejemplo:

Filtrar la información del 23/06/2016 al 01/07/2016 y que solamente me muestre la información con este filtro de fechas.

Anexo un ejemplo que diseñe.

 

Espero que me puedan apoyar.

Prueba Fechas.xlsm

[Antoni]

 

'Una opción
Private Sub CommandButton1_Click()
Sheet1.Range("A1").AutoFilter _
                   Field:=7, _
                   Criteria1:=">=" & CDbl(CDate(TextBox1)), _
                   Operator:=xlAnd, _
                   Criteria2:="<=" & CDbl(CDate(TextBox2))
End Sub

'Otra opción
Private Sub CommandButton1_Click()
Sheet1.Range("A1").AutoFilter _
                   Field:=7, _
                   Criteria1:=">=" & Format(TextBox1, "yyyy/mm/dd"), _
                   Operator:=xlAnd, _
                   Criteria2:="<=" & Format(TextBox2, "yyyy/mm/dd")
End Sub
 
   

 

Otra opción