طلب اخفاء صفوف مشروط بقيمة خلية

[محمد رسلان]

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

 احبائي أعضاء المنتدى الغالي على قلوبنا

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

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

ومرفق ملف فيه زر ماكرو ولكن لتوضيح المطلوب فقط .

 وشكرا جزيلا 

اخفاء صفوف.rar

[أبو حنــــين]

استعمل هذا الكود للاخفاء و الاظهار حسب قيمة الخلية

Sub Macro2()

Application.ScreenUpdating = False
 For Each cl In Range("B6:B20")
With cl
If .Value = 1 Then .Rows.EntireRow.Hidden = True Else .Rows.EntireRow.Hidden = False
End With
Next
Application.ScreenUpdating = True


End Sub

[محمد رسلان]

الف شكر يا ابو حنين 

ويا ريت كمان لو بتقل عليك كود آخر لاظهار الصفوف المخفية التي قيمتها تغيرت ولا تساوي الواحد

[أبو حنــــين]

هو نفس الكود يقوم بالاظهار و الاخفاء

جرب وضع عملية في احد الخلايا المعنية معادلة جمع مثلا

مثال

الخلية B10 معنية بالاخفاء

ضع المعادلة التالية في الخلية  B10

=D1+D2

ثم ضع D1=0   و D2=1 ليكون الناتج في الخلية B10  هو 1

اضغط على الزر يختفي السطر

غير قيمة D1  او  D2  ليكون الناتج 2 او 3 او 4 او .... واضغط مرة اخرى على نفي الزر فيظهر الصف

[محمد رسلان]

الاستاذ / ابو حنين جزاك الله خيرا 

فعلا هذا هو المطلوب والف شكر لهذا المنتدى الرائع

[محمود_الشريف]

أخى فى الله

أستاذى القدير / ابو حنين

ما شاء الله عليكم

بارك الله فيكم

دمتم فى أمان الله وحفظه

وتقبلوا منى وافر الإحترام والتقدير