ياسر خليل أبو البراء

أخي الكريم كيف تختار اسم الملف المراد الترحيل إليه ..؟؟؟ الكود يعتمد على التصدير لمصنف جديد وليس إلى مصنف موجود بالفعل ..الأمر مختلف تماماً أما بالنسبة لمكان الحفظ فيمكنك تغييره من خلال السطر التالي .SaveAs ThisWorkbook.Path & "\Exported.xlsm", xlOpenXMLWorkbookMacroEnabled

بارك الله فيك أخي الكريم جمال وجزيت خيراً على كلماتك الطيبة أعتذر عن التأخر في الرد عليك .. أنا أعمل على أوفيس 2016 ولا يوجد مشكلة لدي .. هل جربت الملف المرفق في الموضوع الأصلي؟ هل به مشكلة؟ ..أنا جربت الكود على الملف الأصلي وعلى ملفك ويعمل بشكل جيد مع كل أوراق المصنف بلا استثناء كما هو طلبك ويعمل الكود مع أي عدد من أوراق العمل أي أن الكود مرن .. يرجى إرفاق الملف الذي حدثت به المشكلة للإطلاع عليه .. وذكر السطر الذي يظهر به الخطأ من خلال النقر على كلمة Debug .. وجرب أن تضع السطر التالي قبل السطر الذي يظهر به المشكلة On Error Resume Next تقبل تحياتي

أخي الكريم رأفت الهجان أرى أنه لا داعي لاستخدام الكود ..لأنه في النهاية النتيجة واحدة تماماً .. فما الداعي أن يتم عمل ذلك في كل مرة في حدث تغير ورقة العمل؟ عذراً لا أرى الموضوع مقبول من وجهة نظري على الإطلاق ... حيث يمثل الكود في حدث تغير ورقة العمل عبء بدون داعي .. تقبل تحياتي

الكود الطويل اسمه دالة معرفة وتوضع في موديول عادي .. اضغط Alt + F11 ومن قائمة Insert اختر Module ثم أدرج الكود فيه يرجى الإطلاع على الرابط التالي لمعرفة البدايات في التعامل مع محرر الأكواد من هنا أما بالنسبة للكود الصغير هذا ليس بكود إنما اسمها معادلة يتم وضعها في الخلية المطلوبة ، وإذا لم تعمل معك المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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

أخي الكريم ابن بنها إليك رابط الموضوع التالي فيه شرح تفصيلي للمطلوب وإن شاء الله يفيدك .. الرابط من هنا

بارك الله فيك أخي الغالي عبد العزيز البسكري وجزيت خير الجزاء ، على مساهماتك الرائعة ونشاطك المميز في المنتدى أخي الكريم محمد عبد السلام بارك الله فيك وجزيت خيراً على دعواتك الطيبة المباركة حمعني الله وإياكم في مستقر رحمته في الفردوس الأعلى من الجنة تقبلوا وافر تقديري واحترامي

بعد إذن أخي الكريم سليم وإثراءً للموضوع إليك الرابط التالي فيه حل لمشكلتك إن شاء الله الرابط من هنا تقبل تحياتي

هي ليه الناس بتكسل ترفع ملف مرفق .. بالملف المرفق تتضح صورة المطلوب بشكل أفضل وتوفر الوقت والجهد على إخوانك في إعداد الملف ... ساعد نفسك بإرفاق ملف (والكلام موجه للجميع وليس لك وحدك يا دكتور باسل) تقبل تحياتي

أخي الغالي أبو حنين قد أكون أنا المخطيء في فهم المطلوب ..حيث لم يوضح السائل بشكل تام كيفية أن يكون الأمر .. وفي النهاية الكل يقدم حللو حسب فهمه ، وبالطبع أكوادك رائعة ومفيدة جداً وأعتقد أنها ستفي بالغرض والعبرة ليست في الموضوع فقط بل من الاستفادة من الأكواد بشكل عام في موضوعات أخرى خصوصاً لمن يتابع عملية التعلم ويريد أن يتعلم كيفية التعامل مع محرر الأكواد والبرمجة بشكل عام

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

جزاك الله كل خير أخي وحبيبي عماد غازي أنصح الجميع ممن يريدون التعلم من البداية أن يتابعوا هذه السلسلة الرائعة .. نريد أن نتخطى مرحلة البدايات لنصل للاحتراف جميعاً تقبلوا تحياتي

أخي الحبيب أبو حنين لقد اعتمدت في الكود المقدم على تحديد الشهر الحالي فقط ..وأعتقد أن صاحب الموضوع سيكتب القيمة بنفسه في الخلية A1 ... الأمر يرجع لصاحب الموضوع في هذه الحالة بارك الله فيك وجزاك الله خيراً

أخي الكريم صلاح إليك رابط الموضوع التالي فيه حل لمشكلتك إن شاء الله الرابط من هنا تقبل تحياتي

أخي الكريم جمال الخطيب .. قم بالإطلاع على الرابط التالي ، وفيه حل لمشكلتك إن شاء المولى الرابط من هنا

أخي الكريم جمال الخطيب أعتذر للتأخر في الرد على طلبك فقد كنت مشغولاً جداً ، وإليك الطلب الذي طلبته على الرابط التالي بالتفصيل الرابط من هنا

أخي الكريم إليك رابط الموضوع التالي فيه دالة الأستاذ الكبير محمد صالح وفيها حل لمشكلتك باستخدام المعادلة العادية دون المساس بالدالة المعرفة الرابط من هنا

فكرة جميلة أيها الصقر .. بارك الله فيك وجزاك الله كل خير تقبل وافر تقديري واحترامي

نعم يمكن أخي الكريم ولكن أفضل فتح موضوع جديد مع إرفاق ملف بسيط توضح فيه المطلوب بشكل تفصيلي .. كي لا يطول الموضوع هنا بدون داعي أفضل طرح موضوع مستقل لأن الكود سيكون مستقل عن الكود الأصلي الذي يؤدي الغرض بالنسبة للنسخ .. ولا تنسى أن تضع كود النسخ للصفوف في كل أوراق العمل بآخر إصدار لديكم ..لتكملة العمل على هذا الأساس

أخي الكريم محمد هل هو نفس الطلب على هذا الرابط يرجى التنبيه لحذف الموضوع منعاً للتكرار بدون داعي تقبل تحياتي

بارك الله فيك أخي الغالي حسام يمكن تجربة الكود التالي في حدث المصنف بحيث يتم إزالة التلوين قبل الطباعة Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.Cells.Interior.ColorIndex = 0 End Sub

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

إن شاء الله يتدخل أحد الأخوة ممن لديهم أوفيس 2003 ليجربوا عليه ..لأنني يمكن أن أحاول وأجرب ولكن كيف سأجرب على نسخة لا أعمل عليها لعله خير ..ننتظر مشاركات الأخوة الأعضاء

شاهد الفيديو التالي لتتأكد بنفسك أن الكود يعمل معي بشكل طبيعي .. هذا يرجع لنسخة الأوفيس في غالب الأمر Watch.rar

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