المهندس احمد

الاخ الكريم أ / محمد صالح انا اقصد كل شيت فيه بيانات ميل مختلف بوحاجة الى جعل الكود يقوم بعمل نسخ ولصق سوف اشرح لك بالصورة الون الاصفر هي الخلايا الي احتاج يكون لها نسخ ولصق لكن كل يوم يأتيني ملف وفيه اكثر من 40 عميل ويكون العميل مختلف بحاجة الى كود يقوم بنسخ الخلايا المذكورة ولصقها وبعدها الشيت الثاني نسخ ولصق وبعدها ... الخ

السلام عليكم ورمة الله وبركاته لديه ملف اكسل فيه روابط تشعبية للعنوان والاسم والمنطقة بحاجة ان اعمل كود يقوم بنسخ 3 خانات في الاكسل وهي (D3 ,D4 ,D5) ولصقها بحيث تكون Text - نص وبعدها يطبق نفس العملية على الشيت الثاني والثالث وعلى كامل ورقة العمل لأن الشيت يحتوي بعض المرات على 50 شيت وبعض المرات على عدد اقل لذالك بحاجة الى عمل لوب بيفر على الشيتات وبيعمل نفس الحركه وجزاكم الله خير الجزاء

لديه مسألة ماف العمل وهي معادلة ومحتاج احولها الى كود VBA شرط يقوم الكود بعملية كأنما اسحب المعادلة الى الاخر لجميع الحقول ( مثال تحديد الخلية وسحب وضغط بزر الماوس نقرتين للعمل المعادلة في جميع الخلايا التي تحتوي على بيانات ) واجعلها زر بأسم ( تحديث ) وعند الضغط عليه كأنما عملت سحب للمعادلة للأسفل ويقوم بتحديث كافة المعلومات أوتماتيكياً السبب :- المعادلات هذي ثقلت لي الشيت جداً لتوضيح اكثر سوف اكون متشرف بأي شخص يمكنه مساعدتي في هذا الموضوع مرحبا لقد ارفقت صور وملف شبيه بقاعدة البيانات لديه ووضعت خلفية حمراء على العمود الموجوده به المعادلات ومن خلال الصور شرحت ماحتاجه بقصد تحويل معادلة الى كود vba والمطلوب هو عمل كود يكتب لي نفس المعادلة لكن تنزل في الخانات تكست وليست معادلة لأن المعادلة لديه تثقل ورقة العمل فأذا كانت عن طريق الكود فيتم حساب المعادلة في البرمجة وتكون مجرد تكست في الشيت لو في استفسار اكثر انا تحت حضراتكم Book2.xlsm

السلام عليكم ورحمة الله وبركاته لديه مسألة في ورقة العمل لديه لديه معادلة ومحتاج احولها الى كود VBA شرط يقوم الكود بعملية كأنما اسحب المعادلة الى الاخر لجميع الحقول واجعلها في زر يكتب على تحديث وعند الضغط عليه كأنما عملت سحب للمعادلة للأسفل بسبب المعادلات هذي ثقلت لي الشيت جداً لتوضيح اكثر سوف اكون متشرف بأي شخص يمكنه مساعدتي في هذا الموضوع =IF(J2008="S",SUMIFS('قاعدة البيانات التسليم'!$I:$I,'قاعدة البيانات التسليم'!$A:$A,الطلبيات!A2008,'قاعدة البيانات التسليم'!$G:$G,الطلبيات!I2008,'قاعدة البيانات التسليم'!$H:$H,الطلبيات!K2008),IF(الطلبيات!J2008="M",SUMIFS('قاعدة البيانات التسليم'!$J:$J,'قاعدة البيانات التسليم'!$A:$A,الطلبيات!A2008,'قاعدة البيانات التسليم'!$G:$G,الطلبيات!I2008,'قاعدة البيانات التسليم'!$H:$H,الطلبيات!K2008),IF(الطلبيات!J2008="L",SUMIFS('قاعدة البيانات التسليم'!$K:$K,'قاعدة البيانات التسليم'!$A:$A,الطلبيات!A2008,'قاعدة البيانات التسليم'!$G:$G,الطلبيات!I2008,'قاعدة البيانات التسليم'!$H:$H,الطلبيات!K2008),0)))

شكراً لك اخي العزيز وبارك الله في جهودك الطيبة

السلام عليكم ورحمة الله وبركات لديه هذا الكود وهو عند فتح البرنامج يقوم بأغلاق النقر فوق زر الماوس الايمين وعند الاغلاق المفروض يقوم بفتح النقر فوق الزر الايمن لكن لديه اوفيس 365 وعند فتح الملف فهو فعلاً يتوقف النقر فوق الزر الايمن لكن عند الاغلاق ايضاُ يبقى الامر كما هو علما هذا الكود الذي اخذته سابقا من احد الاخوان لعمل هذا الامر ... بحاجة الى عمل اغلاق الزر وعند اغلاق الملف يقوم بفتح الضغط على الزر الايمن لباقي الملفات Private Sub Workbook_BeforeClose(Cancel As Boolean) EnablePly End Sub Private Sub Workbook_Open() DisablePly End Sub