اخفاء الاسطر الفارغة

[أحمد بوغفالة]

السلام عليكم احتاج مساعدة عندي ملف اكسل لعلمات الطلاب 

بعد ترحيل الطلبة الناجحين الى الشيت الخاص بهم 

في بعض الاحيان تبقى اسطر كثيره فارغة بين اخر طالب و توقيع الاستاذ في اخر الصفحة 

احتاج كود او معادلة تقوم باخفاء الاسكر الفارغة بين اخر طالب و توقيع الاستاذ

و كمثال ارفقت لكم هذا الملف

و تقبلوا مني فائق الشكر و التقدير

اخفاء الاسطر الفارغة.rar

تم تعديل يوليو 1, 2017 بواسطه أحمد بوغفالة

[Elhelaly]

السلام عليكم

لماذا لا تستخدم 

PivotTable

بدلا من المعادلات سيكون اسهل بكثير

وقم بوضع سطر اخر الجدول به كلمة "توقيع المدرس" وستظهر باخر الجدول بعد الفلتر واستبعاد "راسب"

[سليم حاصبيا]

جرب هذا الملف

 

Nag_Ras.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

انسخ الكودين التاليين والصقهما فى موديول وخصص لكل منهما زر

الاول للاخفاء والثانى للاظهار

Sub HideColumn()
lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
a = WorksheetFunction.CountA(Sheet2.Range("A1:A" & lr))
b = WorksheetFunction.CountBlank(Sheet2.Range("A1:A" & lr))
c = a - b + 1
d = a - 1
Rows(c & ":" & d).EntireRow.Hidden = True
End Sub
Sub UnHideColumns()
lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
a = WorksheetFunction.CountA(Sheet2.Range("A1:A" & lr))
b = WorksheetFunction.CountBlank(Sheet2.Range("A1:A" & lr))
c = a - b + 1
d = a - 1
Rows(c & ":" & d).EntireRow.Hidden = False
End Sub