كيف اخفي اي صف يحتوي خليه "R" علي صفر في نطاق عامول كامل

[تامر خليفه]

مرحبا للجميع

كما بالعنوان 

في جدول قد يطول او يقصر حسب البيانات

كيف اخفي صف كامل اذا كانت الخليه "R"   تحتوي علي صفر

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

    Range("R8").Select
    Range("R8").Activate
If ActiveCell.FormulaR1C1 = "0" Then
    Selection.EntireRow.Hidden = True
    End If

ولكن هذا الكود في نطاق صغير محدد

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

فما الحل

وشكرا مقدما للتفاعل
 

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

جرب هذين الكودين

الاول لاخفاء الصفوف التي تحتوي عل صفر في العامود R

و الثاني لاظهار كل شيء

Sub hide_rows_with_zero()
Application.ScreenUpdating = False
ActiveSheet.Cells.EntireRow.Hidden = False
rr = Cells(Rows.Count, "r").End(3).Row
For k = 1 To rr
 If Cells(k, "r") = 0 Then Cells(k, "r").EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
'============================================
Sub Unhide_ALL()
ActiveSheet.Cells.EntireRow.Hidden = False
End Sub
'========================================

 

[تامر خليفه]

الكود لا يعمل ويظهر خطا 

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

3 ساعات مضت, تامر خليفه said:

الكود لا يعمل ويظهر خطا 

ارفع الملف او جزءًا منه اذا كان كبيراً لاكتشاف المشكل