كود_إخفاء الصفوف والأعمدة الفارغة عند الطباعة

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

 

حتى لا ننسى هذه المشاركة   اخفاء تلقائي للصفوف

 

تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

 

 

مرفق الملف

 

إخفاء الصفوف والأعمدة الفارغة عند الطباعة فقط وبعد الطباعة يعود الوضع لما كان عليه

HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS_IF_PRINT.rar

 

اخفاء الصفوف والأعمدة الفارغة 

HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS.rar

 

مشاركة اخرى من الفاضل أ / عادل حنفي

الكود الذي به هو

 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

 

 

 و لا تنسونا من صالح الدعاء

تحياتى