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

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


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



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





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

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



23-09-2019 02:44 مساء
مداد_1423
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10832
المشاركات : 2
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 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 مرات التحميل :(5)
الحجم :(54.094) KB







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

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

أثارت هذه المشاركة إعجاب: مداد_1423، ali mohamed ali، اسامة محمد، السعيد الجزائري،




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

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

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


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

تحياتي

أثارت هذه المشاركة إعجاب: YasserKhalil،




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

أثارت هذه المشاركة إعجاب: مداد_1423، السعيد الجزائري،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تجميع البيانات من اكثر من ملف اكسيل في ملف اخر ك Pivot Table dabas
1 219 dabas
دالة تجمع بيانات الشيت الي هو مفرد الي الشيت التجميعي محمود محمود احمد
2 332 YasserKhalil
مشكلة لدي في ملف بيانات عند حذف عمود تحذف التجميع عبد الله السعيد
2 497 عبد الله السعيد

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


 







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



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

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