টিউটোৰিয়েলে এক্সেলত শ্বীটসমূহ নকল কৰিবলে মেক্ৰ'সমূহৰ এটা সংকলন প্ৰদান কৰে: কোষ মানৰ ওপৰত ভিত্তি কৰি কপি আৰু পুনৰনামকৰণ, একাধিক শ্বীট কপি, এটা সক্ৰিয় কাৰ্য্যপত্ৰিকাক খোলা নোহোৱাকৈ অন্য ফাইললৈ কপি, আৰু অধিক>

এক্সেলত শ্বীটসমূহ হাতেৰে কপি কৰাটো যথেষ্ট দ্ৰুত আৰু পোনপটীয়া... যদি মাত্ৰ এবাৰ বা দুবাৰ কৰা হয়। একাধিক শ্বীট একাধিকবাৰ ডুপ্লিকেট কৰাটো বিৰক্তিকৰ আৰু সময়সাপেক্ষ। এই পৃষ্ঠাত, আপুনি এই কাম স্বয়ংক্ৰিয় কৰিবলে মুষ্টিমেয় উপযোগী মেক্ৰ' পাব।

নতুন কাৰ্য্যপুস্তিকালৈ পত্ৰিকা কপি কৰিবলে VBA এক্সেল কৰক

এই আটাইতকৈ সৰল এক-শাৰী মেক্ৰ'ই কৰে ইয়াৰ নামে যি কয় - সক্ৰিয় পত্ৰিকাক এটা নতুন কাৰ্য্যপুস্তিকালৈ কপি কৰে।

ৰাজহুৱা উপ CopySheetToNewWorkbook() activeSheet.Copy End Sub

VBA ৰ সৈতে Excel ত একাধিক পত্ৰিকা কপি কৰক

যদি আপুনি বিচাৰে সক্ৰিয় কাৰ্য্যপুস্তিকাৰ পৰা এটা নতুনলৈ কেইবাটাও পত্ৰিকা কপি কৰক, আগ্ৰহৰ সকলো কাৰ্য্যপত্ৰিকা নিৰ্ব্বাচন কৰক আৰু এই মেক্ৰ' চলাওক:

ৰাজহুৱা উপ CopySelectedSheets() ActiveWindow.SelectedSheets.Copy End Sub

পত্ৰিকাক অন্য কাৰ্য্যপুস্তিকালৈ কপি কৰিবলে VBA এক্সেল কৰক

আপুনি কপি কৰা পত্ৰিকা ক'ত সন্নিবিষ্ট কৰিব বিচাৰে তাৰ ওপৰত নিৰ্ভৰ কৰি, নিম্নলিখিত মেক্ৰ'সমূহৰ এটা ব্যৱহাৰ কৰক।

পত্ৰিকাক অন্য কাৰ্য্যপুস্তিকাৰ আৰম্ভণিলৈ কপি কৰক

এই মেক্ৰ'ই সক্ৰিয় পত্ৰিকাখন আগতে কপি কৰে গন্তব্য নথিপত্ৰত অন্য সকলো কাৰ্য্যপত্ৰিকা, এই উদাহৰণত Book1 । অন্য নথিপত্ৰলৈ কপি কৰিবলে, "Book1.xlsx" আপোনাৰ লক্ষ্য কাৰ্য্যপুস্তিকাৰ সম্পূৰ্ণ নামেৰে সলনি কৰক।

ৰাজহুৱা উপCopySheetToBeginningAnotherWorkbook() activeSheet.Copy Before:=Workbooks( "Book1.xlsx" ).Sheets(1) End Sub

আন এখন কাৰ্য্যপুস্তিকাৰ শেষলৈ পত্ৰিকা কপি কৰক

এই ক'ডৰ টুকুৰাটোৱে সক্ৰিয় কাৰ্য্যপত্ৰিকাক নকল কৰে আৰু... কপিটো Book1 ৰ শেষত ৰাখে। আকৌ, অনুগ্ৰহ কৰি "Book1.xlsx" আপোনাৰ গন্তব্য কাৰ্য্যপুস্তিকাৰ নামেৰে সলনি কৰিবলৈ মনত ৰাখিব।

Public Sub CopySheetToEndAnotherWorkbook() activeSheet.Copy After:=Workbooks( "Book1.xlsx" ).Sheets(Workbooks( "Book1.xlsx " ).ৱৰ্কশ্বীট.গণনা) শেষ উপ

টোকা। মেক্ৰ'সমূহে কাম কৰিবলে, লক্ষ্য কাৰ্য্যপুস্তিকা আপোনাৰ হাৰ্ড ড্ৰাইভ বা নে'টৱৰ্কত সংৰক্ষণ কৰিব লাগিব।

এটা নিৰ্বাচিত কাৰ্য্যপুস্তিকালৈ পত্ৰিকা কপি কৰক

বৰ্ত্তমানৰ পৃষ্ঠাক যিকোনো মুক্ত কাৰ্য্যপুস্তিকালৈ কপি কৰিবলে, আপুনি এটা ব্যৱহাৰকাৰী প্ৰপত্ৰ (নাম ব্যৱহাৰকাৰী প্ৰপত্ৰ1 ) এটা ListBox নিয়ন্ত্ৰণ ( নাম ListBox1 ) আৰু দুটা বুটামৰ সৈতে সৃষ্টি কৰিব পাৰে:

ইয়াৰ পিছত, ফৰ্মত দুবাৰ-ক্লিক কৰক আৰু তলৰ ক'ডটো ক'ড উইণ্ড'ত পেষ্ট কৰক:

ৰাজহুৱা নিৰ্বাচিত কাৰ্য্যপুস্তক ষ্ট্ৰিং হিচাপে ব্যক্তিগত উপ ব্যৱহাৰকাৰীForm_Initialize() SelectedWorkbook = "" ListBox1.Clear For Each wbk In Application.Workbooks ListBox1.AddItem (wbk.Name) পৰৱৰ্তী শেষ উপ ব্যক্তিগত উপ CommandButton1_Click() যদি ListBox1.ListIndex > -1 তাৰ পিছত SelectedWorkbook = ListBox1.List(ListBox1.ListIndex) শেষ যদি Me.Hide End Sub ব্যক্তিগত উপ CommandButton2_Click() SelectedWorkbook = "" Me.Hide End Sub

UserForm স্থানত থকাৰ সৈতে, আপুনি নিম্নলিখিতৰ এটা ব্যৱহাৰ কৰিব পাৰে কপি কৰিবলৈ মেক্ৰ'সমূহআপোনাৰ পছন্দৰ কাৰ্য্যপুস্তিকালৈ সক্ৰিয় পত্ৰিকা।

নিৰ্বাচিত কাৰ্য্যপুস্তিকাৰ আৰম্ভণিলৈ পত্ৰিকা কপি কৰক :

ৰাজহুৱা উপ CopySheetToBeginningAnotherWorkbook() Load UserForm1 UserForm1.Show If (UserForm1.SelectedWorkbook " " ) তাৰ পিছত activeSheet.Copy Before:=Workbooks(UserForm1.SelectedWorkbook).Sheets(1) শেষ যদি UserForm1 আনল'ড কৰক শেষ উপ

নিৰ্বাচিত কাৰ্য্যপুস্তিকাৰ অন্তলৈ পত্ৰিকা কপি কৰক :

ৰাজহুৱা উপ CopySheetToEndAnotherWorkbook() UserForm1 লোড কৰক UserForm1.Show If (UserForm1.SelectedWorkbook "" ) তাৰ পিছত activeSheet.Copy After:=কাৰ্য্যপুস্তিকা( _ ব্যৱহাৰকাৰীফৰ্ম1.নিৰ্বাচিত কৰ্মপুথি). End Sub

যেতিয়া Excel ত চলোৱা হয়, মেক্ৰ'ই আপোনাক বৰ্তমানে খোলা সকলো কাৰ্য্যপুস্তিকাৰ এটা তালিকা দেখুৱাব। আপুনি প্ৰয়োজনীয়টো নিৰ্ব্বাচন কৰে আৰু ঠিক আছে ক্লিক কৰক:

শ্বীট কপি কৰিবলৈ এক্সেল মেক্ৰ' আৰু পুনৰ নাম সলনি কৰিবলৈ

যেতিয়া আপুনি এক্সেলত এখন শ্বীট কপি কৰে, প্ৰতিলিপিক দিয়া হয় নাম অবিকল্পিত বিন্যাসত যেনে Sheet1 (2) । নিম্নলিখিত মেক্ৰ'সমূহে আপোনাক অবিকল্পিত নাম হস্তচালিতভাৱে সলনি কৰাৰ সমস্যাৰ পৰা ৰক্ষা কৰিব পাৰে।

এই ক'ডে সক্ৰিয় কাৰ্য্যপত্ৰিকাক নকল কৰে, কপিক "পৰীক্ষা পত্ৰিকা" হিচাপে নাম দিয়ে (আপুনি ইয়াক আপুনি পছন্দ কৰা অন্য যিকোনো নামেৰে সলনি কৰিবলৈ স্বাধীন) , আৰু কপি কৰা পত্ৰিকাখন বৰ্তমান কাৰ্য্যপুস্তিকাৰ শেষত ৰাখে।

ৰাজহুৱা উপ CopySheetAndRenamePredefined() activeSheet.Copy After:=Worksheets(Sheets.Count) ত্ৰুটিত পুনৰাৰম্ভ কৰক পৰৱৰ্তী activeSheet.Name ="পৰীক্ষা পত্ৰিকা" শেষ উপ

ব্যৱহাৰকাৰীক কপি কৰা পত্ৰিকাৰ বাবে নাম ধাৰ্য্য কৰাৰ অনুমতি দিবলৈ , এই ক'ড ব্যৱহাৰ কৰক:

ৰাজহুৱা উপ CopySheetAndRename() Dim newName As String On Error Resume Next newName = InputBox( "কপি কৰা কাৰ্য্যপত্ৰিকাৰ বাবে নাম সুমুৱাওক" ) যদি newName "" তেন্তে activeSheet.Copy After:=Worksheets(Sheets.Count) ত্ৰুটিত পুনৰাৰম্ভ কৰক পৰৱৰ্তী activeSheet.Name = newName শেষ যদি শেষ উপ

চল কৰাৰ পিছত, মেক্ৰ' নিম্নলিখিত ইনপুট বাকচ প্ৰদৰ্শন কৰে, য'ত আপুনি পছন্দৰ নাম টাইপ কৰে আৰু ঠিক আছে টিপক:

এক্সেল মেক্ৰ'ক শ্বীট কপি কৰিবলে আৰু ঘৰৰ মানৰ ওপৰত ভিত্তি কৰি পুনৰনামকৰণ কৰিবলে

In কিছুমান পৰিস্থিতিত, এটা নিৰ্দিষ্ট ঘৰ মানৰ সৈতে এটা কপিৰ নামকৰণ কৰাটো অধিক সুবিধাজনক হব পাৰে, উদাহৰণস্বৰূপ, এটা স্তম্ভ হেডাৰ । ইয়াৰ বাবে, আপুনি ওপৰৰ ক'ডটো লওক আৰু বৰ্তমানে নিৰ্বাচিত কোষ ৰ মান স্বয়ংক্ৰিয়ভাৱে ইনপুট বাকচলৈ যোগান ধৰে। পূৰ্বৰ উদাহৰণৰ দৰে, কপি সক্ৰিয় কাৰ্য্যপুস্তিকাৰ শেষত ৰখা হ'ব।

আটাইতকৈ কৌশলী অংশ হ'ব আপোনাৰ ব্যৱহাৰকাৰীসকলে চলোৱাৰ আগতে সদায় সঠিক ঘৰ নিৰ্ব্বাচন কৰা the macro :)

Public Sub CopySheetAndRenameByCell() Dim newName As String On Error Resume Next newName = InputBox( "কপি কৰা কাৰ্য্যপত্ৰিকাৰ বাবে নাম সুমুৱাওক" , "কপি কৰা কাৰ্য্যপত্ৰিকা" , ActiveCell.Value) যদি newName "" তেন্তে activeSheet. পিছত কপি কৰক:=ৱৰ্কশ্বীট(শ্বীট.গণনা) ত্ৰুটিত পুনৰাৰম্ভ কৰক পৰৱৰ্তী activeSheet.Name = newName শেষ যদি শেষ উপ

বিকল্পভাৱে, আপুনি ৰ ঠিকনা হাৰ্ডকোড কৰিব পাৰেকপিটোৰ নামকৰণ কৰা কোষ , তলৰ ক'ডত থকা কোষ A1। কপি কৰা কাৰ্য্যপত্ৰিকাক অন্য ঘৰৰ ওপৰত ভিত্তি কৰি নামকৰণ কৰিবলে, A1ক এটা উপযুক্ত ঘৰ প্ৰসংগৰে সলনি কৰক।

ৰাজহুৱা উপ CopySheetAndRenameByCell2() Dim wks As Worksheet Set wks = activeSheet activeSheet.Copy After:=Worksheets(Sheets.Count) যদি wks.Range ( "A1" ).মান "" তাৰ পিছত ত্ৰুটিত পুনৰাৰম্ভ কৰক পৰৱৰ্তী activeSheet.Name = wks.Range( "A1" ).মান শেষ যদি wks.Activate End Sub

মেক্ৰ'ক এটা বন্ধ কাৰ্য্যপুস্তিকালৈ কাৰ্য্যপত্ৰিকা কপি কৰিবলে

এই মেক্ৰ'ই সক্ৰিয় পত্ৰিকাখন বন্ধ কাৰ্য্যপুস্তিকাৰ শেষলৈ কপি কৰে। ক'ডত অন্য কাৰ্য্যপুস্তিকাৰ নাম ধাৰ্য্য কৰা হোৱা নাই - মেক্ৰ'ই প্ৰামাণিক Windows এক্সপ্ল'ৰাৰ উইন্ডো খোলিব আৰু আপোনাক যিকোনো গন্তব্য ফাইল নিৰ্ব্বাচন কৰাৰ অনুমতি দিব:

আপুনি ফাইল নিৰ্ব্বাচন কৰাৰ পিছত আৰু খোলক ক্লিক কৰক, মেক্ৰ'ই সক্ৰিয় পত্ৰিকা কপি কৰিব আৰু লক্ষ্য কাৰ্য্যপুস্তিকা স্বয়ংক্ৰিয়ভাৱে বন্ধ কৰিব।

ৰাজহুৱা উপ CopySheetToClosedWorkbook() Dim fileName Dim closedBook As Workbook Dim currentSheet As Worksheet fileName = Application.GetOpenFilename( "Excel ফাইলসমূহ (*.xlsx), *.xlsx" ) যদি fileName মিছা তেন্তে Application.ScreenUpdating = মিছা currentSheet = Application.activeSheet নিৰ্ধাৰণ কৰক closedBook = কাৰ্য্যপুস্তিকাসমূহ সংহতি কৰক। খোলক (ফাইলৰ নাম) currentSheet.Copy After:=closedBook.Sheets(closedBook.Worksheets.Count) closedBook. বন্ধ কৰক ( সত্য ) Application.ScreenUpdating = সত্য শেষ যদি শেষ উপ

অবিহনে অন্য কাৰ্য্যপুস্তিকাৰ পৰা পত্ৰিকা কপি কৰিবলে VBA এক্সেল কৰকopening

এই মেক্ৰ'ই আপোনাক অন্য Excel ফাইলৰ পৰা এটা কাৰ্য্যপত্ৰিকা কপি কৰিবলৈ সক্ষম কৰে ইয়াক খোলা নোহোৱাকৈ। কপি কৰা পত্ৰিকাখন বৰ্তমানৰ কাৰ্য্যপুস্তিকাৰ শেষত সন্নিবিষ্ট কৰা হ'ব।

কেৱল ক'ডত দুটামান সলনি কৰিবলৈ মনত ৰাখিব:

• C:\Users\XXX\Documents\ Target_Book.xlsx ক আপুনি কপি কৰিব বিচৰা পত্ৰিকাৰ নামেৰে সলনি কৰিব লাগে।

Public Sub CopySheetFromClosedWorkbook() ৱৰ্কবুক Application.ScreenUpdating = মিছা ছেট কৰক sourceBook = কাৰ্য্যপুস্তিকাসমূহ। খোলক ( "C:\Users\XXX\Documents\Target_Book.xlsx" ) sourceBook.Sheets( "Sheet1" ).কপি কৰাৰ পিছত:=এই কৰ্মপুথি.শ্বীট(এই কৰ্মপুথি.শ্বীট.গণনা) sourceBook. বন্ধ কৰক Application.ScreenUpdating = True End Sub

একাধিকবাৰ শ্বীট নকল কৰিবলে VBA এক্সেল কৰক

কেতিয়াবা, আপুনি একেখন শ্বীট এবাৰতকৈ অধিক ডুপ্লিকেট কৰিব লাগিব, উদাহৰণস্বৰূপে একেটা ডাটা ছেটত বিভিন্ন সূত্ৰ পৰীক্ষা কৰিবলে। এইটো সহজে নিম্নলিখিত মেক্ৰ'ৰ সৈতে কৰিব পাৰি।

Public Sub DuplicateSheetMultipleTimes() Dim n As Integer On Error Resume Next n = InputBox( "আপুনি সক্ৰিয় পত্ৰিকাৰ কিমান কপি বনাব বিচাৰে?" ) যদি n > = 1 তাৰ পিছত numtimes ৰ বাবে = 1 n activeSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count) পৰৱৰ্তী শেষ যদি শেষ উপ

মূল পত্ৰিকা খোলক, মেক্ৰ' চলাওক, সক্ৰিয় পত্ৰিকাৰ কিমান কপি ধাৰ্য্য কৰকআপুনি বনাব বিচাৰে, আৰু ক্লিক কৰক ঠিক আছে :

VBA ৰ সৈতে Excel ত শ্বীটসমূহ কেনেকৈ ডুপ্লিকেট কৰিব

এক্সেলত এটা শ্বীট কপি কৰিবলৈ ওপৰৰ মেক্ৰ'সমূহৰ এটাৰ সৈতে, আপুনি হয় VBA ক'ড আপোনাৰ নিজৰ কিতাপত সন্নিবিষ্ট কৰিব পাৰে বা আমাৰ নমুনা কাৰ্য্যপুস্তিকাৰ পৰা এটা মেক্ৰ' চলাব পাৰে।

আপোনাৰ কাৰ্য্যপুস্তিকাত এটা মেক্ৰ' কেনেকৈ যোগ কৰিব

আপোনাৰ কাৰ্য্যপুস্তিকাত ক'ড কৰক, এই পদক্ষেপসমূহ কৰক:

1. আপুনি কপি কৰিব বিচৰা কাৰ্য্যপত্ৰিকা খোলক।
2. ভিজুৱেল বেচিক সম্পাদক খোলিবলৈ Alt + F11 টিপক।
3. অন বাওঁফালৰ পেনত, এই কৰ্মপুস্তিকা ৰাইট-ক্লিক কৰক, আৰু তাৰ পিছত সন্ধান কৰক > মডিউল ক্লিক কৰক।
4. ক'ড উইণ্ড'ত ক'ড পেষ্ট কৰক।
5. মেক্ৰ' চলাবলৈ F5 টিপক।

বিৱৰিত স্তৰ-দ্বাৰা-স্তৰ নিৰ্দেশনাৰ বাবে, অনুগ্ৰহ কৰি Excel ত VBA ক'ড কেনেকৈ সন্নিবিষ্ট কৰিব চাওক।

কেনেকৈ চলাব লাগে আমাৰ নমুনা কাৰ্য্যপুস্তিকাৰ পৰা এটা মেক্ৰ'

বিকল্পভাৱে, আপুনি আমাৰ নমুনা কাৰ্য্যপুস্তিকা এক্সেল পত্ৰিকাসমূহৰ নকল কৰিবলে ডাউনল'ড কৰিব পাৰে আৰু তাৰ পৰা ক'ড চলাব পাৰে।

নমুনা কাৰ্য্যপুস্তিকাত নিম্নলিখিত মেক্ৰ'সমূহ আছে:

CopySheetToNewWorkbook - cu কপি কৰে এটা নতুন কাৰ্য্যপুস্তিকালৈ কাৰ্য্যপত্ৰিকা rrent কৰক।

CopySelectedSheets - আপুনি এটা নতুন কাৰ্য্যপুস্তিকালৈ নিৰ্ব্বাচন কৰা একাধিক পত্ৰিকা কপি কৰে।

CopySheetToBeginningAnotherWorkbook - সক্ৰিয় পত্ৰিকা কপি কৰে অন্য ৱৰ্কবুকৰ আৰম্ভণিলৈ।

CopySheetToEndAnotherWorkbook - সক্ৰিয় পত্ৰিকাক অন্য এক্সেল ফাইলৰ শেষলৈ কপি কৰে।

CopySheetAndRename - বৰ্তমানৰ নকল কৰে চাদৰ,ব্যৱহাৰকাৰীয়ে ধাৰ্য্য কৰা ধৰণে ইয়াক পুনৰনামকৰণ কৰে, আৰু বৰ্ত্তমানৰ কাৰ্য্যপুস্তিকাত অন্য সকলো পত্ৰিকাৰ পিছত কপি ৰাখে।

CopySheetAndRenamePredefined - সক্ৰিয় পত্ৰিকাক নকল কৰে, কপিক এটা হাৰ্ডকোড কৰা নাম দিয়ে আৰু ইয়াক ৰাখে বৰ্তমান কাৰ্য্যপুস্তিকাৰ শেষত।

CopySheetAndRenameByCell - সক্ৰিয় পত্ৰিকাৰ এটা কপি কৰে আৰু নিৰ্বাচিত ঘৰ মানৰ ওপৰত ভিত্তি কৰি ইয়াক পুনৰনামকৰণ কৰে।

CopySheetAndRenameByCell2 - সক্ৰিয় পত্ৰিকা কপি কৰে আৰু হাৰ্ডকোড কৰা ঘৰ ঠিকনাৰ ওপৰত ভিত্তি কৰি ইয়াক পুনৰনামকৰণ কৰে।

CopySheetToClosedWorkbook - আপোনাক এটা বন্ধ কাৰ্য্যপুস্তিকালৈ পত্ৰিকা কপি কৰাৰ অনুমতি দিয়ে।

CopySheetFromClosedWorkbook - আপোনাক আন এক্সেল ফাইলৰ পৰা এটা শ্বীট কপি কৰিবলৈ সক্ষম কৰে ইয়াক খোলা নোহোৱাকৈ।

DuplicateSheetMultipleTimes - আপোনাক এক্সেলত এটা শ্বীট একাধিকবাৰ ডুপ্লিকেট কৰিবলৈ দিয়ে।

To আপোনাৰ Excel ত মেক্ৰ' চলাওক, মাত্ৰ নিম্নলিখিত কৰক:

1. ডাউনল'ড কৰা কাৰ্য্যপুস্তিকা খোলক আৰু যদি প্ৰমপ্ট কৰা হয় বিষয়বস্তু সামৰ্থবান কৰক।
2. আপোনাৰ নিজৰ কাৰ্য্যপুস্তিকা খোলক আৰু আপুনি বিচৰা পত্ৰিকালৈ নেভিগেট কৰক কপি কৰক।
<1 7>আপোনাৰ কাৰ্য্যপত্ৰিকাত, Alt + F8 টিপক, আগ্ৰহৰ মেক্ৰ' নিৰ্ব্বাচন কৰক, আৰু চালক ক্লিক কৰক।

আপুনি এনেদৰে নকল কৰিব পাৰে VBA ৰ সৈতে Excel ত এটা শ্বীট। পঢ়াৰ বাবে ধন্যবাদ আৰু অহা সপ্তাহত আমাৰ ব্লগত লগ পাম বুলি আশা কৰিলোঁ!