חיפוש קוד ב VBA

נ

נאמן למקור היחיד

New member
חיפוש קוד ב VBA

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

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

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

תודה מראש..
 
U

u333

New member
הבעיה היא --> קרא והפנם ההודעה הנעוצה בראש הדף

דוגמא של קובץ !
דוגמא למצוי !
דוגמא לתוצאה הרצויה !
 
מיכאל אבידן

מיכאל אבידן

Member
מנהל
אז ככה . . .


מאחר וציינת שמדובר בפילטור הממוקם בשורה 1 - אעשה לעצמי 'חיים קלים' ואאחזר עבורך רק את מס' העמודה.

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

קוד: 
Sub GetFilteredColumns()
     With ActiveSheet.AutoFilter
        FC = .Filters.Count
        For C = 1 To FC
              If .Filters(C).On Then FCI = FCI & .Range(1, C).Column & ", "
         Next
     End With
     MsgBox "Filtered Columns Index: " & Left(FCI, Len(FCI) - 2)
End Sub
 
מיכאל אבידן

מיכאל אבידן

Member
מנהל
אז ככה . . .


1. לפני ה- END WITH יש NEXT ושם הוא אמור להיות ואם התכוונת שחסר END IF לפני ה- NEXT אוכל רק לומר שכנראה למדנו VBA בשני בתי ספר שונים (וטוב שכך).
ישנם בתי ספר שהעניקו "פטור", מיוחד, משימוש ב- END IF אבל רק למי שהציון הממוצע, שלו, במבחני ה-VBA, היה 85 ומעלה.

2. בדוק את עצמך היטב, היטב, לפני הערות מעין אלו...
 
מיכאל אבידן

מיכאל אבידן

Member
מנהל
עזוב, לרגע, בצד את ההתנצלות . . .


&nbsp
השאלה שצריכה להישאל היא: "האם הצלחת להבין שבתגובתך ההיא גיבבת ש****ת

&nbsp
 
You must log in or register to reply here.

Copyright©1996-2021,Tapuz Media Ltd. Forum software by XenForo® © 2010-2020 XenForo Ltd.

למעלה