اخي صفوت ماطلبته كان واضح واسهل مما تم عمله ولكن الاشكالية في كثيرمن المشاركات يتم عمل ماقصدته ولكن ياتي اعتراض من العضو بان سرية المعلومات فقدت بظهور الصفحة .
عموما اخي الحبيب عادل قدم الحل لما قصدته جزاه الله خيرا
اخي الحبيب عادل كيف حالك لك وحشة وافتقدك في اليومين الماضيين اعانك الله
اخوك ابو خالد
السلام عليكم
بعد اذن اخي الاستاذ / احمد
فضلا انظر للمرفق وكلمة السر 5
مع العلم بانه يتم تعطيل خاصية حذف الورقة او اظهارها بواسطة شريط الادوات ايضا
مع الشكر
ابو خالد
__________________________________________________.rar
هذا من شيم الكرام
================
وهذا ماشعرت به واحبطني عندما رايت رد الاخ aliyaldin
========================
العفو اخي الحبيب ولكن ماقمت به هو المرؤة وحب مساعدة الآخرين
وفي النهاية كما قال صلى الله عليه وسلم من اسدى لكم معروفا ولم تستطيعوا ان تكافؤه فقولوا له جزاك الله خيرا اوبما معنى الحديث
جزاك الله خيرا استاذ احمد وبانتظار المزيد من علمك وعطاؤك الذي لاينضب
كثر الله خيرك
اخوك ابو خالد
السلام عليكم
اخي ابو لمى
مرفق لك الملف ويتم عمل التحديث يدويا لان الملف الذي ارفقته لايمكنني من فتح مصدر البيانات لكي يتم تجاهل الرسالة ويتم التحديث آليا
مع الشكر
ابو خالد
market_data.rar
اخي aliyaldin مجرد تساؤل هل تعتقد ان الرد مناسب؟
يعني بعد كل هذه المراسلات (لايفي بالغرض نهائيا) هل حاولت توضيح الاسباب وتوضيح وجهة نظرك لكي تتم المساعدة الى ان تجد الحل المناسب دون قطع الطريق من النصف
جزاك الله خيرا اخي الحبيب ابو يعقوب وجعله في موازين حسناتك
اخوك ابو خالد
السلام عليكم
اخي الكريم ماالمقصود بربط الملفات ( هل الملفات الثلاثة مع اشخاص غيرك ويدخلون المعلومات وتريد ربطها على الملف الرئيسي ، ام كل الملفات عندك وتريد عمل ارتباط عند اضافة اي معلومة في ملف يتم اضافتها للملف الرئيسي)
مع توضيح اي صفحة تريد ربطها
مع الشكر
ابو خالد
كلام جميل ولكن كيف نعرف ان هذه المكالمة خاصة ام عمل وانت لم توضح بالفاتورة ماهي الارقام الخاصة وارقام العمل
=======================
وين بصفحة مستقلة ام بنفس صفحة الفاتورة بعد ترحيل الخاصة والعمل
ارجو ان تكون الاستفسارات واضحة ومفهومة
مع الشكر
ابو خالد
السلام عليكم
اخي صفوت اعتقد المعادلة تحتاج لتعديل وهو الغاء $ من E$8 لتصبح E8 هكذا لـD ,F
انظر للمعادلة بعد التعديل
IF(COUNT($D$8:$F$8,$G$4:$I$4)<6,"",CalcAgey(DATE($F8,$E8,$D8),DATE($I$4,$H$4,$G$4)))
وانظر لملفك بعد التعديل
مع الشكر
ابو خالد
_______________________.rar
شكرا استاذي الفاضل على التوضيح ولكن القصد هو ليس الاجبار ولكن بالفعل بدلا من ان يتوه الاعضاء بين الاستفسار والاستفسار يتم فتح هذه الزاوية مع الاشارة للرابط يعني هي شئ اختياري وليست اجبارية سواء للمجيب صاحب الرد او اي اخ يمكنه الاجابة لذلك يتم التنويه عن رابط المشاركة في حالة احب اي شخص بالشرح لمضمون الكود او المعادلة
شكرا اخي almaistro وان شاء الله نجد الدعم من الاخوان على هذه الفكرة
والشكر موصول للاستاذ / محمد طاهر
ابو خالد
السلام عليكم
اخي الكريم يمكنك استخدام الكود ادناه لمنع التنقل بين الصفحات
Application.OnKey "^{PGDN}", False
Application.OnKey "^{PGUP}", False
مع الشكر
ابو خالد
ابو خالد هل ممكن وضع كود لان الطريقة ما ضبطت معي ..اتمنى ذلك ولا عليك امر ..
تحياتي
اخي ابو لمى
ممكن تضيف الكود ادناه
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
مع الشكر
ابو خالد