एक्सेल - मापदंड के आधार पर डेटा को आबाद करने के लिए एक मैक्रो
मुद्दा
मैं कुछ मानदंडों के आधार पर 1 शीट से दूसरी शीट पर डेटा को पॉप्युलेट करना चाहूंगा। नीचे दिए गए लिंक में दिए गए नमूना डेटा के संदर्भ में:
- जब स्तंभ H 90 से अधिक हो और स्तंभ D शून्य के बराबर न हो, तो "स्लो मूविंग" नामक एक नई शीट में डेटा को पॉप्युलेट करें।
- जब कॉलम G शून्य हो और स्तंभ D शून्य के बराबर न हो तो "नॉन मूविंग" नामक एक नई शीट में डेटा को पॉप्युलेट करें।
उपाय
इस मैक्रो को आज़माएं:
दो शीट "स्लो मूविंग" और "नॉन मूविंग" डालें। इस मैक्रो को चलाएं (मैक्रो में वर्कशीट नाम बिल्कुल शीट नामों के समान होना चाहिए):
उप परीक्षण () डिम जे अस लॉन्ग, के अस लॉन्ग अन्डो वर्क्सशीट्स ("6200_डाटा")। एक्टिवेट k = रेंज ("a6")। एंड (xlDown) .Row for j = 1 टू k सेल सेल (j, "H" )> 90 और कक्ष (j, "D") 0 उसके बाद कक्ष (j, "A")। EntireRow.Copy_ Worksheets ("धीमा चल रहा है")। कक्ष (पंक्तियाँ, "A")। अंत (xlUp) .Offset (1, 0) यदि कक्ष (j, "G") = 0 और कक्ष (j, "D") 0 तब कक्ष (j, "A")। EntireRow.Copy _ Worksheets ("नॉन मूविंग")। कक्ष (पंक्तियाँ, "ए")। अंत (xlUp)। ऑफ़सेट (1, 0) अगला j कार्यपत्रक ("धीमी गति से बढ़ना")। .Cells.Clear Worksheets ("नॉन मूविंग")। Cells.Clear End Sub इस टिप के लिए वेंकट 1926 को धन्यवाद।