اخفاء الصفوف الصفرية او الفارغة من اعمده فيها معادلات

[yesk269]

المطلوب إخفاء الصفوف التي جميع الحقول (الستة الاعمدة )  فيها صفر او فراغ 

وفق الملف الاكسل المرفق الذي به بيانات علي سبيل المثل 

كون عمود الختامي المدين والدائن هما معادلات احتساب 

hide.xlsx

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

استبدل اسم الصفحة الى  Salim  ( لحسن نسح الكود ولصقه بدون مشاكل اللغة العربية)

ثم نفذ هذا الكود

Option Explicit

Dim sh As Worksheet
Dim Rg As Range, cel As Range
Dim my_formula
'+++++++++++++++++++++++
Sub hid_Rows()
Application.ScreenUpdating = False
 show_all
For Each cel In Rg.Columns(2).Cells
    my_formula = _
      Application.CountA(cel.Resize(, 4))
      If my_formula = 0 Then
        cel.EntireRow.Hidden = True
      End If
Next
Application.ScreenUpdating = True
End Sub
'++++++++++++++++++++++++++++
Sub show_all()
 Set sh = Sheets("Salim")
 Set Rg = sh.Range("B4").CurrentRegion
 Rg.EntireRow.Hidden = False
End Sub

الملف مرفق

Yesk.xlsm

[yesk269]

شكرا جزيلا