اخفاء السطر

[زاكي بوشلاغم]

كيفية انشاء زر لي حذف الاسطر التي  تكون  فيها  قيمة  الصفر لكي  تطبع  الأسطر  بقيم  الصفر في  الجدول     ثم  الظغط  على  الزر  مرة  اخرى  لكي  تعود  هذه  القيمة  في  الجدول كما كانت     والملف  يوضح  ذلك

Classeur2.rar

تم تعديل سبتمبر 15, 2013 بواسطه زاكي بوشلاغم

[أبو عبد الملك السوفي]

السلام عليكم

تفضل أخي الكريم عسى أن يكون هو المطلوب

 

Classeur2.rar

[الـعيدروس]

Public Bn As Boolean
Public Sub Ali_Brnt()
With ActiveSheet
  C = .Cells(.Rows.Count, 6).End(xlUp).Row
 For Cl = C To 36 Step -1
  If .Cells(Cl, 6).Value = 0 Then .Cells(Cl, 6).EntireRow.Hidden = Not Bn
 Next
 .PrintPreview
 .UsedRange.EntireRow.Hidden = Bn
End With
End Sub

[زاكي بوشلاغم]

لم افهم

[أبو عبد الملك السوفي]

السلام عليكم

أخي الكريم مالذي لم تفهمه

[أبو عبد الملك السوفي]

السلام عليكم

هذا اهو الملف مع كود حبيبنا عباد

Classeur3.rar