دة الشيت المطلوب تنفيذ المعادلة علية

[المتبولى]

الاستاذ الفاضل خالد دسوقى

سلام الله عليكم ورحمته وبركاته

عندى مشكلة فى شيت نجارة الاثاث ال حضرتك عملت له كود الترحيل
وهى : عندما ارد التعديل فى عامود عدد مواد الرسوب لان مواد الرسوب 13 وليس 17 لان المواد العملية كلها مادة واحدة

بتظهر رسلة ( ممنوع الكتابة هنا )

فماذا افعل ؟؟؟؟؟؟؟؟؟؟

ارجو الافادة


طلب ثان لو ممكن حضرتك تنزل شرح كود الترحيل وكيفية نقلة الى اى شيت والتعديل عليه فيديو لو امكن

ولك خالص تحياتى

[خالد دسوقى]

أخى المتبولى .......... آسف على التأخير

[خالد دسوقى]

لإلغاء إعدادات أى خلية إنسخ أى خلية عادية ليس بها إعدادت فى الخلية التى بها إعدادت

[المتبولى]

الاستاذ الفاضل خالد دسوقى

شكرا لحضراك على هذا الشرح الوفى وفقك الله الى ما فيه الخير دائما
وانشاء الله هبدا التطبيق حلا

ـ فى الملف المرفق قمت بتطبيق شرح احد الاخوة بعمل فلتر وتسجيل مكرو وطبقت الشرح بالضبط

لكن عند الضغط على زر الترحيل بتظهر رسالة يتعذر الوصول الى المكرو
وبعد محاولات فى امان المكرو لم اصل الى شئ فرفعت الملف لحضرتك لعلى اجد حل

ارجو التوضيح اين الخطأ هل هو فى الكود ام فى امان المكرو

[المتبولى]

استاذ خالد
امر اخر لم اذكره لك وهو

بالنسبة للخلية ( ممنوع الكتابة هنا ) لما بنسخ خلية بدون اعدادات والصقها فى الخلية المذكرة

بتغير قيمة الخلية ( بتصبح فارغة)

[المتبولى]

الاستاذ خالد
سلام الله عليكم ورحمته وبركاته

عند تنفيذ المكرو ظهر خطأ فى هذا السطر
If Range("CW" & i) = "" thin.
ثانيا ماذا تقصد بـ يجب عن يكون عندما مخزن

هل تقصد انى اقوم بتخزين المعلومات المذكرة فى هذه الامكن ام ماذا ؟

[خالد دسوقى]

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

إختر ..... ماكرو ثم إختر إسم الماكرو

فى الملف StepByStep2.doc نفس طريقة تصحيح لينك إضغط هنا لإظهار النتيجة

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

بعد تشغيل الماكرو مرة أخرى ستملأ بالبيانات

أما عن المخازن فهى لتحديد مسار الماكرو كأن أقول له أن البيانات تبدأ من الصف 12

وأنسخها فى الشيت الآخر فى الصف 13 لذا نكتب فى الماكرو a1=12 , a2=13

وأما غن الخطأ فى الماكرو If Range("CW" & i") then

فى أى شبت هذا الماكرو

[المتبولى]

رسالة المكرو فى شيت 3ث

[المتبولى]

دى الرسالة ال ظهرت بعد ما ربط زر المكرو بالاسم رسلة بتعذر الوصول اختفت وظهرت الرسالة المرفقة فى الملف السابق

[خالد دسوقى]

عفوآ .......... أنا أعمل على Offce 2003

[المتبولى]

معك ساقوم بتنصيب افس 2003

واتواصل مع حضرتك حالا

[المتبولى]

استاذ خالد تم تثبيت offce 2003 ومنتظر مشاركة حضرتك

[خالد دسوقى]

إرفق الملف السابق بصيغة doc. ياترى Office2003 عربى ولا إنجليزى

[المتبولى]

الاستاذ الفاضل خالد دسوقىاتفضل حضرتك ده الشيت ال كنت بطبق شرح احد الاخوه عليهوده عن طربق فلترة للصفحة ثم تسجيل مكرو وتعديل على الكود وده بيخص فصل الناجح فقط لكن فى النهاية بيعطى الرسالة التى سبق وذكرتها لكزر الترحبل فى شيت3ث فى عامود cg ايضا هذه الرسالة ظهرت فى شيت نجارة الاثاث ال حضرتك رفعتهمنتظر الردالافس عربى

[خالد دسوقى]

فى الشيت الذى أرفقته تم تصحيح الخطأ فى الماكرو

lastrow = Range("a" & Rows.cont).End(xlUp).rwo

ب

lastrow = Range("A1").CurrentRegion.Rows.Count

و fals ب false

و ( توسيع ) الخانات فى شيت ناجح


بالتوفيق .