Menu

Excel me same workbook me data copy ya move karein

ताजा अपडेट: रत्नेंद्र अशोक ने किया.

Microsoft Excel में डाटा में फेर-बदल करते वक्त, Move या Copy Sheet कमांड बहुत काम आता है. ये बड़ी तेजी से और सरल तरीके से पूरी शीट को या तो दूसरे लोकेशन में या तो एक ही फाइल या अलग वर्कबुक में मूव या कॉपी करता है।

वैकल्पिक रूप से आप इस काम को स्वचालित तरीके से करने और इसे आसान बनाने के लिए VBA (विजुअल बेसिक फॉर ऐप्लिकेशन) का इस्तेमाल कर सकते हैं. आज इस आर्टिकल में हम आपको Microsoft Excel में डाटा को दूसरे वर्कबुक में कॉपी करने के दोनों तरीके के बारे में बताने वाले हैं.

एक ही वर्कबुक में डेटा को Move या Copy करें

पहले तो उस शीट को सलेक्ट कीजिए जिसमें आप डेटा को मूव या कॉपी करना चाहते हैं. एक से अधिक शीट सलेक्ट करनी हो तो बस फर्स्ट शीट को सलेक्ट कीजिए और फिर आप जिन्हें कॉपी करना चाहते हैं उन अतिरिक्त शीट को क्लिक करते समय Control बटन को होल्ड किए रहें.

ऊपरी टूलबार के Home टैब पर Cells ग्रुप को खोजें और Format को क्लिक करें. Organize Sheets में आपको Move or Copy Sheet को क्लिक करना है.

एक डायलॉग बॉक्स ओपन होगा. Before लिस्ट में आप चाहें तो जिन शीट को मूव या कॉपी करना चाहते हैं उन्हें इन्सर्ट करने के लिए before शीट को क्लिक करें, या अपने वर्कबुक में आखिरी शीट के बाद शीट को इन्सर्ट करने के लिए आप move to end को क्लिक कर सकते हैं.

क्या आप शीट को मूव करने की जगह उन्हें copy करना चाहते हैं. यदि ऐसा है तो डायलॉग बॉक्स Move or Copy में मौजूद Create a copy चेकबॉक्स को सलेक्ट करें.

अलग वर्कबुक में डेटा को Move या Copy करें

यदि आप Excel worksheets को किसी दूसरे वर्कबुक में कॉपी करना चाहते हैं, या ले जाना चाहते हैं तो सबसे पहले आपको ये तय करना होगा कि माइक्रो एक्सेल का समान वर्जन टार्गेट वर्कबुक में ओपन है या नहीं.

अब उस शीट को सलेक्ट कीजिए जिसे आप कॉपी या मूव करना चाहते हैं. इसके बाद अपने टूलबार पर Home टैब पर जाइए और Cells group > Format को क्लिक कीजिए. Organize Sheets में जाकर Move या Copy Sheet को क्लिक कीजिए.

फिर से आपके सामने एक डायलॉग बॉक्स खुलेगा. आपको To book लिस्ट में सलेक्टेड शीट को मौजूद वर्कबुक में मूव या कॉपी करना होगा, या इसे किसी नए वर्कबुक में मूव या कॉपी करना होगा.

Before लिस्ट में आप जिस शीट को मूव या कॉपी करना चाहते हैं उस शीट को पहले क्लिक कीजिए या आप चाहें तो अपने वर्कबुक में आखिरी शीट के बाद शीट को इन्सर्ट करने के लिए move to end को क्लिक कीजिए.

VBA में डाटा को Move या Copy करें


Sub CopyOpenItems() 
   ' 
   ' CopyOpenItems Macro 
   ' Copy open items to sheet. 
   ' 
   ' Keyboard Shortcut: Ctrl+Shift+O 
   ' 
   Dim wbTarget            As Workbook 'workbook where the data is to be pasted 
   Dim wbThis              As Workbook 'workbook from where the data is to be copied 
   Dim strName             As String   'name of the source sheet/ target workbook 
'set to the current active workbook (the source book) 
   Set wbThis = ActiveWorkbook 
'get the active sheetname of the book 
   strName = ActiveSheet.Name 
'open a workbook that has same name as the sheet name 
   Set wbTarget = Workbooks.Open("C:\filepath\" & strName & ".xlsx") 
'select cell A1 on the target book 
   wbTarget.Range("A1").Select 
'clear existing values form target book 
   wbTarget.Range("A1:M51").ClearContents 
'activate the source book 
   wbThis.Activate 
'clear any thing on clipboard to maximize available memory 
   Application.CutCopyMode = False 
'copy the range from source book 
   wbThis.Range("A12:M62").Copy 
'paste the data on the target book 
   wbTarget.Range("A1").PasteSpecial 
'clear any thing on clipboard to maximize available memory 
   Application.CutCopyMode = False 
'save the target book 
   wbTarget.Save 
'close the workbook 
   wbTarget.Close 
'activate the source book again 
   wbThis.Activate 
'clear memory 
   Set wbTarget = Nothing 
   Set wbThis = Nothing 
End Sub

Image: © Dzmitry Kliapitski - 123RF.com

CCM (in.ccm.net) पर उपलब्ध यह डॉक्युमेंट "MS Excel में एक ही Workbook में डाटा कैसे मूव या कॉपी करें" क्रिएटिव कॉमन लाइसेंस के तहत उपलब्ध कराया गया है. जैसा कि इस नोट में साफ जाहिर है, आप इस पन्ने को लाइसेंस के तहत दी गई शर्तों के मुताबिक संशोधित और कॉपी कर सकते हैं.
MS Excel: VBA की मदद से Search और Find का इस्तेमाल कैसे करें
Snapchat में डिफॉल्ट कैमरा सेटिंग कैसे बदलें