كود اخفاء سطور بالتاريخ من الى تاريخ

[abouelhassan]

السلام عليكم اخواتى الاساتذة

احتاج كود للفورم لاخفاء الاسطر التى تحمل تواريخ من تاريخ الى تاريخ فى كل الصفحات ماعدا اول صفحتين مع الشكر مثلا اخفاء السطور من تاريخ 2/1/2020 الى 30/1/2020 مع الشكر

اخفاء السطور وظهارها بالتاريخ.xlsm

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

لا أعتقد انه هناك حاحة لليوزر في هذه الحالة

اكتب التاريخ الأصغر في الخلية D1  والتاريخ الأكبر في الخلية F1  من الصفحة  Sheet1 ونفذ الماكرو الاول

الماكرو الثاني لازالة الفلترة

Sub MY_FILTER()
'First Macro+++++++++++++++++++++++++++++++++++
Dim sh As Worksheet
 For Each sh In Worksheets
 If sh.Name = "Sheet1" Or sh.Name = "Sheet2" Then
    Else
    On Error Resume Next
     sh.ShowAllData
    On Error GoTo 0
    
    sh.Range("MM2").Formula = "=AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1)"
    sh.Range("A1").CurrentRegion.AdvancedFilter 1, sh.Range("MM1:MM2")
    sh.Range("MM1:MM2").Clear
  End If
 Next
 End Sub
 'Second Macro+++++++++++++++++++++++++++++++++++
Sub Show_all()
Dim sh As Worksheet
 For Each sh In Worksheets
    On Error Resume Next
      sh.ShowAllData
     On Error GoTo 0
  Next
End Sub

الملف مرفق

 

Data_Between.xlsm

[abouelhassan]

حضرتك حبيبى ياباشا والله

الكود لم ينفذ اضغط على فيلتر وشو لا يحدث شىء

لا املك مكان بالشيت لوضع الخليتين الخاصتين بالتاريخ اريد االفلترة او الاخفاء يتم لكل الصفحات بدأ من الصفحة 3 اول صفحتين لا

لذلك لجئت لفكرة الفورم 

ربنا يبارك لك فى كل اسرتك الكريمة وكل احبائك

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

بعد الضغط على فلتر اذهب الى الصفحات من 3 الى الأخير وشاهد ماذا جرى (أنت تريد استثناء الصفحتين الأولى والثانية)

[abouelhassan]

انااسف استاذى والله الكود لم يعمل معى 

وجربت كل شى

احترامى الشديد جدااااااااااااا

انا احتاج لطباعة بيانات فى كل الشيتات مع اخفاء الشهور السابقة كلها

لذلك احتاج الى كود بالتاريخ لاخفاء هذه الصفوف حتى اتمكن من طباعة الصفوف المرغوب تاريخها 

كل احترامى  لشخصك الكريم جدااااااااااا

حبيبى والله

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

5 دقائق مضت, abouelhassan said:

انااسف استاذى والله الكود لم يعمل معى 

وجربت كل شى

احترامى الشديد جدااااااااااااا

نفذ الكود ثم خذ صورة للشيت 3 مثلاً ( الخلايا D1  و  F1 يجب ان تكون تاريخاً  موجوداَ في الجدول)

من ناحية اخرى هل من المغقول بيت ملايين الخلايا ان لا تجد خليتين لادراح التاريخ (ضعهما في اخر عامودين من الاكسل وعدّل في الكود على عنوانهما)

لو لاحظت الكود انا وضعت في الخلية  MM2 (بعيدة جداً عن الجدول) معادلة تم مسحتها بد تنفيذ الكود مباشرة

[abouelhassan]

هذا ما يحدث استاذى 

مع الشكر

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

2 دقائق مضت, abouelhassan said:

هذا ما يحدث استاذى 

مع الشكر

واين الخطأ في هذا 

لقد تم اخفاء الصفوف من 22 الى 112 (حيث شروط التاريخ غير مطابقة)

 

 

[abouelhassan]

تمام استاذنا الكريم بس 

التاريخ الى انا كاتبه من 2/1 الى 20/1

هو الى ظهر هل ده معناه انى اكتب تاريخ الى اريد اظهاره

مشكوررررررررررر ياباشا ربنا يحفظك يارررررررررررررررب ويخليك لينا اللهم امين

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

2 دقائق مضت, abouelhassan said:

تمام استاذنا الكريم بس 

التاريخ الى انا كاتبه من 2/1 الى 20/1

هو الى ظهر هل ده معناه انى اكتب تاريخ الى اريد اظهاره

مشكوررررررررررر ياباشا ربنا يحفظك يارررررررررررررررب ويخليك لينا اللهم امين

اذا كنت تريد العكس 

استبدل هذا السطر في الكود

sh.Range("MM2").Formula = "=AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1)"

ال هذا

sh.Range("MM2").Formula = "=NOT(AND(A2>=Sheet1!D1,A2<=Sheet1!$F$1))"

 

[abouelhassan]

تم عمل الكود ينفع استخدم خليتين التاريخ الى بالصفحة التانية الى هو التقرير لتنفيذ الكودين استدعاء البيانات للتقرير ولاخفاء السطور التى لا اريد طباعتها

استاذنا مع الشكر والاحترام والتقدير