أريد اخفاء صفوف محددة بشرط معين

[moodyfy]

السلام عليكم

تحية احترام وتقدير لحضراتكم

قمت بانشاء ورقة لحساب السرقات يتم ترحيل البيانات منها الى تقرير الضبطية ( ورقة 20)

اريد فى ورقة الضبطية ان يتم اخفاء تلقائى للصفوف من 19 الى 33 بشرط ان تكون الخلايا التى تقع فى المدى ( نوع الوحدة ) c19:c33 تساوى  فراغ

وان يتم اظهارها تلقائى بمجرد التعديل فى ورقة الحسابات اذا لم يتحقق هذا الشرط

واسف للاطالة ... ومرفق لسيادتكم ملف العمل

السرقات 2021.xlsm

[moodyfy]

تم ايجاد الحل بالكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim cl As Range
Set rng = Range("c19:c33")
For Each cl In rng
If cl.Value = 0 Then
cl.EntireRow.Hidden = True
Else
cl.EntireRow.Hidden = False
End If
Next cl
End Sub