احتاج ماكرو اخفاء السطور التى بين التاريخ فى a2 ,b2

[omhamzh]

السلام عليكم ورحمة الله اهل المنتدى

ارجو مساعدتى

المطلوب إخفاء السطور التي بين التاريخ فىA2,B2

اذا كان التاريخ فى العمود a يقع بين او يساوى التاريخ فى A2 وB2 يتم اخفاء  وذلك حتى اتمكن من طباعة السطور وزر اخر لاظهارها مرة اخرى مع الشكر والدعاء

المبلغ عن مدة اخفاء السطور.xlsm

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

Try This Macro

Option Explicit

Sub Hide_rows()
Dim Main_Rg As Range
Dim cel As Range
Dim Min_date As Date, Max_date As Date

show_rows
With Sheets("نوفمبر 2020")
    
    Min_date = Application.Min(.Range("A2:B2"))
    Max_date = Application.Max(.Range("A2:B2"))
    Set Main_Rg = .Range("A4").CurrentRegion.Offset(1).Columns(2)
    
    For Each cel In Main_Rg.Cells
        If cel >= Min_date And cel <= Max_date Then
           cel.EntireRow.Hidden = True
        End If
    Next
End With
End Sub
'++++++++++++++++++++++++++++++++++++++
Sub show_rows()
 Sheets("نوفمبر 2020").Rows.Hidden = False
End Sub

Om_hamz_hid_rowa.xlsm

[omhamzh]

الله الله تسلم وتعيش اكثر الله مالك وعلمك وبارك لك فى اهل بيتك اللهم امين

حفظك الله استاذ سليم