الرجاء المساعدة لعمل فلترة للبيانات من تاريخ معين الى تاريخ معين

[مازن امام]

السلام عليكم

المطلوب عند اظهر الفورم يقوم بعمل فلترة للبيانات من تاريخ معين (textbox 1) الى تاريخ معين (textbox 2)  .

ملاحظة :

اليوزرفورم يعمل بشكل جيد بدون التاريخ

mazen.rar

[أبو عبد النور]

السلام عليكم،

جرب التالي :

Private Sub CommandButton1_Click()
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:=">=" & Format(Me.TextBox1, "mm/dd/yyyy"), _
                                                       Operator:=xlAnd, Criteria2:="<=" & Format(Me.TextBox2, "mm/dd/yyyy")
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
                                                       Me.ComboBox1.Value
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:=Me.ComboBox2.Value

    TextBox3.Value = [J1].Value
End Sub

 

[مازن امام]

100 /100 

الف الف شكر