لزهر مدلل

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

أخي أبو عيد السلام عليكم عند الذهاب إلى الورقة 2 تخرج رسالة خطأ و يقوم بتحديد هذا السطر Sheets(i).Range("A1:F3") = Sheets(1).Range("A1:F3").Value

أخي الكريم حمادة عمر نعم يقوم بنسخ مثلا A1:F50 و لصقها في جميع الورقات و في نفس النطاق وأيضا سيتم اللصق في باقي اوراق العمل جميعها ماعدا ورقة 1 طبعا أما الإستفسار الأخير فمعذرة فقط أخطأت في التعبير مثلا بعد التعديل في الورقة 1 و عند الدخول إلى ورقة 2 يقوم الماكرو تلقائيا بنسخ و لصق الخلايا في كل الأوراق و في نفس النطاق مرة واحدة فقط المرفق به بيانات من A1:F3 معذرة مرة أخرى أخي الكريم و بارك الله فيكم Book1.rar

السلام عليكم أريد تشغيل ماكرو تلقائيا عند التنقل إلى الورقة 2 الملف به عدة ورقات و الماكرو يقوم بنسخ خلايا محددة من ورقة 1 و لصقها في جميع الأوراق مثال يقوم بنسخ A1:F50 و لصقها في جميع الأوراق أي عند فتح الملف أذهب إلى الورقة 1 و أقوم بالتغييرات في خلايا معينة ثم أنتقل إلى ورقة 2 يشتغل الماكرو و يقوم بنسخ و لصق البيانات الكود يجب أن يشتغل مرة واحدة كلما دخلت إلى الورقة 2 مشكورين

مشكورين إخوتي الكرام و بارك الله فيكم

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

الأخت الكريمة أم عبد الله مشكورة جدا على هذا العمل الجميل و لكن لو سمحتي أريد النتيجة في ورقة 3 للأرقام الموجودة في 1 و غير موجودة في 2 و الورقة 4 الأرقام الموجودة في 2 و غير موجودة في 1 بارك الله فيكم

الأخت الكريمة أم عبد الله وعليكم السلام و رحمة الله وبركاته لا يوجد أي ملف

السلام عليكم أريد عمل مقارنة بين جدولين في ورقتين على حسب العمود الأول باللون الأصفر أي يعطيني الأرقام الموجودة في الورقة 1 و غير موجودة في الورقة 2 و العكس المقارنة تعطيني الأرقام مع كامل بيانات الصف تبعها مثلا إذا كانت نتيجة المقارنة الرقم في الخلية A20 تكون معه B20,C20,D20,E20 مشكورين المرفقات Compare.rar

اخي الكريم سليم حاصبيا الخطأ كان من برنامج تحويل المعادلات إلى أكواد و عند تحويل المعادلات إلى أكواد و تطبيق الكود تكون النتيجة خطأ أرسلت لك نموذج من هذا الخطأ و عند ردك فهمت أن المشكلة في ; في الكل و قمت بتغييرها فنجحت معضمها إلا واحدة المهم سأرسل لك الملف قبل التحويل و بعد التحويل من دون أن أغير فيه شيئا لتنظر أين الخطأ أنت و الإخوة الكرام و بارك الله فيكم للعلم الملفين فيهما البرنامج الذي يحول المعادلات إلى أكواد أرجوا أنك فهمتني أخي الكريم Sheets("Medellel").Range("M12") = Evaluate("=IF(ROW()-11<=$W$2,IF(OR(TEXT($V$2+ROW()-13,""JJJJ"")=""vendredi"",TEXT($V$2+ROW()-13,""JJJJ"")=""samedi""),0,1),"""")") أنظر المرفق Lazhar.rar

السلام عليكم قمت بتغيير ; إلى , في في كل السطور في الكود كما دلنا عليها أخونا سليم حاصبيا لكن النتيجة في العمودين أصبحت 1 و في الأصل النتيجة تساوي 1 بشرط اليوم لا يساوي جمعة أو سبت و إذا كان يساويهما فالنتيجة 0 وفقكم الله أنظر المرفقات Lazhar.rar

للرفع للعلم إذا كان الأوفيس إنجليزي قم بتغيير JJJJ إلى DDDD التي تعني day و vendredi samedi إلى الجمعة و السبت لأن الأوفيس لدي فرنسي مشكورين

مشكور أخي الكريم لكن هناك مشكل في ملف آخر عندي أرجو تصحيحه المرفقات الملف الأصلي به المعادلات + الملف بعد التحويل و به الخطأ مشكورين Book1.rar

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

الأخت الكريمة أم عبد الله مشكورة كثيرا على مجهودك الرائع المشكلة كانت في الأوفيس لدي لأنه فرنسي فقمت بتغيير الجمعة و السبت إلى vendredi et samedi و DDDD التي تعني DAY إلى JJJJ التي تعني JOUR هناك طلب آخر أرجو أن يتسع صدركم لي و هو أن يتغيرلون الخلية C4 بنفس لون الخلية A4 اي الأحمر بدون تغيير قيمة الخلية C4 و هو 4 مثلا و يعود لونها عادي إذا تغير لون A4 إلى عادي مشكورين مرة أخرى أنظر المرفقات Book11.rar

السلام عليكم لدي .ويندوز فرنسي و أوفيس 2010 فرنسي و عند تشغيل البرنامج تكون النتيجة في مكان الدالة ?NOM أي هناك خطأ

السلام عليكم النتيجة في كل الخلايا تساوي 1 و أنا أريد أن تتغير النتيجة مثلا في a4 إلى 0 لأن 4 أفريل وم جمعة و كذلك a5 يوم سبت و هكذا في باقي الخلايا أرجو أن الشرح واضح و شكرا

السلام عليكم أريد كود او دالة تقوم بالبحث عن يوم معين في الشهر الذي أحدده و تغيير النتيجة في الخلية إذا كان اليوم الأول من الشهر جمعة أو سبت تكون النتيجة 0 أو 1 في الأيام الأخرى هكذا إلى غاية آخر الشهر الكود يشمل ثلاثين خلية مثلا من A1 إلى A30 الشرح في المرفقات Book1.rar

السلام عليكم أخذت فورم يقوم بتعديل البيانات في خلايا محددة من ملف إكسل قمت بتحميله من المنتدى و قمت بتعديلات ليتلائم مع ورقة عمل خاصة بي لكن الفورم لم يعمل Feuil1.rar

مشكور أخي الكريم وبارك الله فيك

أخي الكريم الكتابة تكون في الورقة2 و الإخفاء و الإظهار في الورقة 1 لأن معلومات الورقة1 مستوردة من الورقة 2 أنظر المرفق أي عندما يختفي الصف الثالث في ورقة 1 لا يختفي في الورقة 2 و أستطيع الكتابة فيه و التعديل

أخي الكريم ليس هو المطلوب الشرح في المرفق مشكور Book1.rar

السلام عليكم أريد كود يقوم بإخفاء الصفوف تلقائيا التي تحتوي على القيمة صفر أو فراغ في خلية ما مثلا في العمود D و إظهارها تلقائيا أيضا عند تغير القيمة إلى أكبر من الصفر أو عدم الفراغ الله الموفق

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

السلام عليكم هناك مشكلة في الترحيل بحيث تم ترحيل رقمي المادة 13020 و 16020 مع بعض في جدول واحد أريد الترحيل إلى جدولين لكل رقم مادة لوحده أي جدول فيه رقم المادة 13020 و آخر 16020 مشكور أخي الكريم