اخفاء لما تكون فارغة و اظهار لما تكون بها مبلغ تلقائيا

[Abhsaid]

اخفاء  الخطوط لما تكون فارغة و اظهارها  لما تكون  بها مبلغ تلقائيا 

مبيعات.xlsx

[hegazee]

تفضل أخي الكريم باستخدام معادلة في التنسيق الشرطي

مبيعات(2).xlsx

[أ / محمد صالح]

عليكم السلام ورحمة الله وبركاته

حتى يعمل الكود تلقائيا يجب ربطه بحدث مثل تغيير التحديد أو تغيير محتوى الشيت

وهذا الكود في حدث تغيير محتوى الشيت

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("1:16").EntireRow.Hidden = 0
For r = 1 To 16
If Range("b" & r).Value = 0 Then
Rows(r & ":" & r).EntireRow.Hidden = True
End If
Next r
End Sub

بالتوفيق للجميع