مواد جي جدول
جڏهن به توهان کي ضرورت هجي ته توهان هڪ رينج کي هڪ شيٽ کان ٻئي شيٽ يا ورڪ بڪ ڏانهن نقل ڪري سگهو ٿا. ڪاپي ۽ پيسٽ جا مختلف قسم آهن. هن آرٽيڪل تي عمل ڪندي، توهان کي مختلف طريقن سان معلوم ٿيندو Excel VBA ڪاپي رينج کي ٻئي شيٽ ۾ استعمال ڪرڻ لاءِ.
تفصيل کي جاندار بڻائڻ لاءِ، مان هڪ نمونو ڊيٽا سيٽ استعمال ڪرڻ وارو آهيان جيڪو خاص ماڻهن جي ذاتي معلومات جي نمائندگي ڪري ٿو. . ڊيٽا سيٽ ۾ 4 ڪالمن آهن. اهي ڪالم آهن پهريون نالو، آخري نالو، پورو نالو، ۽ اي ميل .
ڊائون لوڊ ورڪ بڪ مشق ڪرڻ لاءِ
VBA ڪاپي رينج کي ٻي شيٽ ۾ نقل ڪريو
8 Excel جا طريقا VBA ڪاپي رينج کي ٻي شيٽ ۾ نقل ڪريو
1. هڪ رينج ڪاپي ڪريو فارميٽ سان ٻي شيٽ ڏانهن
جڏهن به توهان چاهيو ٿا ڪاپي ڪريو هڪ شيٽ کان ٻي شيٽ تائين رينج سان فارميٽ توهان اهو صرف استعمال ڪندي ڪري سگهو ٿا VBA .
هتي، مان ڪندس ڪاپي هڪ رينج ڊيٽا سيٽ شيٽ کان فارميٽ سان شيٽ تائين.
اچو ته عمل شروع ڪريون،
پهرين، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic
توهان پڻ استعمال ڪري سگهو ٿا ALT + F11 ڪي بورڊ کولڻ لاءِ VBA ايڊيٽر.
اڳيون، اهو هڪ نئين ونڊو کوليندو جنهن جو نالو آهي Microsoft Visual Basic for Applications.
جتان، کوليو Insert >> منتخب ڪريو Module .
A Module کلندو پوءِ کوليو ويو ھيٺ ڏنل ڪوڊ ٽائپ ڪريو >> منتخب ڪريو ميڪروز ڏسو
42>1>
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_BelowLastCell_AnotherSheets پڻ چونڊيو ورڪ بڪ اندر اندر Macros in .
آخرڪار، چلايو منتخب ٿيل Macro .
انهي ڪري، اهو ڪپي چونڊيل رينج ڪندو ۽ ان کي ٻئي شيٽ جي آخري قطار مان پيسٽ ڪندو .
8. VBA هڪ رينج کي ٻئي ورڪ بڪ جي آخري قطار ۾ نقل ڪريو
جيڪڏهن توهان چاهيو ٿا ته ڪاپي هڪ رينج ٻئي ورڪ بڪ شيٽ جي آخري قطار تائين توهان پڻ استعمال ڪري سگهو ٿا VBA .
هتي، مان ڪندس ڪاپي هڪ حد Dataset2 مان شيٽ ڏانهن شيٽ1 جو ڪتاب2 پر پهرين غير خالي سيل مان.
45>
عمل شروع ڪرڻ لاءِ،
پهرين، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic
توهان پڻ استعمال ڪري سگهو ٿا ALT + F11 ڪي بورڊ کولڻ لاءِ VBA ايڊيٽر.
اڳيون، اهو هڪ نئين ونڊو کوليندو Microsoft Visual Basic for Applications.
جتان، کوليو Insert >> منتخب ڪريو Module .
A Module کلندو پوءِ کليل Module ۾ ھيٺ ڏنل ڪوڊ ٽائپ ڪريو.
7301
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_BelowLastCell_To_Another_Workbook جتي wsCopy ۽ wsDestination آهن ورڪ شيٽ قسم، lCopyLastRow ۽ lDestLastRow آھين ڊگھو قسم.
پهريون، استعمال ڪيو سيٽ ڪپي ڪرڻ لاءِ شيٽ ۽ منزل واري شيٽ لاءِ متغيرن کي سيٽ ڪرڻ لاءِ.
اڳيون، ڪاپي رينج ۾ ڪالمن A جي ڊيٽا جي بنياد تي آخري قطار ڳولڻ لاءِ قطار طريقو استعمال ڪيو.
ٻيهر، استعمال ڪيو قطار طريقو ڪالمن جي ڊيٽا جي بنياد تي پهرين خالي قطار ڳولڻ لاءِ A منزل جي حد ۾ پڻ استعمال ڪيو ويو Offset هڪ ملڪيت کي هيٺ آڻڻ لاءِ.
آخر ۾، ڪاپي جي ڊيٽا Dataset2 شيٽ مان Excel VBA ڪاپي رينج ٻئي Sheet.xlsm ورڪ بڪ منزل ڏانهن Sheet1 workbook جي Book2.xlsx .
هاڻي، محفوظ ڪريو ڪوڊ ۽ ورڪس شيٽ ڏانهن واپس وڃو.
اڳيون، کوليو ڏسو ٽيب >> مان Macros >> منتخب ڪريو ميڪروز ڏسو
47>1>
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_BelowLastCell_To_Another_Workbook پڻ چونڊيو ورڪ بڪ اندر Macros in .
آخرڪار، چلايو چونڊيل Macro .
انهي ڪري، اهو ٿيندو ڪاپي چونڊيل رينج موجوده شيٽ کان ٻئي ورڪ بڪ جي آخري قطار تائين.
مشق سيڪشن
مون ڪم بڪ ۾ هڪ مشق شيٽ مهيا ڪئي آهي ته جيئن انهن وضاحت ڪيل طريقن کي مشق ڪرڻ لاءِ Excel VBA ڪاپي رينج ٻي شيٽ ڏانهن.
نتيجو
هن آرٽيڪل ۾، مون وضاحت ڪئي آهي 8 مختلف قسمن جا آسان ۽ تڪڙو طريقاExcel VBA ڪاپي رينج کي ٻي شيٽ ڏانهن. اهي مختلف طريقا توهان کي هڪ رينج کي نقل ڪرڻ ۾ مدد ڏين ٿيون هڪ شيٽ کان ٻئي ڏانهن ۽ پڻ هڪ شيٽ کان ٻئي ورڪ بڪ تائين. آخري نه پر گهٽ ۾ گهٽ، جيڪڏهن توهان وٽ ڪنهن به قسم جي تجويز، خيال، ۽ راء آهي، مهرباني ڪري هيٺ ڏنل تبصرو ڪرڻ لاء آزاد محسوس ڪريو.
ماڊيول .2655
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_withFormat_ToAnother_Sheet
مون رينج ورتو آهي B1:E10 موجوده شيٽ مان نقل ڪرڻ لاءِ شيٽ جو نالو WithFormat .
هتي، مون استعمال ڪيو ڪاپي چونڊيل رينج کي نقل ڪرڻ جو طريقو، ڪاپي طريقو ڪنهن به حد کي نقل ڪري ٿو فارميٽ سان.
آخر ۾، محفوظ ڪريو ڪوڊ ۽ ورڪس شيٽ ڏانهن واپس وڃو
اڳيون، کوليو ڏسو ٽيب >> مان Macros >> منتخب ڪريو ميڪروز ڏسو
1>
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_withFormat_ToAnother_Sheet پڻ Macros ۾ اندر ورڪ بڪ چونڊيو.
آخرڪار، چلايو منتخب Macro .
تنهنڪري، اهو ڪاپي چونڊيل رينج سان فارميٽ جي نئين شيٽ تي مون چونڊيو آهي ( فارميٽ سان) .
2. VBA هڪ رينج کي نقل ڪريو ٻي شيٽ ۾ بغير فارميٽ جي
اهو پڻ آهي ممڪن آهي ڪاپي هڪ رينج کان سواءِ ٻي شيٽ ۾ فارميٽ استعمال ڪندي VBA .
هتي، مان ڪندس ڪاپي <3 ڊيٽا سيٽ شيٽ کان بغير فارميٽ شيٽ تائين هڪ رينج.
اچو عمل شروع ڪريون،
هاڻي، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic ( استعمال ڪريو ALT + F11)
اڳيون، اهو کلي ويندو Microsoft Visual Basic for Applications.
پوءِ، کوليو Insert >> منتخب ڪريو Module .
A Module کلندو پوءِ کليل Module ۾ ھيٺ ڏنل ڪوڊ ٽائپ ڪريو.
1223
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_WithoutFormat_Toanother_Sheet
مون رينج ورتو آهي B1:E10 موجوده شيٽ مان شيٽ جي نالي تي نقل ڪرڻ لاءِ بغير فارميٽ .
هتي، مون استعمال ڪيو ڪاپي طريقو چونڊيل رينج کي نقل ڪرڻ لاءِ پر پڻ ذڪر ڪيو ويو آهي پيسٽ ڪريو:=xlPasteValues PasteSpecial طريقي ۾ ته جيئن اهو صرف پيسٽ ڪندو قدر چونڊيل رينج جي، فارميٽ نه.
آخرڪار , محفوظ ڪريو ڪوڊ ۽ ورڪس شيٽ ڏانھن واپس وڃو.
اڳيون، کوليو ڏسو ٽيب >> مان Macros >> منتخب ڪريو ميڪروز ڏسو
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_WithoutFormat_Toanother_Sheet ۽ پڻ منتخب ڪريو ورڪ بڪ اندر Macros in .
آخرڪار، هلايو منتخب ٿيل Macro .
اهڙيءَ طرح، اهو ٿيندو ڪاپي چونڊيل حد صرف قدر نه فارميٽ <3 سان>.
3. فارميٽ ۽ ڪالمن جي ويڊٿ سان ٻي شيٽ ۾ هڪ رينج نقل ڪريو
ڪڏهن ڪڏهن توهان چاهيو ٿا نقل ڪريو ڪنهن به چونڊيل رينج جيئن ته آهي، ان لاءِ توهان ڪري سگهو ٿا ڪاپي هڪ حد سان فارميٽ ۽ ڪالمن جي ويڪر .
هتي، مان ڪندس ڪاپي هڪ حد ڊيٽا سيٽ شيٽ کان فارميٽ ۽ amp؛ ڪالمن جي ويڪر شيٽ.
VBA ،
استعمال ڪندي ڪم ڪرڻ جي طريقيڪار کي ڏسڻ لاءِ، پهرين، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic
توهان پڻ استعمال ڪري سگهو ٿا ALT + F11 ڪي بورڊ کولڻ لاءِ VBA ايڊيٽر.
اڳيون، اهو هڪ نئين ونڊو کوليندو Microsoft Visual Basic for Applications.
هتي، کوليو Insert >> منتخب ڪريو Module .
A Module کلندو پوءِ کليل Module ۾ ھيٺ ڏنل ڪوڊ ٽائپ ڪريو.
4998
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth
مون رينج ورتو آهي B1:E10 موجوده شيٽ مان نقل ڪرڻ لاءِ منزل شيٽ جو نالو فارميٽ ۽ amp; ڪالمن جي ويڪر .
هتي، مون استعمال ڪيو ڪاپي طريقي کي چونڊيو رينج کي نقل ڪرڻ لاءِ. مون پڻ استعمال ڪيو آهي PasteSpecial طريقو جتي مون ذڪر ڪيو آهي Paste:=xlPasteColumnWidths ته جيئن اهو چونڊيل رينج کي پيسٽ ڪري فارميٽ ۽ ڪالمن جي ويڪر .
آخر ۾، محفوظ ڪريو ڪوڊ ۽ ورڪس شيٽ ڏانھن واپس وڃو.
اڳيون، کوليو ڏسو ٽيب >> مان Macros >> منتخب ڪريو ماڪرو ڏسو
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth ۽ پڻ چونڊيو ڪم بڪ اندر Macros in .
آخرڪار، هلايو منتخب ٿيل Macro .
نتيجي طور، اهو ٿيندو ڪاپي چونڊيل حد سان فارميٽ ۽ ڪالمن جي ويڪر .
4. VBA هڪ رينج کي ٻي شيٽ ۾ ڪاپي ڪريو فارمولا سان
جيڪڏهن توهان وٽ توهان جي ڊيٽا سيٽ ۾ ڪو به فارمولو آهي ته توهان ڪاپي ڪرڻ چاهيو ٿا. پريشاني جي ڳالهه ناهي! توھان نقل ڪري سگھو ٿا رينج تي مشتمل آھي فارمولا فارمولا کي برقرار رکندي ٻي شيٽ تي.
ھتي، مان ڪاپي ڪندس ھڪڙي رينج مان ڊيٽا سيٽ شيٽ to WithFormula sheet
اچو عمل شروع ڪريون،
شروع ڪرڻ لاءِ، کوليو Developer tab >> منتخب ڪريو Visual Basic ( توهان پڻ استعمال ڪري سگهو ٿا ALT + F11 ڪي بورڊ)
11>
اڳيون، اهو کوليندو Microsoft Visual Basic for Applications.
هتان، کوليو Insert >> منتخب ڪريو Module .
A Module کلندو پوءِ کليل Module ۾ ھيٺ ڏنل ڪوڊ ٽائپ ڪريو.
2004
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_withFormula_ToAnother_Sheet
مون رينج ورتو آهي B1:E10 موجوده شيٽ مان نقل ڪرڻ لاءِ منزل شيٽ جو نالو WithFormula .
هتي، مون استعمال ڪيو ڪاپي طريقو چونڊيل رينج کي نقل ڪرڻ لاءِ. مون پڻ استعمال ڪيو PasteSpecial طريقو جتي مون ذڪر ڪيو آهي Paste:=xlPasteFormulas ته جيئن اهو چونڊيل رينج سان گڏ فارمول کڻي وڃي.
آخرڪار , محفوظ ڪريو ڪوڊ ۽ ورڪس شيٽ ڏانھن واپس وڃو.
پوءِ، کوليو ڏسو tab >> مان Macros >> منتخب ڪريو ماڪرو ڏسو
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_withFormula_ToAnother_Sheet پڻ Macros ۾ اندر ورڪ بڪ چونڊيو.
آخرڪار، چلايو منتخب ٿيل Macro .
ان ڪري، اهو ٿيندو ڪاپي سڀني چونڊيل سيل رينجز کي فارمولن سان.
ملندڙ پڙھڻ:
- ڪيئن استعمال ڪجي وي بي اي رينج آف سيٽ (11 طريقا) 2>VBA هر سيل لاءِ ايڪسل ۾ رينج ۾ (3 طريقا)
- ايڪسل ۾ VBA جي رينج آبجیکٹ کي ڪيئن استعمال ڪجي (5 پراپرٽيز)
5. هڪ رينج کي AutoFit سان ٻي شيٽ تي نقل ڪريو
جڏهن ته نقل هڪ رينج کي ٻي شيٽ تي نقل ڪريو توهان پڻ استعمال ڪري سگهو ٿا آٽو فٽ طريقي ۾ VBA to AutoFit نئين شيٽ ۾ ڪاپي ڪيل رينج.
هتي، مان ڪندس ڪاپي جي حد تائين ڊيٽا سيٽ شيٽ ڏانهن آٽو فٽ شيٽ
اچو عمل شروع ڪريون،
پهرين، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic
توهان پڻ استعمال ڪري سگهو ٿا ALT + F11 ڪي بورڊ کولڻ لاءِ VBA ايڊيٽر.
اڳيون، اها ونڊو کلي ويندي Microsoft Visual Basic for Applications.
پوءِ، کوليو Insert > ؛> منتخب ڪريو Module .
A Module کلندو پوءِ کوليو ويو ھيٺ ڏنل ڪوڊ ٽائپ ڪريو ماڊيول .
4235
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_withFormat_AutoFit
پهريون، مون ورڪ شيٽ چونڊيو Dataset . پوءِ رينج ورتو B1:E10 موجوده شيٽ مان نقل ڪرڻ لاءِ منزل واري شيٽ تي جنهن جو نالو AutoFit .
هتي، مون استعمال ڪيو ڪاپي چونڊيل رينج کي نقل ڪرڻ جو طريقو ۽ AutoFit طريقو ڏنل ڪالمن کي خودڪار ڪندو B:E .
آخر ۾، محفوظ ڪريو ڪوڊ ۽ وڃو ورڪ شيٽ ڏانهن واپس.
اڳيون، کوليو ڏسو ٽيب >> مان Macros >> منتخب ڪريو ميڪروز ڏسو
16>1>
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، Macro name منتخب ڪريو Copy_Range_withFormat_AutoFit به منتخب ڪريو ورڪ بڪ اندر Macros in .
آخرڪار، چلايو منتخب Macro .
انهي ڪري، اهو ٿيندو ڪاپي چونڊيل رينج کي نئين شيٽ ڏانهن ۽ پڻ آٽو فٽ ڪالمن.
6. VBA هڪ رينج کي ٻئي ورڪ بڪ ۾ نقل ڪريو
جيڪڏهن توهان چاهيو ته توهان پڻ ڪري سگهو ٿا ڪاپي هڪ رينج هڪ شيٽ کان ٻئي شيٽ تائين هڪ مختلف ورڪ بڪ جو.
هتي، مان ڪاپي ڪندس هڪ رينج ڊيٽا سيٽ شيٽ کان شيٽ1 جي ڪتاب 1 ڪم بڪ.
اچو ته عمل شروع ڪريون،
پهرين، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic (y توهان پڻ استعمال ڪري سگهو ٿا ALT + F11 ڪي بورڊ)
11>
پوءِ، اهو کلي ويندو Microsoft Visualايپليڪيشنن لاءِ بنيادي.
اڳيون، کوليو Insert >> منتخب ڪريو Module .
A Module کلندو پوءِ کليل Module ۾ ھيٺ ڏنل ڪوڊ ٽائپ ڪريو.
7011
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_WithFormat_Toanother_WorkBook
مون رينج ورتو آهي B3:E10 شيٽ جي نالي مان ڊيٽا سيٽ موجوده شيٽ مان نقل ڪرڻ لاءِ نئين ورڪ بڪ جو نالو Book1 ۽ شيٽ جو نالو شيٽ1 .
هتي، مون استعمال ڪيو ڪاپي طريقو چونڊيو رينج کي نئين ورڪ بڪ ۾ نقل ڪرڻ لاءِ.
آخر ۾، محفوظ ڪريو ڪوڊ ۽ ورڪس شيٽ ڏانهن واپس وڃو.
اڳيون، کوليو ڏسو ٽيب >> مان Macros >> منتخب ڪريو ميڪروز ڏسو
1>
➤ A ڊائيلاگ باڪس پاپ اپ ٿيندو.
هاڻي، ميڪرو جو نالو منتخب ڪريو Copy_Range_WithFormat_Toanother_WorkBook پڻ چونڊيو ورڪ بڪ اندر Macros in .
آخرڪار، رن منتخب ٿيل Macro .
هاڻي، اهو ڪاپي چونڊيل رينج کي ڊيٽا سيٽ شيٽ کان ٻئي ورڪ بڪ ۾ آڻيندو.
7. هڪ رينج کي ٻئي شيٽ جي آخري قطار ۾ نقل ڪريو
ڪنهن به صورت ۾، جيڪڏهن توهان چاهيو ٿا ڪپي هڪ رينج کي ٻي شيٽ تي ڪنهن خاص سيل يا آخري سيل مان توهان اهو ڪري سگهو ٿا VBA .
پروسيجر ۾ داخل ٿيڻ کان اڳ، مان توهان کي ٻڌائڻ چاهيان ٿو ته، مون ٻه نوان شيٽ ورتا آهن جن تي مشتمل آهي <. 2> پورو نالو، اي ميل، ۽ ايڊريس .
اچو ته ڏسو Dataset2 شيٽ پهرين.
هتي آهي هيٺ ڏنل آخري سيل شيٽ.
39>
هتي، مان ڪاپي ڪندس جي حد کان 2>Dataset2 شيٽ ڏانهن آخري سيل جي هيٺان پر پهرين غير خالي سيل کان.
شروع ڪرڻ لاءِ، کوليو ڊولپر ٽيب >> منتخب ڪريو Visual Basic
اڳيون، اهو کلي ويندو Microsoft Visual Basic for Applications.
پوءِ، کوليو داخل >> منتخب ڪريو Module .
A Module کلندو پوءِ کليل Module ۾ ھيٺ ڏنل ڪوڊ ٽائپ ڪريو.
8474
هتي، مون اعلان ڪيو ذيلي طريقيڪار Copy_Range_BelowLastCell_AnotherSheets
پهرين، مون شيٽ کي چونڊيو Dataset2 ۽ پوءِ استعمال ڪيو قطار طريقو ڳڻڻ لاءِ آخري قطار ۽ ڳڻيل قطار کي lr ۾ رکيو.
پوءِ ورتو ويو. حد A2:C & lr موجوده شيٽ مان نقل ڪرڻ لاءِ منزل واري شيٽ جي نالي تي آخري سيل جي هيٺان .
ٻيهر، استعمال ڪيو قطار طريقو ڳڻڻ لاءِ آخري قطار هڪ ٻي شيٽ جي جنهن جو نالو آخري سيل هيٺ رکيو ويو ۽ ڳڻيل قطار کي lrAnotherSheet ۾ رکيو.
هتي، مون استعمال ڪيو ڪاپي طريقو منتخب ٿيل رينج کي نقل ڪرڻ لاءِ ۽ AutoFit طريقو ڏنل ڪالمن کي خودڪار ڪندو A:C .
آخر ۾، محفوظ ڪريو ڪوڊ ۽ واپس وڃو ورڪ شيٽ ڏانهن.
اڳيون، کوليو ڏسو ٽيب >> مان ميڪرو
