هذا الكود من أعمال استاذى الفاضل الاستاذ دغيدى ارجوا من الأخوة تعديل بعض الشئ فيه

[Ashraf Attia Abu Zaid]

Option Explicit
Sub إخفاء()
Dim Cl As Range
    For Each Cl In Range("I9:I208")
        If Cl.Value < 50 Or Range("k2") Then
            Cl.EntireRow.Hidden = True
        End If
    Next Cl
End Sub
Sub إظهار()
Dim Cl As Range
    For Each Cl In Range("I9:I103")
        If Cl.Value < 50 Or Range("k2") Then
            Cl.EntireRow.Hidden = False
        End If
    Next Cl
End Sub

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

[عبدالفتاح في بي اكسيل]

بما  انك  لا  تريد  رفع  ملف   

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

جرب  هذا  الماكرو  لعله يفيدك اكتب  القيمة في  الخلية k2     وغير  المدى   الذي  تريده  ان  ينفذ عليه 

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Application.ScreenUpdating = False
    
    Dim target As String
    target = Range("k2").Address
    
    If Target.Address = target Then
        Dim cell As Range
        For Each cell In Range("a1:g6")
            If cell.Value < 50 Then
                cell.EntireRow.Hidden = True
            Else
                cell.EntireRow.Hidden = False
            End If
        Next cell
    End If
        
    Application.ScreenUpdating = True
    
End Sub

 

[Ashraf Attia Abu Zaid]

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

الملف.xlsb

[عبدالفتاح في بي اكسيل]

جرب  هذا  التعديل 

الملف (1).xlsb

[Ashraf Attia Abu Zaid]

بارك الله فيكم استاذى الفاضل عبدالفتاح لو امكن ممكن يربط بزر لإظهار الخلايا المخفية بعد الطباعة 

نرجوا المساعدة فى هذا الكود الأخوة الفضلاء وجزاكم الله خيرا لأنى محتاجة ضرورى

الملف).xlsb