एक्सेल - मापदंड के आधार पर डेटा को आबाद करने के लिए एक मैक्रो

मुद्दा

मैं कुछ मानदंडों के आधार पर 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 को धन्यवाद।

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

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