أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





اضافه كود في حدث الشيت

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب



27-01-2020 03:38 مساء
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 




25-08-2019 10:43 مساء
مشاهدة مشاركة منفردة [1]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
السلام عليكم ورحمة وبركاته 
لو عندى كود واريد اضافته لمجموعه ملفات اكسل 
كيف السبيل إلى ذلك اوتوماتيكيا وليس يدوى وليس بطريقة ملف personal كما في موضوع الأستاذ اسلام في الرابط التالى لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
مرفق ملف
وجزاكم الله خيرا 
 




25-08-2019 10:53 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
وعليكم السلام
هل تقصد نسخ كود محدد إلى جميع الملفات في مجلد العملاء؟

إذا كانت الإجابة بنعم .. أين هو الكود المطلوب نسخه ؟ 




25-08-2019 10:56 مساء
مشاهدة مشاركة منفردة [3]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
نعم كود محدد
كود Consolidate_All_Sheets_In_One_Using_Arrays
 




25-08-2019 11:00 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
هل يوجد أكواد أخرى في الموديول تريد نسخها ...؟
يفضل أن يكون الكود الذي تريد نسخه لملفات العملاء في موديول مستقل ليسهل محاولة إيجاد حل ..... ما رأيك بتلك النقطة؟
نقطة أخرى .. هل الكود سيكون موجود في الملف الرئيسي المسمى "تقرير" ..؟




25-08-2019 11:08 مساء
مشاهدة مشاركة منفردة [5]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
كود FunctionsModule يجلب لى البيانات من شيت total من المناديب
كود MacroExamples  اضع فيه اسماء الملفات
كود   Yasser_Serch    للبحث بالتاريخ والبيان

الكود فى صفحة كل عميل غير موجو د فى الصفحة الرئيسية
ولكن ان كان من الممكن وضعه في الرئيسية وحذفه من الباقى فلا حرج




25-08-2019 11:11 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
هل تقصد أنك تريد نسخ أكثر من موديول وليس موديول واحد فقط .....؟
أعتقد الأمر سيستغرق مني بعض الوقت لكتابة مثل هذا الكود ، وليس لدي الوقت الكافي في الوقت الحالي لفعل هذا ..

ننتظر مشاركات الأخوة الأعضاء في الموضوع




25-08-2019 11:14 مساء
مشاهدة مشاركة منفردة [7]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
هو كود واحد موجود في 4 ملفات مناديب
واحتاج ان اضعه في ملفات اخرى




25-08-2019 11:35 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
هناك فرق بين كود وموديول
الموديول بمثابة وعاء يحتوي على كود أو اثنين أو أكثر ...
لذا لابد من ذكر التفاصيل بالمسميات الصحيحة لتتضح الصورة أكثر .. وسؤالي مرة أخرى : هل هناك أكثر من موديول ستقوم بنسخه ..؟؟!! أم أنه موديول واحد فقط المطلوب نسخه لملفات العملاء؟
 




25-08-2019 11:40 مساء
مشاهدة مشاركة منفردة [9]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 206
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 501
الاعجاب : 62
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
Sub Consolidate_All_Sheets_In_One_Using_Arrays()
Dim ws  As Worksheet
Dim temp As Variant
Dim arr As Variant
Dim f   As Boolean
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Total" Then
temp = ws.Range("A4:o" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value2
If f Then
arr = ArrayJoin(arr, temp)
Else
arr = temp
f = True
End If
End If
Next ws
With Sheets("Total")
.Range("a4:o65536").ClearContents
'.Range("A1").Resize(1, 3).Value = Array("م", "الاسم", "الرقم الوظيفي")
.Range("A4").Resize(UBound(arr, 1), UBound(arr, 2)).Value2 = arr
End With
End Sub
Function ArrayJoin(ByVal a, ByVal b)
Dim i   As Long
Dim ii  As Long
Dim ub  As Long
ub = UBound(a, 1)
a = Application.Transpose(a)
ReDim Preserve a(1 To UBound(a, 1), 1 To ub + UBound(b, 1))
a = Application.Transpose(a)
For i = LBound(b, 1) To UBound(b, 1)
For ii = 1 To UBound(b, 2)
a(ub + i, ii) = b(i, ii)
Next ii
Next i
ArrayJoin = a
End Function


اريد نسخ هذا الكود
الموجود فى موديل واحد
 




26-08-2019 12:09 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
بحثت عن الكود المسمى Consolidate_All_Sheets_In_One_Using_Arrays في ملف تقرير ولم أجده
فرضية العمل هو أن يكون الكود المراد نسخه في ملف مستقل أي في ملف بعيد عن ملفات العملاء .. ثم يتم عمل حلقة تكرارية لملفات العملاء ونسخ الموديول المطلوب ( والموجود في ملف تقرير وليس في ملفات العملاء ...)
أرجو أن تكون هذه النقطة واضحة
 




26-08-2019 12:23 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8641
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25468
الاعجاب : 172
 offline 
look/images/icons/i1.gif اضافه كود في حدث الشيت
أخي الكريم حسونة
أعرف أن الموضوع قد طال ، وذلك بسبب عدم كفاية التفاصيل منذ البداية ، يبدو لك أنك وضحت وشرحت المطلوب ، ولكن هناك جزئيات كثيرة أثناء كتابة الكود تتطلب المزيد من التفاصيل ..
عموماً إليك حل المشكلة إن شاء الله
في الملف المرفق الذي قمت بإرفاقه في أول مشاركة يوجد مصنف اسمه "تقرير" >> قم بفتح المصنف والدخول على محرر الأكواد ثم أدرج موديول جديد وأعطه الاسم modHassona أو أي اسم ترغبه
ثم ضع الأكواد التي ترغب في نسخها لملفات العملاء في هذا الموديول المسمى modHassona
----------------------------------------------------------------------------------------------------------------------------------
أدرج في المصنف تقرير موديول آخر وأعطه الاسم modYasser على سبيل المثال ، وهذا الموديول سيحتوي على الكود الذي سيقوم بمهمة النسخ لموديول modHassona إلى ملفات العملاء
وضع الكود التالي في موديول modYasser ، وبعدها قم بتنفيذ الكود المسمى 
Copy_Module_To_Multiple_Closed_Workbooksلمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية اضافة كود في حدث الشيت فى جميع ملفات الاكسل دفعه واحده hassona229
9 249 YasserKhalil
تحديد اسم الشيت واسم الملف بدوال جديده مستحدثه - حسام خطاب الصقر
27 3032 محمد وهبه محمد

الكلمات الدلالية
اضافه ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:36 مساء

أعلن هنا
أعلن هنا
أعلن هنا