فلترة الصفحة حسب معيار التاريخ بإستخدام الفورم المرفق

[Mohmad83]

السلام عليكم ورحمة الله وبركاته 

الاخوة الاساتذة وفقكم الله وجزاكم كل الخير لما قدمتموه وستقدموه .

ارجو من سيادتكم التفضل بتفعيل زر filter لفلترة التاريخ حسب ما يتم كتابته في الفورم…  علما ان هذه الفورم نموذج مصغر وليس هو الغاية .. ختاما لا يسعني إلا ان اشكركم جزيل الشكر . تحياتي لكل الكادر والاعضاء 

filter-date.xlsm

[سليم حاصبيا]

مع اني لا أحب التغامل مع اليوزرفورم 

اليك هذا الملف

Private Sub CommandButton1_Click()
Sheets("Sheet1").Rows.Hidden = False
Sheets("Sheet1").Cells(2, "H").Resize(, 2) = ""

If Me.TextBox1 = "" Or Me.TextBox2 = "" Then Exit Sub
Dim Mx As Date, Mn As Date

Mx = Application.Max(Me.TextBox1, Me.TextBox2)
Mn = Application.Min(Me.TextBox1, Me.TextBox2)
Dim I%, Ro%

Ro = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
 Sheets("Sheet1").Cells(3, 1).Resize(Ro).Rows.Hidden = True
 
 For I = 3 To Ro
  If CDate(Sheets("Sheet1").Cells(I, 2)) >= Mn And _
  CDate(Sheets("Sheet1").Cells(I, 2)) <= Mx Then _
  Sheets("Sheet1").Cells(I, 1).EntireRow.Hidden = False
 Next
  
  Sheets("Sheet1").Cells(2, "H") = Mn
  Sheets("Sheet1").Cells(2, "I") = Mx: Unload Me

End Sub

الملف مرفق

filter-date_Sal.xlsm

[Mohmad83]

تماماً هو المطلوب..  عاشت اناملك سيدي العزيز .. جزاك الله كل الخير الاستاذ  سليم حاصبيا

استاذ سليم هل ممكن اضافة كود لالغاء الفلترة والعودة بالشيت الى وضعه ما قبل الفلترة ؟

[سليم حاصبيا]

17 دقائق مضت, Mohmad83 said:

استاذ سليم هل ممكن اضافة كود لالغاء الفلترة والعودة بالشيت الى وضعه ما قبل الفلترة ؟

هذا الكود البسيط

Sub Show_all()
Sheets("Sheet1").Rows.Hidden = False
End Sub

 

[Mohmad83]

رائع جد استاذ ان ممنون لك