הדפסת טורים לפי תנאי

[במכינה]

הדפסת טורים לפי תנאי

ב"ה
שלום.
לפני טבלה גדולה אני מעונין להדפיס רק העמודים בהם מופיעים נתונים חיוביים (מעל 0)
לא בהסתר עמודות אלא באופן אוטומטי או בסינון כלשהו.
כמו שאפשר לסנן שורות...

 

[iyyi]

אפשר באמצעות מקרו

בקובץ המצורף יש שני כפתורים המפעילים שני מקרואים. אחד להסתרת עמודות והשני להצגתן. להלן הקוד של שתיהן:

Sub HideEmptyColumns()
For Each c In Columns("C:N")
    If WorksheetFunction.Sum(c) = 0 Then c.Hidden = True
Next c
End Sub

Sub UnHideColumns()
Columns("C:N").Hidden = False
End Sub

 

[במכינה]

תודה רבה רבה ובקשה לשיפור

ב"ה

ממש תודה על ההשקעה והקוד שיצרת עבורי.
עובד יפה. כעת כשאני מסנן ומציג רק עיר מסוימת הוא "זוכר" שיש בה פרטים מוסתרים ולכן הוא מציג גם את העמודות בעלי ערך 0 בעיר זו.
יש אפשרות שיעבוד גם לאחר סינון ויציג רק העמודות המלאות באותה העיר?

 

[iyyi]

שנה את קוד המקרו לזה...

Sub HideEmptyColumns()
For Each c In Columns("C:N")
    If WorksheetFunction.Subtotal(109, c) = 0 Then c.Hidden = True
Next c
End Sub

מצורף קובץ הדגמה