مقارنة بين ملفين و ايجاد الفارق

[Mory Ali]

 

السلام عليكم

ارجو المساعد حيث لدي تقريرين من ادراتين عن موردين حيث ان هناك تقرير من قسم الموردين و تقرير من المخزن و هناك تعارض في بعض الشهور من حيث التالي

تعارض في الشهر حيث ان كلا تقريرين مذكور فيهم المودر و لكن برصيد مختلف

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

فما اريدة هو : مقارنة التقريرن معنا و الحصول على الناتج من حيث : المقارنة على اساس الشهور و ناتج سوف يكون في هذا الشكل

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

 

·         ان يتم ذكر جميع الشهور بالترتيب من الاقدم الى الاحدث

·         ان يتم الربط بين التقريرين بناء على كود الصيدلية

·         في حالة عدم وجود رصيد اى موردين في اى من تقريرين ان يكون رصيد صفر او خالي

مثال للناتج سوف يكون كالتالي ( على اخذ شهر فبراير كمثال )

الشهر	كود الصيدلية	اسم الصيدلي	الرصيد من واقع تقرير الموردين	الرصيد من واقع تقرير المخزن
فبراير-16	1	محمد احمد	9500	9500
فبراير-16	2	مجدى مسعد	7000	2000
فبراير-16	3	جون	7000	7000
فبراير-16	6	حسان الجمل	0	2500

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

Orders.rar

[Mory Ali]

عذرا للاستعجال هل هناك افكار

[أبو عبد النور]

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

جرب المرفق.

 

Compare_v001.rar

[Mory Ali]

شكرا اخي ابو عبد النور على مجهودك

للاسف الملف يعطي لي رسالة خطا نصها كالتالي

Run time error "9"

subscript out of range 

ارجو الافادة بالحل و ايضا ان امكن شرح مبسط لكيفية تطبيق ما يوجد بالملف حيث ان الملف مبني على فيجوال بيسيك

[أبو عبد النور]

على اي سطر توقفت رسالة الخطأ ؟

[Mory Ali]

تظهر رسالة الخطا عند الضغط على زر المقارنة

[أبو عبد النور]

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

[Mory Ali]

  Workbooks("Store.xls").Activate

[أبو عبد النور]

يجب ان يكون كلا الملفين Store.xls و Supplieres.xls مفتوحين قبل تشغيل ملف Compare.xls.

[أبو عبد النور]

حضرت لك نسخة ثانية من الملف يقوم فيها الكود بفحص الملفات ان كانت مفتوحة.

Compare_v002.rar