اخفاء خلية تساوى صفر وبها معادلات

[محمد مصراوى]

السلام عليكم

اخوتى يوجد عندى ملف به معادلات كثيرة ومن ضمن هذة المعادلات قيم تخرج (بصفر) فاردت اخفاء هذة الخلية من الورقة لان قيمتها تساوى صفر

فبحثت ووجد معادلة وعند تطبيقها لايمكن لتوقف عمل الكود

وهذا هو الكود

Private Sub Worksheet_Calculate()

Application.ScreenUpdating = False

For Each cell In Range("k10:k49")

If cell.Value = 0 Then

cell.EntireRow.Hidden = True

End If

Next cell

Application.ScreenUpdating = True

End Sub

فماذا افعل برجاء افادتى فى هذا الكود

" ملحوظة "

هل المعادلات تؤثر على الكود ام لا لاننى شيلت المعادلات وخليت قيمة الخلية تساوى صفر فاشتغل الكود

وشكرا

[ابو اسامة العينبوسي]

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each cell In Range("k1:k49")
If cell.Value = 0 Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

[محمد مصراوى]

اشكرك اخى على سرعة استجابتك لى

ولكن نفس المشكلة debug

فى سطر الاخفاء

وسوف ارفق الملف لكى يظهر لك

وشكرا لك اخى

t.rar

[محمد مصراوى]

اين انتم اخوتى

[نزار سليمان عيد]

السلام عليكم

انظر المرفق اخي وعذرا اخي ابو اسامة على المداخلة

t.rar