الكود الاول يعمل بشكل صحيح الخاص بحذف الخلايا بناء على قيمة خلية
بالنسبة للطلب الاول
ارجو اذا كان قيمة خليه ف الصف رقم 17 يتم اخفاء كامل العمود
تم الوصول الى الكود الحمد لله
للافادة
Sub HideShowColumn()
Dim rRange As Range, rCell As Range
Set rRange = Range("A17", Range("IV17").End(xlToLeft))
For Each rCell In rRange: rCell.EntireColumn.Hidden = (rCell = 0)
Next rCell
End Sub