
Private Sub CommandButton1_Click()
Dim Inicio As Date, Fin As Date
Dim F_I As String, F_F As String
ActiveSheet.AutoFilterMode = False
Range("A2").CurrentRegion.Select
Inicio = CDate(TextBox1): Fin = CDate(TextBox2)
Hoja3.Select: Range("A1").Select: Selection.AutoFilter
F_I = Month(Inicio) & "/" & Day(Inicio) & "/" & Year(Inicio)
F_F = Month(Fin) & "/" & Day(Fin) & "/" & Year(Fin)
Range("A1:G" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter _
Field:=7, Criteria1:=">=" & F_I, Operator:=xlAnd, Criteria2:="<=" & F_F
End Sub

Usuarios navegando por este Foro: Google [Bot] y 7 invitados