اريد مساعدة

[eldefry]

يسم الله الرحمن الرحيم

ارجوا المساعدة لمعرفة الاتى

عندى جدول يوجد بة ارقام وفى وسط الارقام خلايا فى نفس الصف خالية من الارقام واريد ان اخفيها من الجدول وعند ظهور ارقام فى الخلايا المخفية تظهر تلقائى واخفاء الباقى من الصفوف الغير مكتوب فيها

ارجوا المساعدة وجزاكم الله كل خير

[eldefry]

بسم الله الرحمن الرحيم

وجت الكود الخاص الموضوع هذا والكود هو

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

مع العلم باسم الشيت المستخدم و حدود الخلايا الواجب اخفائها

[h63]

السلام عليكم

من فضلك ارفق شيت به الفكرة للتوضيح

هشام