بسم الله الرحمن الرحيم
وجت الكود الخاص الموضوع هذا والكود هو
Sub eldefry
For a = 27 To 122
TEST = Sheets("1").Cells(a, 5
If (TEST) = "" Then
Rows(a).Hidden = True
Else
Rows(a).Hidden = False
End If
Next a
End Sub
مع العلم باسم الشيت المستخدم و حدود الخلايا الواجب اخفائها