كود احفاء صفوف واظهار

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

االاخ الفاضل طارق محمود

جزاك الله خيرا  اخى الحبيب ... الملف قيد التجربه  وان شاء الله هيكون هو المطلوب

والشكر الوافر للاخى اللحبيب شوقى اعلم انى اثقلت عليه  وكذلك الخ الفاضل حمادة عمر

والشكر الواجب لاخت الفضله ام عبد الله جزاكى الله خيرا

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز طارق محمود

الكود يعمل بصوره جيده جدا

 

ويبقى طلب اخير ... هل يمكن التغلب على نبض الشاشه  .. المترتب على الاخفاء او الاظهار

 

واذا ان ان اغير

الشرط الذي علي أساسه يخفي الخلية ويظهرها أن خلية العمود M شرطها أن تحتوي علي 0 ... ويكون الشرط 1 تجنباً  لاى خطاء ناتج عن ان اى خليه فى العمود M يكون محتواها 0 

 

سيكون التغير  If Range("M" & i) <> 0 Then GoTo 10

 

كهذا          If Range("M" & i) <> 1 Then GoTo 10

 

 

سلمت يداك وجعله الله فى ميزان حسناتك ان وجميع من شارك فى الموضوع