أساتذتي الأفاضل:
أرفقت لكم ملف بحاجة الى مساعدتكم في إيجاد حل له، حيث أن المطلوب هو حذف الاعمدة التي مجموع خلاياها يساوي صفر، وقد قمت بتشغيل الكود أدناه لكنة يصل الى عمود معين ثم يتوقف ولا يحذف كل الاعمدة المطلوبة، علماً بأني قد حددت النطاق المراد العمل به، لذا أرجو منكم التكرم بمساعدتي في الحل، كذلك توضيح وشرح الخلل في الكود أدناه الامر الذي جعله لا يعمل كما هو مطلوب.
وجزاكم الله خيراً
() Sub Delete_Zero
For i = 2 To 183
If Cells(284, i) = 0 Then
Cells(284, i).EntireColumn.Delete
End If
Next i
End Sub
Delete zero.rar