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

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


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


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





تعديل على كود تجميع بيانات الشيتات في شيت رئيسي

تحية طيبة مباركة للجميع أدام الله عليكم لباس الصحة جميعا وجدت كودلتجميع البيانات من الشيتات إلى شيت رئيسي وهو كود رائع ..



23-09-2019 02:44 مساء
مداد_1423
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10832
المشاركات : 4
الجنس : ذكر
قوة السمعة : 16
الاعجاب : 2
 offline 

تحية طيبة مباركة للجميع

أدام الله عليكم لباس الصحة جميعا


وجدت كودلتجميع البيانات من الشيتات إلى شيت رئيسي وهو كود رائع وسريع

لكن ما قدرت أعدل عليه حتى يعمل مع الملف عندي

 

الكود:

 
 Sub Give_ALL_Data()

 Dim Arr_sh(), i%, m%: m = 2

 Dim Arr_counte()

 

  For i = 1 To Sheets.Count - 3

          ReDim Preserve Arr_sh(1 To i)

          ReDim Preserve Arr_counte(1 To i)

      Arr_sh(i) = Sheets(i).Name

      Arr_counte(i) = Application.Max(Sheets(i).Range("a:a"))

  Next

  Sheets("ALL").Range("A3:AH1000").ClearContents

   For i = LBound(Arr_sh) To UBound(Arr_sh)

     Sheets("ALL").Range("A" & m).Resize(Arr_counte(i), 8).Value = _

     Sheets(Arr_sh(i)).Range("A3").Resize(Arr_counte(i), 8).Value

      m = m + Arr_counte(i) + 1

    Next

Erase Arr_sh: Erase Arr_counte

End Sub


المطلوب تختصره الصورة

tnm8zg453klu

 

لكل من مر من هنا تحية 

ولكل من ساعدني دعوة خالصة وشكرا من الأعماق



 
 
  TEST_ _HR.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(54.094) KB





23-09-2019 06:15 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8665
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25532
الاعجاب : 198
 offline 
look/images/icons/i1.gif تعديل على كود تجميع بيانات الشيتات في شيت رئيسي
تفضل أخي الكريم الكود التالي عله يفي بالغرض إن شاء الله

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




23-09-2019 07:06 مساء
مشاهدة مشاركة منفردة [2]
مداد_1423
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10832
المشاركات : 4
الجنس : ذكر
قوة السمعة : 16
الاعجاب : 2
 offline 
look/images/icons/i1.gif تعديل على كود تجميع بيانات الشيتات في شيت رئيسي
أستاذنا : YasserKhali

بارك الله في عمرك ونفع بعلمك وجزاك الله خير الجزاء
وسع الله في رزقك ومتعك بصحتك

وكثر الله من أمثالك


هذا هو المطلوب ، الكود يعمل بأحسن ما يكون شكرا لك يا كبير

تحياتي




23-09-2019 07:40 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8665
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25532
الاعجاب : 198
 offline 
look/images/icons/i1.gif تعديل على كود تجميع بيانات الشيتات في شيت رئيسي
بارك الله فيك أخي الكريم ومشكور على كلماتك الطيبة ودعواتك المباركة
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طريقة جلب بيانات من شيتات مختلفة إلى شيت واحد تجميعي aelsheikh
6 202 YasserKhalil
طلب أستدعاء البيانات من أكثر من ملف الي ملف واحد يتم التجميع به Jansdedo
1 195 Jansdedo
كود تجميع البيانات khaled alborene
7 362 YasserKhalil
تجميع البيانات من اكثر من ملف اكسيل في ملف اخر ك Pivot Table dabas
1 386 dabas
دالة تجمع بيانات الشيت الي هو مفرد الي الشيت التجميعي محمود محمود احمد
2 502 YasserKhalil

الكلمات الدلالية
طلب: ، تعديل ، تجميع ، بيانات ، الشيتات ، رئيسي ،


 







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

الساعة الآن 01:40 مساء

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