מקרו לבחירת שמות מטבלת ציר

[rozent1]

מקרו לבחירת שמות מטבלת ציר

שלום
בווינדוז 7 אקסל 10 ברצוני לבנות מקרו שמאפשר בחירת שמות מטבלת ציר - שמות שהמשתמש רושם בתאים מוגדרים מחוץ לטבלה
אני מצרף קובץ

תודה חיים רוזנט

 

[שרון ברק2]

תשובתי

לפני שאתה מתאמץ עם מקרו , ניסית מסנן דוחות

 

[rozent1]

מקרו לבחירת שמות מטבלת ציר

מובן ששקלתי
המשתמש חייב לעבוד עם טבלת הציר ולשלוף מתוך הטבלה
היות והוא צריך לשלוף לפחות 7 שמות בכל פעם ומתוך מספר טבלאות ציר
אני זקוק למקרו כפי שביקשתי
תודה

 

[iyyi]

נסה את המאקרו הזה

Sub FilterPivot()
a = [K2]: b = [L2]: c = [M2]
With ActiveSheet.PivotTables("pivottable5").PivotFields("שם")
    For Each pt In .PivotItems
       pt.Visible = True
        n = pt.Name
        If n <> a And n <> b And n <> c Then pt.Visible = False
    Next
End With
End Sub

 

[rozent1]

מקרו לבחירה לפי תאים

תודה רבה
עזרת לי מאד