एक्सेल में मास्टर से सब शीट में ऑटो ट्रांसफर डेटा कैसे करें

यदि आप एक्सेल का उपयोग कर रहे हैं और एक निश्चित शर्त पूरी होने पर एक मास्टर शीट से डेटा को निर्दिष्ट उप-शीट्स में स्वचालित रूप से स्थानांतरित करना चाहते हैं, तो यह आलेख बताएगा कि ऐसा करने के लिए VBA ( Visual Basic for Applications ) का उपयोग कैसे करें। यह उदाहरण प्रदर्शित करेगा कि खेतों में एक मूल्य में " हाँ " होने पर स्वचालित रूप से एक कॉलम को एक शीट से दूसरे में कैसे स्थानांतरित किया जाए। आवश्यकतानुसार सशर्त क्षेत्र के मूल्य को बदला जा सकता है।

एक्सेल में मास्टर से सब शीट में ऑटोट्रांसफर डेटा

आरंभ करने के लिए, अपने एक्सेल दस्तावेज़ को खोलें और [Alt] + [F11] मारकर Microsoft विज़ुअल बेसिक को एप्लिकेशन विंडो के लिए खोलें

इसके बाद, अपनी शीट को बाएं कॉलम में खोजें और मास्टर पर डबल-क्लिक करें। शीट के नाम इस बात पर निर्भर करेंगे कि आपने उन्हें एक्सेल में क्या नाम दिया है। मास्टर शीट वह प्राथमिक शीट होती है, जहां डेटा पहली बार दर्ज किया जाता है, और सब शीट वह स्थान होता है, जहां डेटा को पॉप्युलेट किया जाएगा। अगला, बड़े सफेद क्षेत्र में निम्नलिखित कोड चिपकाएँ:

 निजी सब वर्कशीट_चेंज (बायल टारगेट रेंज के रूप में) यदि इंटर्सेक्ट (लक्ष्य, कॉलम ("जी")) कुछ भी नहीं है तो बाहर निकलें सब 'जब' कॉलम जी में कोई बदलाव नहीं होता है तो कुछ भी नहीं करें। 'स्तंभ G में परिवर्तित किया गया सेल मान अब लक्ष्य के रूप में संदर्भित किया जाएगा। यदि Target.Value = "Yes" तब 'जब हालत जी ("जी" कॉलम G में मिलती है) तो रेंज (सेल्स (टारगेट। लो, "ए"), सेल्स (टारगेट। लो, "जी"))। कॉपी _ शीट्स (लक्ष्य। ओफ़सेट (0, -1)। वाल्यू) ।Range ("A" & Rows। Count)। और (xlUp) .Offset (1, 0) 'उस पंक्ति को कॉपी करें जहाँ परिवर्तन स्तंभ A से एक तक किया गया है। कॉलम जी 'कॉलम F और पहले उपलब्ध पंक्ति में उल्लिखित शीट पर चिपकाएँ। अंत अगर उप 

अब, आप अनुप्रयोग विंडो के लिए Microsoft विज़ुअल बेसिक को बंद कर सकते हैं और आपकी फ़ाइल अब स्वचालित रूप से चयनित शीट पर मास्टर शीट पर दर्ज डेटा को स्थानांतरित करने के लिए तैयार होगी। याद रखें कि मैक्रो केवल तभी चलेगा जब स्तंभ G में कोई परिवर्तन किया जाता है।

इस टिप के लिए TrowaD को धन्यवाद।

चित्र: © Microsoft

पिछला लेख अगला लेख

शीर्ष युक्तियाँ