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

[The shadow]

האם אפשר לסנן טבלה באקסל לפי תא מסוים ולהציג את השורות המתאימות בגיליון אחר

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

תודה

[איש יהודי]

מדריך מעולה!!

[The shadow]

זה מצוין, תודה

אבל צריך למחוק בכל פעם את התוצאה
אין משהו יותר יעיל?

[nach]

@אדרת למה שלא תשתמש בPivot Table ?

[The shadow]

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

למה שלא תשתמש בPivot Table ?

כי Pivot Table מסכמת את הטבלה,
ומה שאני רוצה לסנן שורות מתוך טבלה

[nach]

@אדרת אמר

כי Pivot Table מסכמת את הטבלה,
ומה שאני רוצה לסנן שורות מתוך טבלה

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

[The shadow]

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

Pivot Table

היי תודה הסתדרתי עם זה
פשוט לשים את כל העמודות למעט המסנן בתיבת השורות
ולסדר את הפריסה כטבלה

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

תודה!

[nach]

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

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

[The shadow]

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

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

תודה על התשובה המפורטת!!

מצרף בתמונה על איפה שהצלחתי

[nach]

@אדרת

היי תודה הסתדרתי עם זה

מעולה, אבל עד שכתבתי לא שמתי לב להודעה

פשוט לשים את כל העמודות למעט המסנן בתיבת השורות
ולסדר את הפריסה כטבלה

למה?

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

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

[The shadow]

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

למה?

כדי להגיע לתוצאה שרציתי...

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

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

תודה על הכיון,
עזרת לי מאוד!!

[The shadow]

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

אין אפשרות, אתה יכול לנסות ותקפוץ לך שגיאה

פה יש פתרון בVBA

[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]

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

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

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