دمج معلومات من ملفات متعدده في ملف واحد

[qmaxqmax]

تحياتي للمنتدي المتميز ... وحقيقي مفيد جدا

برجاء المساعدة في حالة وجود كشف درجات للطلبة وتم عمل نسخ لاكثر من استاذ لرصد درجات مجموعتة من الطلاب , والان نود دمج النسخ كلها في كشف واحد ...علما بان كل استاذ معه مجموعة من الطلبة غير مرتبين يعني واحد معاه 12 و13 و35و78 واحر معاه 11و14و66 وهكذا ..يعني المجاميع لست مقسمة بالتسلسل ....وحاولت كثيرا عمل نسخ ولصق للاعمدة ولكن المعلومات متداخلة فيتم مسح المعلومات ....ارجو ان تكون الحالة واضحه ....وارجو المساعده

[رجب جاويش]

أخى الفاضل

مرحبا بك عضوا جديدا بين اخوانك

يفضل ارفاق ملف توضح به ما تريد وتبين النتائج المطلوبة

يتم ضغط الملف أولا ببرنامج ضغط مثل winrar ثم ارفاقه

[qmaxqmax]

Book1.rarاشكرك علي المتاعبة يا استاذي ....والملف في المرفقات

[رجب جاويش]

أخى الفاضل

هذا كود مبدئى لدمج العمودين

وان كنت تريد تعديل بشكل آخر أخبرنى

Sub ragab()

Dim cl As Range

For Each cl In [L4:L16]

If cl = "" And cl.Offset(0, -4) <> "" Then

cl.Value = cl.Offset(0, -4).Value

End If

Next

End Sub

دمج عمودين.rar

تم تعديل يناير 20, 2013 بواسطه رجب جاويش

[احمد فضيله]

الاخ العزيز الاستاذ / رجب جاويش

جزاك الله كل خير

[رجب جاويش]

أخى الفاضل والأستاذ الكبير / أحمد فضيله

شرفنى مرورك الكريم

وجزاك الله كل خير

[qmaxqmax]

رائع ...اشكرك يا استاذ رجب .......