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
المطلوب ربطه بخليه أقوم بكتابه الرقم المطلوب اخفاء صفوف بناءا على هذة القيمة