أ / محمد صالح

ما يلزمني رابط الملف في القائمة المختصرة يوجد تنزيل أم لا؟ مثل هذه القائمة

ماذا يظهر في القائمة المختصرة عند الضغط بزر الفارة الأيمن علي الملف؟

إذا كان هذا الملف في حسابك فيمكن تنزيله بسهولة ولكن إذا كان يخص أحدا غيرك ومنع تنزيل الملف من الإعدادات فلا حل حتى الآن

المطلوب مرهق فعلا كما قال الأستاذ @سليم حاصبيا لكن إذا كنت مصرا على ذلك فبدايتك في نسخ محتويات الملف الثاني في شيت ثاني في الملف الأول اي ضم الملفين في ملف واحد ثم أمام كل صف في الشيت الثاني تعمل معادلة match للبحث عن قيمة الاسم في عمود الاسماء في الشيت الأول وجلب رقم الصف وهكذا مع الرقم القومي والتليفون والعنوان وإذا تطاابق رقم الصف في الاعمدة الجديدة الخاصة بالبحث فيعني هذا أن الاسم مكرر وإذا لم تتطابق فهذا يعني أن الاسم يحتاج إلى تحديث بيان أو أكثر وإذا لم توجد نتائج بحث فهذا يعني أن هذا الصف جديد بعدها تحذف المكرر وتقوم بتحديث ما يجتاج إلى تحديث وتضيف في الأول ما ليس موجودا فيه والله الموفق

جميل جدا أستاذ ماجد دورنا في ابتكار بدائل كود vba يخصنا كعرب

الملف المرفق لا يوجد به أي مشكلة ربما تكون المشكلة سببها عدم تحديث برنامج الأوفيس ما إصدار الأوفيس لديك؟ جرب أولا تحديث الأوفيس من قائمة file ثم account ثم جرب تشغيل الأوفيس في الوضع الآمن من خلال Run وإذا لم تحل المشكلة يمكنك عمل إصلاح repair لبرنامج الأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج ولكن تختار إصلاح بالتوفيق

تفضل أخي الكريم لاحظ إضافة عمود البلد في آخر الجدول ويمكن إخفاؤه وتم استعمال معادلات countifs للعد باكثر من شرط وهو البلد ونوع المسكن ومعادلة sumifs لجمع عدد الذكور باكثر من شرط وكذلك مع الاناث واضافة صف للمجموع mas_Exc 04.xlsx

وفقنا الله جميعا لكل ما يحبه ويرضاه

يبدو أن حضرتك لم تقم باستيراد الملف الذي تم إنشاؤه في نقس مسار المصنف وطبعا يجب حذف الموديول١ قبل الاستيراد

رجاء توضيح نسخة الويندوز واصدار الاوفيس وماذا يحدث معك بالضبط حتى يتمكن الجميع من مساعدك حيث أن دالة countif من الدوال القديمة في اكسل وتوجد من اصدار 2003 وحتى الآن ولا أفهم معنى أنها لا تظهر في اكسل هل حينما تكتب يساوي countif وتستعمل المعادلة لا تحسب المطلوب منها أم ماذا؟

تكمن المشكلة في عدد الحروف في السطر البرمجي حيث يتعدى الكود الخاص بإضافة جميع الأسماء في مصفوفة array العدد المسموح في السطر والحل هو تقسيم السطر إلى مجموعة من السطور البرمجية عن طريق المسافة و underscore ولقد قمت بعمل إجراء يقوم بإنشاء الكود الخاص بموديول1 في ملف نصي bas حتى يمكن استيراده لمحرر الأكواد بعد ذلك خالص دعواتي بالتوفيق mas_TransA2E.xlsb

المشكلة في أن نطاق البحث غير متساوي في جميع المعادلات والصواب تكون البداية الصف 17 والنهاية الصف 172 فتكون مثلا المعادلة في f17 =INDEX(g!$C$17:$S$172,MATCH(1,(g!$C$17:$C$172='3'!C17)*(g!$D$17:$D$172='3'!D17)*(g!$E$17:$E$172='3'!E17),0),4) لأن بعض الخلابا تنتهي عند 216

بدايتك في تعديل المرجع الخاص بالاسم المعرف xxx الموجود في شيت data_validation بدلا من k10:k17 إلى k10:k20 ثم تضيف عناوين الاعمدة المطلوبة في مكانها في هذه القائمة

أولا الملف المرفق ينقصه الكثير من أوزراق العمل المطلوبة في الكود ثانيا ربما تكون نسخة تظامك الجديد 64 بت والكود مجهز ليعمل على 32 بت فقط لذلك يرجى تغيير الكود في بداية userform3 إلى #If Win64 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If لاحظ كلمة ptrsafe بين كلمة declare و function إن شاء الله يعمل جيدا بعد هذه التعديلات

حل رائع أستاذ salimhebboul

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

للرفع حتى تعم الفائدة للجميع

بالتوفيق للجميع المهم أن يعم النفع للجميع بدون استغلال لحاجة الناس والله في عون العبد مادام العبد في عون أخيه

شكرا لجميع الزملاء الذين مروا على هذا الموضوع المتواضع

* بالنسبة للتوقيع يفضل إعداده في اوتلوك وسيتم إرفاقه مع الرسالة تلقائيا * بالنسبة للمرفقات يتم نسخ رابط الملف في العمود 1St File Path أو 2nd File Path شكرا لجميع الزملاء الذين شرفوني بمرورهم على موضوعاتي المتواضعة

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

رائع بشمهندس ماجد لكن من الأفضل كتابة وصف مختصر لمحتوى الفيديو حتى يظهر في نتائج البحث داخل المنتدى

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

شكرا لمروركم الكريم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

للرفع وفقنا الله جميعا لكل ما يحبه ويرضاه