סינון שורות באקסל

[nach]

@אדרת חזק ביותר! אביא את הקוד כאן:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    
    On Error Resume Next
    'כאן מציינים שהתוכן שמענין אותנו נמצא בתא מסוים אך כמובן שאפשר ורצוי להחליף את כתובת התא כרצונכם'
    If Intersect(Target, Range("H1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ' נסיון זהו שם גיליון העבודה שלי תצטרכו לשנות לשם הגיליון שלכם'
    Set xPTable = Worksheets("נסיון").PivotTables("pivottable2")
    'לקוח זהו התא של הקריטוריון (תוכלו לזהות לפי מה שהגדרתם כמסנן)'
    Set xPFile = xPTable.PivotFields("לקוח")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
    
End Sub

צריך להכניס את הקוד בגיליון (לחיצה על הגיליון למטה ובתפריט בחירה 'הצג קוד' ושם לכתוב את הנ"ל, כמובן-בשינוים הנדרשים) ואז את קריטוריון הסינון הוא מבסס על התא שבחרתם. ובשביל לסנן כמה טבלאות בו זמנית לפי תא אחד צריך לרשום הנ"ל גם על הטבלה השניה ותלייתה באותו התא,

[The shadow]

@nach

יש לך מושג למה זה לא עובד לי?

[nach]

@אדרת מהסתכלות מינימילית בקוד שלך זה נראה שאולי טעית בהפניה לשם גיליון, כתבת "גלין 1" יותר נשמע כמו טעות! לא? תבדוק שוב, הקוד בכללי נראה מצוין כנראה שהטעות בשמות (תשווה את השם של הפיבוט תראה את זה בסרגל הכלים 'כלי פיבוט>ניתוח /שם:', את השם של המסנן נראה שכתבת מצוין)
אם עדיין יש בעיה תכתוב ואסתכל על הקוד בצורה יותר מדוקדקת, (אגב, לא עדיף לך להביא את הקוד נורמלי בלי צילום? או שתגדיל את השטח של הקוד, קשה לקרוא כך)
כמו"כ אם ציפית שהוא יסנן את שתי הטבלאות על פי התא המצוין אין סיבה שהוא יעשה את זה אם לא כתבת לו...!
בהצלחה

[nach]

הטעות לא בשם הטבלה משום שבצילום רואים למעלה את השם, כנראה שהטעות בהפניה לגיליון

[nach]

סליחה, הטעות וודאי בשם הגליון תראה כאן: (זה מהתמונה שלך)

[The shadow]

@nach אמר בסינון שורות באקסל:

הטעות וודאי בשם הגליון תראה כאן

אכן היה טעות אבל גם כשתקנתי לא עובד, ואני מגבר על פיבוט1

[The shadow]

מצרץ את הקובץ

עזרה בPivot Table.xlsm

[nach]

@אדרת אחרי שאני מנסה אלף אפשרויות להבין איפה הבעיה אני קולט שאתה שינית מ"גלין1" ל"גליון1", אבל מה לעשות שהמחשב כמה שהוא יהיה חכם הוא עדיין רק מחשב! וכשקוראים לגיליון שלך "גיליון1" הוא בחיים לא יבין כשתקרא לו "גליון1"!! בקיצור: חסרה האות י' (אגב גם כך כותבים בעברית)
רק תשנה את זה ויעבוד לך פרפקט! (ניסיתי כבר)
בהצלחה!

[The shadow]

@nach אמר בסינון שורות באקסל:

רק תשנה את זה ויעבוד לך פרפקט!

תודה לך!
אני חושב שאני יורד מרעיון להיות אי-פעם מתכנת...

[yossiz]

@אדרת אמר בסינון שורות באקסל:

אני חושב שאני יורד מרעיון להיות אי-פעם מתכנת...

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