एक्सेल - दो सूचियों की तुलना करें और पंक्ति का रंग बदलें
मुद्दा
मेरे पास दो अलग-अलग कार्यपुस्तिकाएँ हैं; मान लीजिए कि कार्यपुस्तिका 1 और कार्यपुस्तिका 2 हैं। दोनों वर्कबुक में मेरे पास बारकोड वाला एक कॉलम है।
मुझे वर्कबुक में दो बारकोड कॉलम की जांच करने के लिए एक वीबीए की आवश्यकता है और अगर यह एक नई वर्कबुक बनाने के लिए मैच ढूंढता है और वर्कबुक 1 की पूरी पंक्ति को कॉपी करता है और वर्कबुक 2 में सेल बारकोड के एक ही रंग का उपयोग करता है।
उपाय
मैं मान रहा हूं कि बारकोड कॉलम शीट १ और शीट २ दोनों समान हैं
फिर इस कोड को आज़माएं
शुरुआत में जब आप कोड चलाते हैं, तो कोड बारकोड के कॉलम लेटर के बारे में एक इनपुट पूछेगा। आप स्तंभ पत्र टाइप कर सकते हैं जैसे G और क्लिक करें ठीक (शीर्ष दाईं ओर):
स्थूल है
सब टेस्ट () डिम कॉलिंग ऐज स्ट्रिंग, आर अस रेंज, सी असेंबल रेंज, सीडेंस ऐज रेंज डिम x, वाई अस इंटेगर कॉल = इनपुटबॉक्स ("कॉलम LETTER टाइप करें जिसमें बारकोड उदाहरण के लिए G के लिए नेट किया गया है") एरर परफ्यूम अगला Worksheets ("sheet2") के साथ r = श्रेणी (.Cells (2, col), .Cells (2, col) .End (xlDown)) प्रत्येक c के लिए rx = c.Value With Worksets ("sheet1") में सेट करें। कॉलम (कॉल & ":" & col) सेट cfind =। Cells .ind (क्या: = x, लुक: = xlWhole) "sheet3") .Cells (Rows.Count, "A")। End (xlUp) .Offset (1, 0) .PasteSpecial .Cells (Rows.Count, col)। और (xlUp) .Interior.ColorIndex = y End End एंड विथ नेनेक्स्ट: नेक्स्ट c एंड विद एंड सब सब
ध्यान दें
मंच पर इस टिप के लिए venkat1926 का धन्यवाद।