أهلا ومرحبا
تم عمل المطلوب بالمعادلات وكود لدالة مخصصة أسميتها ConcatRng تعمل عمل الدالة CONCATENATE لتجميع مضامين خلايا من نطاق معين...
1111Microsoft Excel Worksheet.xlsm
السلام عليكم
الأمر يتعلق بعدم وجود المجلد ASHRAF- في المكان الذي قمت بتنفيذ الكود فيه... لأن الماكرو يقوم بإنشاء ملف مسمى بتاريخ اليوم والتوقيت في هذا المجلد... ما عليك إلا إنشاء مجلد جديد بالتسمية ASHRAF-
السلام عليكم ورحمة الله
الملف الذي أرفقته يعمل جيدا... المشكلة ليست في ملفات الإكسيل وإنما في جهازك (ربما الويندوز أو وجود فيروسات أو غيرها). عليك بتفحص جهازك بواسطة أدوات الويندوز وبرامج مضادة للفيروسات...
ليس لي فكرة أخرى...
السلام عليكم ورحمة الله
تم التعديل على الكود ليخفي كل الصفوف التي بها بيانات ولا يعنيها المجموع (البحث)...
ملاحظة: تم حذف الموضوع الآخر لنفس الطلب الذي رابطه "طلب مساعدة دالة أو معادلة تقوم بجمع عمود يتحول حسب تاريخ البحث"
OFFICENA 2024_04.xlsm
هذا الملف ناقص... من المفروض الأيقونات (المكعبات) تفتح ملفات أخرى غير موجودة مع هذا الملف (غير مرفقة معه)، وأكواد هذه الأيقونات (مكعبات) غير موجودة أيضا... يوجد كود واحد لمكعب رقم 13 (خاص بملف الصف الرابع).
السلام عليكم
في الأسطر الملونة بالأحمر أضف عبارة PtrSafe بين كلمتي Function و Declare فتكون كالتالي : Declare PtrSafe Function بدلا من Declare Function في كل سطر من صفوف الحمراء...
السلام عليكم ورحمة الله
تم التعديل (تعديل طفيف جدا) على الكود ليعمل على إكسيل 2010 (الذي تم إنشاؤه في نسخة إكسيل 2019)...
ملاحظة: التعديل تم على عبارة "SortFields.Add2" التي تم تغييرها بعبارة "SortFields.Add" في كل أوامر الكود... وبهذا التعديل سيعمل الكود حتى في النسخ المتقدمة...
أرجو أن يفي هذا التعديل ما تريده...
ترتيب معلمين حسب الاقدمية.xlsm
السلام عليكم
لست أدري لماذا لا يعمل الكود عندك ربما تكون نسخة الأوفيس في جهازك مختلفة عن التي قمت بإنشاء الكود عليها... هل قمت بتنفيذ الكود في الملف الذي أرفقته في ردك ما قبل الأخير فقد قمت بتحميله وتنفيذ الكود عليه وهو يعمل جيدا، أم قمت بإدراج الكود في ملفك الأصلي ويختلف عنه في التنسيق والنطاقات؟...