وهذا هو الكود المستخدم فى حدث الصفحة بالملف :
Private Sub Workbook_Open()
If Date >= DateValue("15/07/2018") Or Sheets("sheet1").Range("a1") = 1 Then
Sheets("sheet1").Range("a1") = 1
MsgBox "Expire ÅäÊåÊ ÕáÇÍíÉ ÇáãáÝ"
ThisWorkbook.Save
Application.Quit
End If
End Sub
وعليكم السلام اخى الكريم
اهلا بك اخ كريم فى منتدانا
قم برفع ملف به ما تريد وبعض النتائج المتوقعة وان شاء الله ستلقى المساعدة من الأساتذة والخبراء
بارك الله فيك
شكرا لك استاذى الكريم يوسف
هو بالفعل كذلك ,اذا اردت دمج مادتين فى صفحة كشوف التوقيعات -فلابد من ادخال أعمدة جديدة فى صفحة البيانات الأساسية -ودمج نفس المواد
ولكم جزيل الشكر
أستاذى الكريم -يجب عليك تغيير اسماء المواد الواردة بالقائمة المنسدلة كى تتطابق مع اسماء المواد فى صفحة البيانات الأساسية
كى تخرج البيانات لديك بدون أخطاء
جزاك الله كل خير
تفضل استاذى الكريم يوسف-هذا حل بمعادلات المصفوفة
ملحوظة صغيرة:
لابد من مطابقة وتغيير اسماء المواد الواردة فى القائمة المنسدلة الموجودة فى صفحة كشوف التوقيعات -كما هو موجود ووالرد فى صفحة البيانات الأساسية لكى يتم جلب البيانات بكل دقة
ولكم منى جزيل الشكر -بارك الله فيكم
كشوف التوقبعات الأوتوماتبكبة-1.xls
ملحوظة صغيرة: من فضلك وبعد اذن حضرتك أستاذى عامر ياسر
عند تقوم بالرد لا تقوم بعمل اقتباس من رد الطرف الأخر عليك حتى لا تقوم بتشتيت من يدخل ويبحث عن موضوع مشابه بعد ذلك ولتسهيل عملية البحث والتوصل الى الحل
جزاك الله كل خير -والحمد لله الذى بنعمته تتم الصالحات
أحسنت استاذ عامر طالما انه أعطى النتيجة المرجوة -انت معلم كده يا استاذى الكريم -بارك الله فيك من تقدم الى تقدم ان شاء الله
أما بالنسبة لأستاذنا الكبير سليم دائما مبدع
كود رائع وأدى المطلوب منه على أكمل وجه-جزاك الله كل خير وفرج عنك كربات الدنيا والأخرة كما تفرج كربات الناس ووسع الله فى رزقك ونور بصيرتك وزادك الله من علمه
جزاك الله كل خير أستاذ سليم حاصبيا
أخى الكريم مش عارف ايه المشكلة عندك
فكل شيىء يعمل عندى على مايرام
انظر بنفسك لهذه الصورة
قم من فضلم بالضغط على "عرض تفاصيل المشكلة"
الظاهرة فى صورة المشكلة التى رفعتها من قبل لكى تتعرف على المشكلة اللى عندك
بارك الله فيك
وعليكم السلام -اهلا بك اخ كريم فى المنتدى
عليك أولا قبل طرح سؤالك ان تستخدم خاصية البحث فى المنتدى -فربما يكون سؤالك قد عرض مسبقا
فإليك هذا الرابط يمكنك تتبعه بارك الله فيك :