एक्सेल - एकाधिक शीट में शून्य मान के साथ पंक्तियों को छिपाएं

मुद्दा

कृपया एक्सेलशीट में एक मैक्रो बनाने में मेरी मदद करें:

मैं पूरी पंक्तियों को छिपा सकता हूं यदि एक सेल वैल्यू या (वैल्यू की रेंज) एक से अधिक शीट में शून्य मान है ??? मैं उदाहरण के लिए या तो जब मैं फ़ाइल खोलता हूं या जब मैं मैक्रो को चलाने के लिए नियंत्रण तल पर क्लिक करता हूं।

मेरा मामला यह है:

मेरे पास एक एक्सेल फ़ाइल है जिसमें प्रत्येक कर्मियों के लिए 32 शीट हैं, और प्रत्येक शीट में 3 कॉलम की एक तालिका है

 (ए, बी, सी) और 26 पंक्तियाँ (1-26)। पाठ के लिए कॉलम A, पाठ के लिए कॉलम B भी मानों के लिए कॉलम C

मेरा अनुरोध कॉलम सी में मान के आधार पर या तो एक आदेश को दबाकर या मानों में या जो भी हो, 32 सी के प्रत्येक पत्रक के लिए / पूरी पंक्ति को छिपाने / अनहाइड करने के लिए है।

उपाय

उद्देश्य:

दिए गए मान के लिए सभी शीट पर पंक्तियों को फ़िल्टर / छिपाने के लिए।

मान्यताओं:

1. स्तंभ का स्थान हर शीट पर समान है

3. फ़िल्टर को सभी शीट्स पर लगाने की आवश्यकता है

3. चादरें छिपी नहीं हैं

4. सभी शीट्स में कम से कम एक सेल भरा हुआ है

कदम

1. मान्यताओं को पढ़ें

2. बैक अप कॉपी बनाएं

3. ALT + F11 दबाएं और एक नया मॉड्यूल डालें

4. कोड पेस्ट करें और इसे चलाएं

कोड:

 सब HideRows () डिम शीट आब्जेक्ट डिम फिल्टरफॉर वैरिंट डिम iFilterCol इंटेगर iFilterCol = 3 के रूप में 3 कोल फिल्टरफोर = फिल्टरबॉक्स पर फ़िल्टर लागू करें ("फ़िल्टर करने के लिए मान दर्ज करें", "फ़िल्टर आउट") प्रत्येक शीट के लिए शीट शीट में। .Select if ActiveSheet.AutoFilterMode तो Cells। चुनाव चयन करें। यदि आप ActiveSheet.AutoFilterMode = गलत चयन करते हैं तो फिर से चुनें। गलत चयन के बाद। ऑटोफ़िल्टर का सिलेक्शन। अगला एंड सब