एक्सेल - सभी पीले प्रकाश डाला कोशिकाओं को मैक्रो असाइन करें

मुद्दा

नमस्कार, मैं इस समय अचार में हूँ ... मुझे उम्मीद है कि सभी स्वामी इस VBA noob को एक हाथ दे सकते हैं ...

अभी मैंने सक्रिय कोशिकाओं पर मान बनाए रखने के बिना सभी सूत्र की प्रतिलिपि बनाने के लिए एक मैक्रो लिखा है और मैं इस मैक्रो को स्प्रेडशीट में सभी पीले हाइलाइटेड पीले कोशिकाओं पर लागू करना चाहूंगा .... ऐसा कैसे करें ???

मेरा वर्तमान कोड बस है

(मैं अभी भी नहीं सोच सकता कि इस मैक्रो को शामिल करने के लिए केवल पीले हाइलाइटेड कोशिकाओं को बनाने के लिए क्या रखा जाए)

 उप कॉपी_फॉर्मल_ऑनली () डिम रो को सिंगल रो = ActiveCell.row Selection.EntireRow.Insert Rows (पंक्ति - 1) .Copy पंक्तियाँ (पंक्ति) .Select ऑन एरर रिज्यूमे। Selection.asteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCell.line) GoTo 0 Application.CutCopyMode = गलत एंड सब पर ClearContents 

उपाय

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

 निजी सब वर्कशीट_सेलेक्शन चेंज (रेंज के रूप में बायल टारगेट) Application.EnableEvents = गलत 'अगर Target.Address = "वर्कआउट में सभी पीले नंबर हैं" तो लक्ष्य में प्रत्येक चेक के लिए यदि (CELL.Interior.Color = 65535) तो डिम पंक्ति एक सिंगल पंक्ति है। row = ActiveCell.row Selection.EntireRow.Insert Rows (पंक्ति - 1) .Copy R (पंक्ति)। त्रुटि को फिर से शुरू करें अगला चयन। जाति विशेष: चिपकाएँ = xlPasteFormate Selection.pecialCells (xlCellTypeConstants) .ClearContents अनुप्रयोग। उपयुक्त अनुप्रयोग। GoTo 0 समाप्ति यदि अगला अनुप्रयोग है। CutCopyMode = गलत अंत उप 

ध्यान दें

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

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

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