vba "super" filter

[vm40946]

vba "super" filter

שלום,

יש לי שאלה בנושא פילטרים עם VBA, העניין הוא שאני לא יודע אם בכלל הדבר אפשרי.

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

אקסל 13/16 + וינדוס7

 

[ziv98]

עמודת עזר

ניתן לבנות קריטריון לסינון מתקדם, אבל במקרה הזה נראה לי שדוקא עמודת עזר (גם אם מוסתרת) - עדיפה:
=COUNTIF(טבלה1[@[עמודה1]:[עמודה5]],"משה")
תנאי הסינון <>0.

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

 

[vm40946]

הי תודה אבל

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

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

אני אחשוב כבר על איזה פתרון, אולי בכול זאת ״הסתרת שורות״

 

[מיכאל אבידן]

בהנחה ובתקווה שתסכים אתי שהתוצאה שהצגת לוקה בחסר . . .

נסה את קוד המקרו שלהלן:

Sub Hide_Rows_No_Criteria()
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    For R = 2 To LR
          If Application.CountIf(Rows(R), "משה") = 0 Then Rows(R).EntireRow.Hidden = 1
    Next
End Sub

 

[vm40946]

אין לי בעיה להסכים שהתוצאה שלי לוקה בחסר

רק שלא הבנתי למה אתה מתכוון ?

 

[מיכאל אבידן]

עכשיו גם תבין . . .

בשורה 19 (בגיליו1) מופיע 'משה'.

האם בטבלת התוצאה המתבקשת (בגיליון2) השארת אותה גלויה או מוסתרת