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