एक्सेल - विभिन्न शीट से डेटा की प्रतिलिपि बनाने के लिए एक मैक्रो

मुद्दा

मैं निम्नलिखित मानदंडों के तहत विभिन्न शीटों से डेटा को मास्टर शीट में कॉपी करने की कोशिश कर रहा हूं

जब भी मैं पिछले मास्टर शीट को मिटाकर मैक्रो चलाता हूं, तो मास्टर शीट उत्पन्न की जानी चाहिए।
सभी स्तंभ शीर्ष समान हैं।
मास्टर शीट के लिए केवल एक शीर्षक की प्रतिलिपि बनाई जानी चाहिए (यानी पहली पंक्ति को दूसरी शीट से कॉपी नहीं किया जाना चाहिए।)
यदि किसी विशेष सेल में शून्य मान दिखाई दे रहे हैं तो उस पंक्ति की प्रतिलिपि नहीं बनाई जानी चाहिए।
मास्टर शीट को मैक्रो को चलाने में उल्लेखित कॉलम के अनुसार क्रमबद्ध किया जाना चाहिए। (यानी मैं मास्टर बॉक्स में छांटे जाने वाले फ़ील्ड / कॉलम को संदेश बॉक्स पर असाइन करूंगा।)

उपाय

मुझे एक संदेह है कि आप सभी महीनों के लिए डेटा को शीट पर या महीने के लिए महीने के लिए कॉपी करना चाहते हैं। मैंने सभी महीने ग्रहण किया। उस स्थिति में इस मैक्रो को आज़माएं

 सब टेस्ट () डिम जे अस लॉन्ग, के अस लॉन्ग, आर अस रेंज जे = वर्क्सशीट.काउंट विथ वर्क्सशीट्स ("मास्टर") सेट आर = रेंज (.Range ("A2"), .Range ("A2")। । सेट r = रेंज (.Range ("A2"), .Range ("A2")। अंत (xlDown)) r.EntireRow.Copy Worksheets ("मास्टर")। कोशिकाएं (Rows .Count, "A")। (xlUp) .Offset (1, 0)। त्रुटिविशेषज्ञ के साथ विशिष्ट अंत: अगला k अंत उप

आपकी फ़ाइल में आपके पास बहुत सारे खाली मॉड्यूल हैं। मॉड्यूल 1 को छोड़कर सभी को हटा दें।