لعلها المعلوم لم توصلة حسبما أردت أنا .
أقصد أن تختفي الصفوف كامل إذا كان في الخلية صفر ولكن تختفي بزر وتظهر بزر
أقصد هذا الكود بس لم أعرف كيف أجعله ينفذ
Option Explicit
Sub RG_Hide()
Dim LR As Integer, i As Integer
LR = Cells(Rows.Count, 2).End(xlUp).Row
'=======================================
Application.ScreenUpdating = False
For i = LR To 8 Step -1
If Cells(i, 7).Value = "0" Or IsEmpty(Cells(i, 7)) Then
Rows(Cells(i, 7).Row).Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
Sub RG_Show()
Cells.Rows.Hidden = False
End Sub