کوکیز ہماری خدمات فراہم کرنے میں ہماری مدد کرتی ہے. ہماری خدمات کو استعمال کرتے ہوئے، آپ کو کوکیز کے استعمال سے اتفاق کرتے ہیں.
ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

ایکسل میں ایک ورکشاپ میں ایک سے زیادہ ورک بک بک کیسے جمع کرنا؟

جب آپ اکیلے میں ایک ورکشاپ میں ایک سے زیادہ ورک بک بکس کو یکجا کرنا پڑتا ہے تو آپ کبھی کبھار پھنس گئے ہیں؟ سب سے زیادہ خوفناک بات یہ ہے کہ آپ کو ملازمت کرنے کی ضرورت ہے جس کے ورک بک بک میں متعدد ورکشاپ موجود ہیں. کیا کسی کو اس مسئلے کو حل کرنے کا ایک اچھا طریقہ بتا سکتا ہے؟

VBA کے ساتھ ایک ورکشاپ میں ایک سے زیادہ ورک بک بک جمع کریں

منتقل یا کاپی کمانڈر کے ساتھ ایک ورک بک میں متعدد ورکشاپیں جمع کریں

ایکسل کے لئے Kutools کے ساتھ ایک ورک بک میں آسانی سے ایک سے زیادہ ورک بک بک جمع


ایک ورک شیٹ / ورکشاپ میں ایک سے زیادہ ورکشیٹ / ورک بک بک آسانی سے جمع کریں:

متعدد ورکشیٹس یا ورک بک بکس کو ایک ہی ورکیٹیٹ میں ملائیں یا ورکشاپ بک آپ کے روز مرہ کے کام میں ایک بہت بڑا کام ہوسکتا ہے. لیکن، اگر آپ ہیں ایکسل کے لئے Kutools، اس کی طاقتور افادیت - یکجا آپ کو ایک ہی ورک شیٹ یا ورکشاپ میں ایک سے زیادہ ورکشیٹس، ورک بک بک کو جلدی میں مدد کرنے میں مدد مل سکتی ہے. ایکسل کے لئے کوٹولز کے 60 دن مفت ٹریلل اب ڈاؤن لوڈ کریں!

ایکسل کے لئے Kutools: 200 آسان ایکسل اضافی سے زیادہ کے ساتھ، 60 دنوں میں کوئی حد کے ساتھ کوشش کرنے کے لئے آزاد. ڈاؤن لوڈ اور مفت آزمائشی اب!


VBA کے ساتھ ایک ورکشاپ میں ایک سے زیادہ ورک بک بک جمع کریں

ماہرین اور پیشہ ورانہ پروگرامر کے لئے، آپ ایک ماسٹر ورک بک میں ایک سے زیادہ ورک بک بکس جمع کرنے کے لئے VBA سکرپٹ استعمال کرسکتے ہیں. آپ مندرجہ ذیل اقدامات کے ساتھ اس سے نمٹنے کے لئے کر سکتے ہیں:

1. تمام ورک بک بک رکھو جو آپ اسی ڈائرکٹری میں جمع کرنا چاہتے ہیں. اسکرین شاٹ دیکھیں:

2. کسی ایکسل فائل کا آغاز کریں جسے آپ دوسرے ورکشاپ میں شامل کرنا چاہتے ہیں.

3. کلک کریں ڈیولپر > بصری بیسکایک نیا مائیکروسافٹ بصری بنیادی ایپلی کیشنز ونڈو ظاہر کی جائے گی پر کلک کریں داخل > ماڈیول، اور ماڈیول میں مندرجہ ذیل کوڈ ان پٹ:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

ٹپمندرجہ بالا کوڈ میں، آپ اس کا راستہ تبدیل کرسکتے ہیں جو آپ استعمال کررہے ہیں.

4. پھر کلک کریں ڈیک مرغ - کثیر ورکشاپ بک - بٹن کوڈ کو چلانے کے لئے بٹن، اور ورک ورکپس کے اندر تمام ورک ورکیٹس (خالی ورکیٹس سمیت) ماسٹر ورکشاپ میں ضم کر دیا گیا ہے.

نوٹ: یہ VBA کوڈ پورے ورکشاپوں کو ماسٹر ورکشاپ میں مل سکتا ہے، اگر آپ ورک بک کے مخصوص ورکشاپوں کو یکجا کرنا چاہتے ہیں تو یہ کوڈ کام نہیں کرے گا.


منتقل یا کاپی کمانڈر کے ساتھ ایک ورک بک میں متعدد ورکشاپیں جمع کریں

اگر آپ مائیکروسافٹ ایکسل کے جڑواں ہیں، آپ کو کوئی اختیار نہیں ہے، لیکن صرف ہر شیٹ کے اعداد و شمار کو کاپی کرنے اور انہیں ایک نئی ورکشاپ میں ایک کرکے اور چالو یا کاپی کمانڈ کا اطلاق کرنا ہوگا. کا استعمال کرتے ہوئے منتقل کریں یا کاپی کریں کمانڈ آپ کو فوری طور پر ایک نئی ورکشاپ میں ایک یا کئی ورکشیٹس کو برآمد یا کاپی کرنے میں مدد کرے گا.

1. تمام ورک بک بکس کھولیں جسے آپ ایک ہی ورک بک میں ضم کرنا چاہتے ہیں.

2. ٹیب بار میں ایک ورکشاپ کے نام کے سبھی ورکیٹ نام کو منتخب کریں. آپ کو پکڑنے کے ساتھ متعدد منتخب کر سکتے ہیں کے لئے Ctrl کلیدی یا منتقل کلیدی دائرہ کار نام پر کلک کریں، اور کلک کریں منتقل کریں یا کاپی کریں سیاحت کے مینو سے.

3ہے. میں منتقل کریں یا کاپی کریں ڈائیلاگ باکس، ماسٹر ورکشاپ کا انتخاب کریں جسے آپ دوسرے ورکشاپوں کو ڈراپ فہرست میں ضم کرنا چاہتے ہیں منتخب شیٹس کو کتاب میں منتقل کریں. اور پھر مربوط ورکشیٹس کے مقام کی وضاحت کریں. پردے دیکھیں

4. پھر کلک کریں OK. منتخب کردہ ورکشاپ ماسٹر ورکشاپ میں منتقل کردیے گئے ہیں.

5. 2 سے 4 سے دوسرے ورکشاپوں کو ماسٹر ورکشاپ پر منتقل کرنے کیلئے اقدامات کو دوبارہ کریں. اس کے بعد یہ ایک ورکشاپ میں کھلی ورک بک کے تمام ورکشاپ کو یکجا کرتا ہے. پردے دیکھیں


ایکسل کے لئے Kutools کے ساتھ ایک ورک بک میں آسانی سے ایک سے زیادہ ورک بک بک جمع

خوش قسمتی سے، مائیکروسافٹ ایکسل کے جڑواں بچے اور نئے ہاتھوں کے لئے، کچھ دستیاب اوزار موجود ہیں تاکہ آپ سینکڑوں کاموں کو جلدی جمع کر سکیں. تقریب یکجا in ایکسل کے لئے Kutools ایک سے زیادہ ایکسل فائلوں کو یکجا کرنا آسان بناتا ہے. ایکسل میں بار بار اور بے کار کارروائیوں کو جاری کرنے کے لئے یہ درخواست استعمال کی جاتی ہے. اگر آپ اپنے روزانہ کام میں ایکسل فائل کی ایک بڑی رقم سے نمٹنے کے لئے آپ کو اصل میں ایک اہم کردار ادا کرتا ہے. اب، دیکھتے ہیں کہ یہ کام ایک سے زیادہ ورک بک بک کے ساتھ کام کرنے میں کس طرح کام کرتا ہے.

ایکسل کے لئے Kutools : 300 سے زیادہ آسان ایکسل اضافی سے زیادہ کے ساتھ، 60 دنوں میں کوئی حدود کے ساتھ کوشش کرنے کے لئے آزاد.

1. ایکسل کو فعال کریں اور کلک کریں کوٹول مزید > یکجا. پھر ایک ڈائیلاگ آپ کو یاد دلاتا ہے کہ تمام مشترکہ ورکشاپوں کو بچایا جاسکتا ہے اور خصوصیت محفوظ کتابچے میں لاگو نہیں کیا جاسکتا ہے، براہ مہربانی کلک کریں OK بٹن.

2. میں ملازمت ورق شیٹس جادوگر، منتخب کریں ورکشاپوں سے ایک ورک بک میں ایک سے زیادہ ورکشاپیں جمع کریں، اور پھر کلک کریں اگلے بٹن. اسکرین شاٹ دیکھیں:

2. پھر آپ دیکھ سکتے ہیں کہ تمام کھلی کتابچے اور ورکشاپ میں درج کی جاتی ہیں یکجا ورک شیٹس - 2 کے مرحلے 3 ڈائلاگ باکس. کلک کریں شامل کریں > فائل / فولڈر دیگر ایکسل فائلوں یا فولڈروں کو شامل کرنے کے لئے جس میں آپ کو ایکسل فائلوں پر مشتمل ہونا شامل ہے. فائلوں کو منتخب کرنے کے بعد، کلک کریں اگلے آگے جانے کے لئے بٹن. اسکرین شاٹ دیکھیں:

ڈیک ایک سے زیادہ ورک بک بک تیر 1 ضم

3. میں یکجا ورک شیٹس - 3 کے مرحلے 3 ڈائیلاگ باکس، براہ مہربانی مندرجہ ذیل ترتیبات کریں:

  • 3.1 آپ کو منتخب کرکے ضم کرنے سے تمام خالی ورکمیٹس خارج کر سکتے ہیں جائیے سے ایک خالی ورک شیٹ کا سامنا کرتے وقت ڈراپ فہرست
  • 3.2 چیک کریں ہر ورک شیٹ کی پہلی قطار (تبصرہ) ہر مشترکہ ورکشاپ کی ورکشاپ کی معلومات داخل کرنے کا اختیار.
  • 3.3 آپ کو اصل ورکیٹ نام کے نام سے پہلے یا اس سے پہلے اصل ورکیٹ نام کے نام کو رکھنے کے ساتھ ہی کام کے بک کے ناموں کو نامزد کر کے نئے مشترکہ ورکشیٹس کا نام تبدیل کر سکتے ہیں. ورکشاپ کا نام داخل کرکے آپشن.
  • 3.4 پر کلک کریں ختم بٹن.

4. پھر مشترکہ ورکشاپ کو بچانے کے لئے ایک فولڈر کا انتخاب کریں، اور آپ کو ضرورت کے مطابق براہ راست اسے کھولیں. اب تمام مخصوص کام شدہ کتابیں ایک میں مشترکہ ہیں.

تبصرہ:

1. آپ سے پوچھا جائے گا کہ آپ اس منظر کو بچانے کے لئے چاہتے ہیں. کلک کریں جی ہاں آپ کی ضرورت کے طور پر بچانے کے لئے، پھر منظر نامہ درج کریں، (مندرجہ ذیل اسکرین شاٹس دیکھیں). اس منظر کو بچانے کے بعد، آپ کو صرف کلک کرنے کی ضرورت ہے منظر نامے بٹن کو براہ راست اس کا استعمال کرنے کے لئے step2 جادوگر پر منظر نام کا نام منتخب کرنے کے لئے.

2. منتخب کردہ ورکشاپوں میں ورکشاپوں کو ایک نئی ورکشاپ میں ضم کیا گیا ہے، اور ورکشٹ کو ورکشاپ کے نام سے نامزد کیا جاتا ہے جو اصل ورک شیٹ کا نام سے پہلے یا اس کے بعد آپ نے چیک کیا ہے ورکشاپ کا نام داخل کرکے اختیار دریں اثنا، نامی ایک نئی ورکشاپ ایکسل کے لئے Kutools تمام ورکشاپوں سے پہلے پیدا کیا جاتا ہے، جس میں ہر ورکشٹس کی تفصیلی معلومات کے ساتھ ورک بک بک کی فہرست شامل ہوتی ہے. اسکرین شاٹ دیکھیں:

3. اگر آپ کا کام کا نام نام بہت طویل ہے، شاید نام کا نام 31characters سے زیادہ ہے، مشترکہ نام ظاہر نہیں کیا جائے گا، اور صرف اصل شیٹ کا نام دکھایا جائے گا.

ٹپ.اگر آپ اس افادیت کا مفت آزمائش کرنا چاہتے ہیں، تو براہ مہربانی جائیں آزادانہ طور پر سافٹ ویئر ڈاؤن لوڈ کریں سب سے پہلے، اور پھر اوپر اقدامات کے مطابق عمل کو لاگو کرنے کے لئے جائیں.


آفس ٹیب - ایکسل میں ورک بک بکس کے ٹیبلڈ براؤزنگ، ترمیم، اور انتظام:

آفس ٹیب ٹیبلڈ انٹرفیس لاتا ہے جیسا کہ گوگل براؤزرز میں دیکھا گیا ہے جیسے گوگل کروم، انٹرنیٹ ایکسپلورر نیا ورژن اور فائر فاکس مائیکروسافٹ ایکسل میں. یہ آپ کے کام میں ایک وقت بچانے کے آلے اور بے ترتیب ہو جائے گا. ڈیمو ذیل میں ملاحظہ کریں:

آفس ٹیب کے مفت آزمائشی کے لئے کلک کریں!

ایکسل کے لئے آفس ٹیب

ڈیمو: ایکسل کے لئے کوٹول کے ساتھ ایک ورک بک میں ایک سے زیادہ ورک بک کے آسانی سے یکجا




متعلقہ مضامین:



سفارش کردہ پروڈکٹیوٹی ٹولز

آفس ٹیب

سونے کی ستارہ ایکس این ایم ایکس ایکس کروم، فائر فاکس اور نئے انٹرنیٹ ایکسپلورر کی طرح، ایکسل اور دیگر دفتری سافٹ ویئر میں آسان ٹیبز لائیں.

ایکسل کے لئے Kutools

سونے کی ستارہ ایکس این ایم ایکس ایکس حیرت انگیز! 5 منٹ میں اپنی پیداوری میں اضافہ کریں. کسی بھی خاص مہارت کی ضرورت نہیں، ہر روز دو گھنٹوں کو بچاؤ!

سونے کی ستارہ ایکس این ایم ایکس ایکس 300 ایکسل کے لئے نئی خصوصیات، ایکسل آسان اور طاقتور بنائیں:

  • ڈیٹا کھونے کے بغیر سیل / قطار / کالم ضم
  • ایک سے زیادہ شیٹ اور ورک بک بک کو یکجا اور مضبوط.
  • رینجز کا موازنہ کریں، ایک سے زیادہ رینج کاپی کریں، متن میں تاریخ، یونٹ اور کرنسی تبادلوں میں تبدیل کریں.
  • رنگوں کی طرف سے شمار، پیجنگ Subtotals، اعلی درجے کی ترتیب اور سپر فلٹر،
  • مزید منتخب کریں / داخل / حذف / متن / شکل / لنک / تبصرہ / ورک بک بک / ورکشاپ شیٹ ...

ایکسل کے لئے کوٹول کی سکرین شاٹ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 6 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 4 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      Dim xI As Integer
      On Error Resume Next

      xStrPath = " C:\Users\DT168\Desktop\KTE\"
      xStrName = "Sheet1,Sheet3"

      xArr = Split(xStrName, ",")

      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      xStrFName = Dir(xStrPath & "*.xlsx")
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      For xI = 0 To UBound(xArr)
      If xWS.Name = xArr(xI) Then
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
      xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
      Exit For
      End If
      Next xI
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 4 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      On Error Resume Next
      xStrPath = "C:\Users\DT168\Desktop\KTE\"
      xStrFName = Dir(xStrPath & "*.xlsx")
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
      xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.