DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.ShowAllData
Range("A1").AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(TextBox1.Text)), Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox2.Text))
End Sub