पंक्तियों की सामग्रियों और स्वरूपण (किसी अन्य शीट पर) की प्रतिलिपि बनाएँ

Question

मैं क्या चाहता हूं कि एक संपूर्ण पंक्ति की सामग्री की प्रतिलिपि बनाना और दूसरी शीट में स्वरूपण करना है।

इस समय मुझे पुरानी कोशिकाओं की सामग्री को नई कोशिकाओं की सामग्री में सेट करने के लिए व्यवस्थित करना पड़ा और ऐसा करने में यह केवल सामग्री की प्रतिलिपि बनाता है, न कि प्रारूपण। , (इस एक ही पत्रक में कोशिकाओं के लिए ठीक काम करता है)

Range(Cells(45, 2), Cells(45, 3)).Copy Range(Cells(50, 2), Cells(50, 3)) 

हालांकि

मैं कोशिश कर रहा हूँ:

पल मैं निम्नलिखित है पर (मेरी कोशिकाओं अलग अलग रंग के पार ले जाने के लिए की आवश्यकता है) इसे एक शीट से दूसरे में करें। (चादर 'Front_Page' से 'vg' में कॉपी करें)। मैंने निम्नलिखित का उपयोग करने की कोशिश की, जाहिर है कि यह काम नहीं करता है, लेकिन क्या कोई मुझे बता सकता है कि मैं क्या गलत कर रहा हूं?

Range.Worksheet("Front_Page").Range(Cells(45, 2), Cells(45, 3)).Copy Worksheet("vg").Range(Cells(50, 2), Cells(50, 3)) 

Answer 1

Cells सक्रिय शीट की कोशिकाओं को संदर्भित करता है। इस प्रकार आपको त्रुटि मिलती है: vg सक्रिय शीट नहीं है। Range ऑब्जेक्ट के पैरामीटर के रूप में किसी अन्य शीट की कोशिकाओं को निर्दिष्ट करना हमेशा एक त्रुटि की ओर जाता है। यह काम करेगा:

Worksheets("Front_Page").Range(Worksheets("Front_Page").Cells(45, 2), Worksheets("Front_Page").Cells(45, 3)).Copy Worksheets("vg").Range(Worksheets("vg").Cells(50, 2), Worksheets("vg").Cells(50, 3)) 

हालांकि, यह सिर्फ करने के लिए अनुकूलित किया जा सकता है:

Worksheets("Front_Page").Range("B45:C45").Copy Worksheets("vg").Range("B50:C50") 

इसके अलावा, सूचना है कि Worksheet("vg") काम नहीं करता है, यह प्रतिस्थापित किया जाना चाहिए और कुछ Worksheets("vg") यह कारण होगा साथ त्रुटि भी

पूरी पंक्ति, उपयोग कॉपी करने के लिए:

Worksheets("Front_Page").Rows("45:45").Copy Worksheets("vg").Rows("50:50") 

Answer 2

ऐसा लगता है कि "Front_Pages" से "VG" से कोशिकाओं को कॉपी करने के लिए जब से तुम "सेल" अंदर "सीमा" का उपयोग

रेंज (कोशिकाओं की कोशिश ...)।

यदि ऐसा है, तो आप एक्सेल सामान्य सीमा के रूप में सेल प्रारूप को आसानी से बदल सकते हैं; इस कोड को आजमाएं:

Sheets("vg").Range("B5") = Sheets("Front_Pages").Range("B4") 
Sheets("vg").Range("C5") = Sheets("Front_Pages").Range("C4")