اخفاء واظهار الأيام في ورقة إكسل

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

لهدا أضع بين أيديكم هذا البرنامج الجميل و الشيق في و رقة إكسل حتى يستفيذ الجميع منه

مصدر البرنامج

Sub all()
Application.Run "Hidden"
Application.Run "pri1"

End Sub

Sub Hidden()
Dim Cl As Range
    For Each Cl In Range("a3:a103")
        If Cl.Value = Range("k2") Then
            Cl.EntireRow.Hidden = True
        End If
    Next Cl

End Sub
Sub Show()
Dim Cl As Range
    For Each Cl In Range("a3:a103")
        If Cl.Value = Range("k2") Then
            Cl.EntireRow.Hidden = False
        End If
    Next Cl

End Sub



Sub pri1()
'
' prient ماكرو
'

'
    Range("C6").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub


Sub Macro2()
'
' Macro2 ماكرو
'

'
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

التحميل من هنا