استدعاء الاسماء من اربعة اعمدة لعمود واحد

[مصطفى محمود مصطفى]

السلام عليكم ورحمة الله وبركاته

الاساتذة الافاضل جزاكم الله خيرا

في الملف المرفق به اربعة قوائم المطلوب استدعاء البيانات في هذه القوائم في القائمة الرئيسية تحت بعض

بالكود او المعادلات

وفقكم الله وحفظكم

البيانات.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub join_data()
Dim My_rg As Range
Dim m%: m = 6
Dim r%
Dim ara
Range("c6:c" & Rows.Count).ClearContents
Set My_rg = Union(Range("R_G_1"), Range("R_G_2"), Range("R_G_3"), Range("R_G_4"))
 
  For Each ara In My_rg.Areas
   r = ara.Rows.Count
   Range("c" & m).Resize(r).Value = ara.Value
   m = m + r + 1
Next
End Sub

الملف مرفق

 

 

البيانات_salim.xlsm

[مصطفى محمود مصطفى]

الاستاذ سليم جزاكم الله خيرا

كود اكثر من رائع وانا حذفت +1 الموجودة في اخر الكود حتى لايترك فراغ واحد بين عمود واخر لاني اريد البيانات متصله لكن تحت بعض

هل يمكن ا ضافة للكود بان ينقل معه جميع البيانات الخمسة الموجود بجانب الاسم

لكم وافر احترامي وتقديري

البيانات_salim.xlsm

تم تعديل نوفمبر 20, 2018 بواسطه مصطفى محمود مصطفى

[سليم حاصبيا]

9 دقائق مضت, مصطفى محمود مصطفى said:

الاستاذ سليم جزاكم الله خيرا

كود اكثر من رائع وانا حذفت +1 الموجودة في اخر الكود حتى لايترك فراغ واحد بين عمود واخر لاني اريد البيانات متصله لكن تحت بعض

هل يمكن ا ضافة للكود بان ينقل معه جميع البيانات الخمسة الموجود بجانب الاسم

لكم وافر احترامي وتقديري

البيانات_salim.xlsm

ممكن ذلك لكن يجب اعادة تسمية النطاقات   1 R_G  بدل ان يكون      k6:k228        تجويله الى  k6 :p228

و هكذا بيقية النطاقات

و من ثم استبدال هذين السطرين من  الكود 

Range("c6:c" & Rows.Count).ClearContents

  Range("c" & m).Resize(r).Value = ara.Value

الى

Range("c6:G" & Rows.Count).ClearContents

   Range("c" & m).Resize(r,5).Value = ara.Value

 

[مصطفى محمود مصطفى]

الاستاذ سليم جزاكم الله خيرا

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

ولكم وافر احترامي وتقديري

البيانات_salim.xlsm

تم تعديل نوفمبر 20, 2018 بواسطه مصطفى محمود مصطفى

[مصطفى محمود مصطفى]

الاستاذ سليم  وفقكم الله وحفظكم

الكود اصبح اكثر مرونه وتم تغيير الكود كما تفضلتم واصبح يجلب البيانات البقية

لكن فقط للبيانات التي في المدى الاول هل يمكن ان يستدعي جميع البيانات الاخرى لجميع البيانات الاربعة بنفس المرونة

تحياتي لكم ووافر احترامي

البيانات_salim.xlsm

 

 

[سليم حاصبيا]

يجب اعادة تسمية جميع النطاقات كما فلعت بالتطاف الاول

[مصطفى محمود مصطفى]

الاستاذ سليم  وفقكم الله وحفظكم

انا غيرن النطاقات في ورقة العمل فقط

واصبح الكود يعمل بشكل ممتاز ورائع لكن حدثت مشكلة المعادلات الكود يقرأ المعادلة بانها بيانات فيقوم بنقلها فارغة وتاخذ صفوف

انا لست بحاجة لهذا الصفوف الفارغة هل يمكن للكود ان يتجاوز الفراغات التي تاتي من المعادلات ويبدا مباشرة من البيانات في النطاق الاخر

انا حاليا احذف المعادلات لحد مايصل اليه اخر الاستدعاء يدويا لتلافي هذا الخلل فاذا كان هناك حلا للمشكلة جزاكم الله خيرا

لكم كل الحب والاحترام والتقدير

دمتم في رعاية الله وحفظه

تم تعديل نوفمبر 20, 2018 بواسطه مصطفى محمود مصطفى

[مصطفى محمود مصطفى]

السلام عليكم 

استاذ سليم المبدع  حفظكم الباري ورعاكم

توصلت لحل ربما ينفع بدل المسح اليدوي

والان يفي بالغرض

وهو استخدام الدالة OFFSET التي تحدد النطاق الذي به بيانات فقط

وفقكم الله وانعم عليكم بالصحة والعافية

البيانات_salim.xlsmالبيانات_salim.xlsm

تم تعديل نوفمبر 20, 2018 بواسطه مصطفى محمود مصطفى

[سليم حاصبيا]

1-لم الاجظ اي معادلات بالجداول (الا معادلات الترقيم فب اول عامود من كل جدول)

2- ما هي البيانات المكتملة برأيك في كل جدول (اعني عدد البيانات في كل صف هل هي 5   دون عامود الملاحظات   ام 6 مع الملاحظات)

3-الرجاء رفع ملف مختصر قليلاُ (حوالي 20 صف من كل جدول مع بيانات المكتملة و بدون بيانات المكتملة  ) حتى يتسنى ملاحظة عمل الكود الذي سيتم وضغه)

[مصطفى محمود مصطفى]

الاستاذ سليم  وفقكم الله وحفظكم من كل سوء

انا غيرت مدى الاسماء المعرفة R_G_1 يكون المدى  بالمعادلة التالية  =OFFSET(DATA!$K$6;;;COUNT(DATA!$J$6:$J$500);7) 

=OFFSET(DATA!$S$6;;;COUNT(DATA!$R$6:$R$500);7)    R_G_2          

   =OFFSET(DATA!$AB$6;;;COUNT(DATA!$AA$6:$AA$500);7    R_G_3

=OFFSET(DATA!$AJ$6;;;COUNT(DATA!$AI$6:$AI$500);7)  R_G_4   

البيانات المكتملة في كل جدول 6 مع الملاحظات

المعادلات في الجداول الاربعة لاستدعاء بيانات من نتائج العام الماضي لتصفيته وابعاد المتخلفين والتاركين والمنقولين من المدرسة

حتى لايتم ادراجهم في برنامج الدرجات للسنة الحالية

والكود اكثر من رائع ودائما استاذ سليم مبدع وفقكم الله

دمتم في رعاية الله وحفظه

البيانات_salim.xlsm

تم تعديل نوفمبر 22, 2018 بواسطه مصطفى محمود مصطفى