كود اخفاء اعمدة و صفوف مجموعها صفر

[صلاح الصغير]

الاساذة الافاضل

هذا الكود يقوم باخفاء اعمدة حاصل مجموع صفوفها = 0 اى اعمدة بدون بيانات

المطلوب دمجه مع كود اخر لاخفاء الصفوف الخالية ايضا لضبط الطباعة

الصفوف المطلوب اخفائها من n7:n200 فى حالة اي منهم = 0

 

الملخص : اريد عدم طباعة اعمدة او صفوف بدون بيانات تكون مجموع العمود او الصف  = 0

 

Sub ÅÎÝÇÁ_ÇáÝÇÑÛ()

Application.ScreenUpdating = False

Dim Cl As Range

    For Each Cl In Range("d201:m201")

               If Cl.Value = 0 Then

            Cl.EntireColumn.Hidden = True

   End If

       Next Cl

    

        Range("A1").Select

    Application.ScreenUpdating = True

    

End Sub

 

Sub ÅÙåÇÑ_ÇáÝÇÑÛ()

Application.ScreenUpdating = False

    Columns("d:O").Select

    Selection.EntireColumn.Hidden = False

    Range("A1").Select

    Application.ScreenUpdating = True

End Sub

تم تعديل أكتوبر 1, 2014 بواسطه صلاح الصغير

[صلاح الصغير]

اين انتم يا عباقرة المنتدى

 

Copy of برامج ولجان.rar

[طارق محمود]

السلام عليكم

أخي الكريم 

تفضل الملف به ماطلبت

برامج ولجان2.rar

[صلاح الصغير]

ا/ طارق 

 

الف شكر

و هو المطلوب