إظهار أعمدة التواريخ بين يومين معينين

[morsy515a]

المطلوب اظهار الاعمدة التي تحتوى علي التواريخ بين يوم معين الي يوم اخر (من و الى) و اخفاء الباقى وشكرا 

مرفق ملف للتوضيح

( اريد طريقة تتغير تلقائي بمجرد تغيير قيم الخلايا 

و طريقة استخدام زر )

مساعدة ضرورى جدا يا شباب

وشكرا لاهتمامك

Book1a.xlsm

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

جرب هذا الماكرو

الاول لاخفاء ما تريد

الثاني لاظهار الكل

Option Explicit
Rem First Macro
Sub show_hide_col()
Range("f6:Au6").Columns.Hidden = True
Dim x%: x = Evaluate("MATCH(D2,$F$6:$AU$6,0)") + 5
Dim y%: y = Evaluate("MATCH(D3,$F$6:$AU$6,0)") + 5
Range(Cells(1, x), Cells(1, y)).EntireColumn.Hidden = False
End Sub
'===============================
Rem Seconde Macro
Sub show_all()
Range("f6:Au6").Columns.Hidden = False
End Sub

 

[morsy515a]

شكرا جزيلا يا محترم

ربنا يجعلة في ميزان حسناتك