https://youtu.be/LCzlv0Q2nDM?si=fnfk3PRgMcdktbr7

نعم، من الممكن عمل ذلك في إكسل،  لكن الطريقة تعتمد على مدى تعقيد بياناتك وخبرتك في إكسل.  هناك طريقتان رئيسيتان:

الطريقة الأولى:  استخدام VBA (Visual Basic for Applications):

هذه هي الطريقة الأكثر كفاءة إذا كنت ستكرر هذه العملية بشكل منتظم.  ستحتاج إلى كتابة ماكرو (Macro) صغير في VBA  لإنجاز المهمة.  إليك الخطوات العامة:

1. فتح محرر VBA: في إكسل،  اضغط على Alt + F11 لفتح محرر VBA.
2. إدراج مُودول:  في محرر VBA،  اذهب إلى "Insert" > "Module".
3. كتابة الكود:  ضع الكود التالي في المُودول.  يجب عليك تعديل أسماء الأوراق (Sheet names) و نطاقات البيانات (Data ranges) لتتناسب مع ملف إكسل الخاص بك.

```
Sub FilterAndCopyData()

Dim ws As Worksheet, wsNew As Worksheet
  Dim lastRow As Long, i As Long
  Dim branchName As String

' أسماء فروعك (تعديلها حسب أسماء أوراق العمل لديك)
  Dim branchNames(1 To 12) As Variant
  branchNames(1) = "فرع1"
  branchNames(2) = "فرع2"
  ' ...  أضف باقي أسماء الفروع ...
  branchNames(12) = "فرع12"

' نطاق البيانات في كل ورقة عمل (تعديلها حسب نطاق بياناتك)
  Dim dataRange As String
  dataRange = "A1:J30" ' مثال: من A1 إلى J30

For i = 1 To 12
    branchName = branchNames(i)

' إنشاء ورقة عمل جديدة لكل فرع
    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsNew.Name = branchName & "_بيانات"

' نسخ البيانات من الورقة الأصلية إلى الورقة الجديدة
    ThisWorkbook.Sheets(branchName).Range(dataRange).Copy wsNew.Range("A1")

Next i

End Sub
```

1. تشغيل الماكرو:  عد إلى إكسل،  ثمّ  اضغط  على  "Developer" > "Macros"،  واختر  FilterAndCopyData  ثم  انقر  على  "Run".

الطريقة الثانية:  نسخ ولصق يدوي مع استخدام الفلترة:

هذه الطريقة أبسط،  لكنها تتطلب المزيد من الوقت والجهد إذا كان لديك العديد من الفروع.

1. فلترة البيانات:  في كل ورقة عمل (فرع)،  استخدم  أداة  الفلترة  (Filter)  في  إكسل  لتحديد  البيانات  التي  تريدها.
2. نسخ البيانات:  انسخ  البيانات  المفلترة  (بعد  إزالة  فلترة  البيانات  الخارجية).
3. إنشاء ورقة عمل جديدة:  أنشئ  ورقة  عمل  جديدة  في  ملف  إكسل.
4. لصق البيانات:  الصق  البيانات  المُنسوخة  في  الورقة  الجديدة.
5. كرر الخطوات:  كرر  الخطوات  من  1  إلى  4  لكل  فرع.

أيّ طريقة تختار؟

VBA:  أكثر  كفاءة  إذا  كنت  ستفعل  ذلك  بشكل  متكرر.  يتطلب  بعض  المعرفة  بـ VBA.النسخ  واللصق  اليدوي:  أبسط  ولكن  يتطلب  وقتاً  أكثر.

تذكر  تغيير  أسماء  الأوراق  ونطاقات  البيانات  في  الكود  حسب  احتياجاتك. 

👈🏻 رابط قروب المناقشات 👇🏻
https://t.me/wordEcsel

? أهم اختصارات برنامج الورد

‏من ‌ مغرب ⁩ يوم الخميس
‏إلى مغرب يوم الجمعة..
‏أجور عظيمة وكنوز..
‏ لا تعد ولا تحصى من الحسنات
‏قال الرسول ﷺםבםבﷺ :
‏(أكثروا من الصلاة علي ليلة الجمعة
‏ويوم الجمعة فإن صلاتكم معروضة علي)
‏اللهـم  صلِّ وسلم وبارگ على نبينا ﷴ ..
‏جمعه عامرة بذكر الله