मैक्रो को सर्च, कॉपी और पेस्ट कैसे बनाएं?

मुद्दा

यहाँ मैं क्या करना चाहता हूँ। मेरे पास पंक्ति के ग्राहक डेटा के साथ एक वर्कशीट है और मेरे पास एक वर्कशीट भी है जिसमें एक चालान है जिसे मैं डेटा वर्कशीट से ग्राहक जानकारी के साथ ऑटो पॉप्युलेट करना चाहता हूं।

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

मैंने एक मैक्रो बनाया जो संदर्भ संख्या खोजता है, पंक्ति का चयन करता है, और पंक्ति को अन्य कार्यपत्रक में कॉपी और पेस्ट करता है। मेरी समस्या यह है कि जब मैं अपने छोटे से खोज बॉक्स में एक नया संदर्भ संख्या डालने जाता हूं, तो मैंने इसे अभी भी संदर्भ संख्या खोजता है जिसे मैंने मैक्रो के साथ सेटअप किया है और केवल इनबिल्ट पंक्ति के संदर्भ में मैं मैक्रो डेटा को सेटअप करता हूं :(

काश मैं इसे बता पाता:

एक संदर्भ संख्या की खोज करें, जिसे मैं संदर्भ संख्या की प्रतिलिपि बनाता हूं और इसे अन्य कार्यपत्रक पर खोजने के लिए पेस्ट करता हूं, और फिर मैं डेटा का चयन करने और उसे कॉपी करने के लिए शिफ्ट स्पेस को दबाकर दूसरे कार्यपत्रक में पेस्ट करता हूं। यह inital पर्वतमाला और संदर्भ संख्या का संदर्भ देता है।

कृपया मदद कीजिए।

यहाँ मेरे पास अभी तक क्या है। मैं एक noob की तरह हूँ। अंत में सभी सक्रिय स्क्रॉल मुझे स्क्रॉल कर रहे हैं और मैक्रो को अपने चालान के तहत चिपका रहे हैं ताकि मैं बाद में डेटा खींच सकूं।

 रेंज ("AM5: AS5") ActiveCell.FormulaR1C1 = "33629" पत्रक ("शीट 2") का चयन करें। कक्ष चुनें। (क्या: = "33629", के बाद: = ActiveCell, LookIn: = xlFormulas, LookAt _: = xlPart, SearchOrder: = xlByRows, SearchDirection: = xlNext, MatchCase: = _ False, SearchFormat: = False)। सक्रिय करें पंक्तियों ("6: 6")। Select Range ("C6") को सक्रिय करें .Copy शीट्स (# Sheet1) 2 .ScrollRow = 21 ActiveWindow.ScrollRow = 22 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 25 ActiveWindow .crollRow = 26 ActiveWindow.ScrollRow = 27 ActiveWindow.ScrollRow = 27 ActiveWindow। .ScrollRow = 33 ActiveWindow.ScrollRow = 36 ActiveWindow.ScrollRow = 38 ActiveWindow.ScrollRow = 40 ActiveWindow.ScrollRow = 42 अधिनियम iveWindow.ScrollRow = 45 ActiveWindow.ScrollRow = 47 ActiveWindow.ScrollRow = 49 ActiveWindow.ScrollRow = 51 ActiveWindow.ScrollRow = 53 ActiveWindow.ScrollRow = 54 ActiveWindow.ScrollRow = 55 ActiveWindow.ScrollRow = 55 ActiveWindow.ScrollRow =। ActiveWindow.ScrollRow = 59 ActiveWindow.ScrollRow = 60 ActiveWindow.ScrollRow = 61 ActiveWindow.ScrollRow = 62 ActiveWindow.ScrollRow = 63 ActiveWindow.ScrollRow = 64 ActiveWindow.ScrollRow = 65 ActiveWindow.ScrollRow = 65 ActiveWindow.ScrollRow = 65 ActiveWindow.ScrollRow =। ActiveWindow.ScrollRow = 70 ActiveWindow.ScrollRow = 71 ActiveWindow.ScrollRow = 72 ActiveWindow.ScrollRow = 73 ActiveWindow.ScrollRow = 74 ActiveWindow.ScrollRow = 75 ActiveWindow.ScrollRow = 76 ActiveWindow.ScrollRow = 76 ActiveWindow.ScrollRow = 76 ActiveWindow.ScrollRow =। ActiveWindow.ScrollRow = 80 ActiveWindow.ScrollRow = 82 ActiveWindow.ScrollRow = 83 ActiveWindow.ScrollRow = 84 ActiveWindow.ScrollRow = 85 ActiveWindow.ScrollRow = 87 ActiveWindow.ScrollRow = 88 ActiveWindow.ScrollRow = 89 ActiveWindow.ScrollRow = 90 ActiveWindow.ScrollRow = 91 ActiveWindow.ScrollRow = 93 ActiveWindow.ScrollRow = 94 ActiveWindow.ScrollRow = 95 ActiveWindow.ScrollRow =। = 98 ActiveWindow.ScrollRow = 99 ActiveWindow.ScrollRow = 100 ActiveWindow.ScrollRow = 101 ActiveWindow.ScrollRow = 102 ActiveWindow.ScrollRow = 104 ActiveWindow.ScrollRow = 106 ActiveWindow.ScrollRow = 107 ActiveWindow.ScrollRow =। = 112 ActiveWindow.ScrollRow = 113 ActiveWindow.ScrollRow = 114 ActiveWindow.ScrollRow = 115 ActiveWindow.ScrollRow = 117 ActiveWindow.ScrollRow = 118 ActiveWindow.ScrollRow = 119 ActiveWindow.ScrollRow = 120 ActiveWindow.ScrollRow =। = 125 ActiveWindow.ScrollRow = 126 ActiveWindow.ScrollRow = 127 ActiveWindow.ScrollRow = 128 ActiveWindow.ScrollRow = 129 ActiveWindow.ScrollR ow = 130 ActiveWindow.ScrollRow = 131 ActiveWindow.ScrollRow = 132 ActiveWindow.ScrollRow = 133 ActiveWindow.ScrollRow = 134 ActiveWindow.ScrollRow = 135 ActiveWindow.ScrollRow = 136 ActiveWindow.ScrollRow = 137 ActiveWindow.ScrollRow = 137 ActiveWindow.ScrollRow =। स्क्रॉलरॉव = 142 ActiveWindow.ScrollRow = 143 ActiveWindow.ScrollRow = 1444 सक्रियWindow.ScrollRow = 145 ActiveWindow.ScrollRow = 146 ActiveWindow.ScrollRow = 147 ActiveWindow.ScrollRow = 148 ActiveWindow.ScrollRow = 149 ActiveWindow.ScrollRow = 149 एक्टिवविन्दु। स्क्रॉलरॉव = 152 ActiveWindow.ScrollRow = 153 ActiveWindow.ScrollRow = 154 ActiveWindow.ScrollRow = 155 ActiveWindow.ScrollRow = 156 ActiveWindow.ScrollRow = 157 ActiveWindow.ScrollRow = 158 ActiveWindow.ScrollRow = 159 ActiveWindow.ScrollRow = 159 एक्टिवविन्डो। ActiveSheet.Paste End Sub चुनें 

उपाय

पूर्ण तर्क स्पष्ट नहीं है। मैंने आपके मैक्रो को केवल "संशोधित" किया है ताकि आप परिवर्तनों को समझ सकें (हालांकि पूरे मैक्रो को बहुत अधिक ट्विक किया जा सकता है)।

जब आप मैक्रो शुरू करते हैं, तो मैक्रो पूछेगा कि आप किस नंबर को टाइप करना चाहते हैं, इनवॉइस नंबर ई; 33629

लेकिन मैं एक समस्या ठीक है। आप शीट 2 में 33629 पाते हैं और पूरी पंक्ति को कॉपी करते हैं

गोटो शीट 1 (2) और दूसरी पंक्ति को उस पंक्ति में चिपकाएँ जहाँ पहली सेल दूसरी शीट में A194 है। ठीक है तो अब तक।

लेकिन जब आप दूसरी संख्या का चयन करते हैं तो आप शीट 1 (2) में पंक्ति को कहां कॉपी करना चाहते हैं। यह स्पष्ट नहीं है।

मेरा सुझाव है कि आप अपनी मूल कार्यपुस्तिका को कुछ सुरक्षित रखें, ताकि इसे पुनः प्राप्त किया जा सके।

फिर मैक्रो चलाएं और देखें कि क्या यह ठीक है। यदि यह ठीक है, तो ऊपर दिए गए बोल्ड में मेरे qeestone का जवाब दें। मैक्रो अभी भी अधिक संशोधित किया जा सकता है।

मैक्रो में मैंने कुछ पंक्तियों की शुरुआत में एक एकल एपोस्ट्रोफ़ लगाया है ताकि वे संचालित हो सकें। मैक्रो को समझने के बाद आप इन पंक्तियों को हटा सकते हैं

वर्तमान चरण में मैक्रो है

 सब टेस्ट () डिम जे अस डबल जे = इनपुटबॉक्स ("33629 टाइप करें नंबर टाइप करें") 'रेंज ("एएम 5: एएस 5")।' ActiveCell.FormulaR1C1 = "33629" शीट ("शीट 2") सेलेक्ट सेल चुनें। । )। चयन की सीमा ("C6")। सक्रिय करें 'चयन। कोपी ActiveCell.EntireRow.Copy Worksheets ("sheet1 (2)")। रेंज चुनें ("A194")। PasteSpecial End Sub। 

ध्यान दें

मंच पर इस टिप के लिए venkat1926 का धन्यवाद।

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

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