سؤال عن كود لاخفاء الاعمدة التى يوجد بها ارقام

[رشا يوسف]

ققققق.rar

 السؤال عن اخفاء الاعمدة التى  لا يوجد بها ارقام او كلها خلايا فارغة 0 

[ياسر خليل أبو البراء]

أختي الفاضلة

ما هو النطاق المراد العمل عليه ؟ هل هو C17:X17 فقط .. ؟ مزيد من التوضيح حيث ان التوضيح المرفق في المرفق غير مطابق للمرفق

[رشا يوسف]

yyyyy.rar الاستاذ الجليل / ياسر 
النطاق هو  C17:X17  وتم توضيح المطلوب فى الملف المرفق 

[ياسر خليل أبو البراء]

جربي الكود التالي عله يفي بالغرض إن شاء المولى

Sub HideZeroColumns()
    Dim Cell As Range
    For Each Cell In Range("C17:X17")
        If IsEmpty(Cell) Or Cell = 0 Then Cell.EntireColumn.Hidden = True
    Next Cell
End Sub

كل عام وأنتي بخير