السلام عليكم
اخب الملف الذي ارفقته قد يكون اكل 2007
لذا لم استطع رؤيته
عموما ارسل لك ملف 2003 ارجو انك تستطيع قراءته
الكود الذي به هو
Private Sub CommandButton1_Click()
With Sheets("Sheet1")
With .UsedRange
For i = 3 To 41
If .Cells(i, 8).Value <= "0" Then
.Cells(i, 8).EntireRow.Hidden = True
End If
Next i
End With
End With
End Sub
و هذا الكود يعني انه بالورقة التي تسمي شيت1
بالصفوف من الصف الثالث و حتي الواحد والاربعون
اذا كانت الخليه التي احداثيها الصف 3 العمود 8
او الصف الرابع العمود 8 وهكذا قيمتها اصغر من او تساوي صفر
اذا تحقق هذا الشرط اخفاء الصف الذي به هذا الشرط محقق
وهكذا لاخر صف وهو صف 41
ارجو ان اكون وفقت بالتوضيح
تحياتي
hide.rar