تلوين تبويب ورقة العمل بشرط

[nisshaheen]

أخوتي الأفاضل

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

أتمنى من حضراتكم مساعدتي في بعض الأكواد للملف المرفق حاولت ولكن عجزت

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

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

وحاولت أن اعمل كود لفتح ورقة عمل جديدة تلقائيا عند فتح الملف مع مراعاة عدم تكرار الاسم بدون استدعاء الماكرو ولكن لم أنجح

اتمنى أن أكون أوضحت المطلوب وشكرا مسبقا

test.xlsm

[Ali Mohamed Ali]

تفضل-بمجرد الضغط على أيقونة فتح صفحة جديدة ,سوف يتم ادراج صفحة جديدة بتاريخ اليوم به قائمة منسدلة بالمطلوب في الخلية A1 اختر منها ما تريد ولاحظ تغيير لون شريط الصفحة بمجرد الإختيار

وعذرا قد تم تغيير بنود القائمة المنسدلة الى اللغة الإنجليزية لعمل الكود بكفاءة

** فتكون العطلة الرسمية ...... Official holiday

**والدوام الرسمى ...... Official time

**و غير ذلك ......Other

 

 

 

تلوين.xlsm

[nisshaheen]

بارك الله فيك استاذي الفاضل علي هذا هو المطلوب جزاك الله كل خير

واسمح لي أنا من يعتذر منك على مجهودك معي

جعل الله ما قدمته في ميزان حسناتك

 

اسمح لي أستاذي الفاضل جربت الملف وعمل معي بصورة ممتازة إلا شيء واحد قمت بتغيير تاريخ الجهاز لأجرب هل يعمل عند فتح صفحة جديدة على تسميتها بتاريخ اليوم فلم يتم تسميتها

وأود من حضرتك أن يعمل على فتح صفحة جديدة بمجرد فتح الملف

وشكرا

تم تعديل يوليو 15, 2019 بواسطه nisshaheen

[Ali Mohamed Ali]

تفضل تم تغيير تاريخ اليوم الى الغد وعمل الكود على ان يقوم بمهامه بمجرد فتح الملف مباشرة -فتم بنجاح وفتح ملف جديد بتاريخ الغد

 

تلوين.xlsm

[nisshaheen]

الشكر موصول لحضرتك وبارك الله فيك أستاذ علي

[nisshaheen]

أستاذنا الفاضل صباح الخير سامحني أكثرت عليك

اريد ان يتم نسخ بيانات اخر ورقة وبنفس التنسيق إلى ورقة اليوم الحالي على ان يعمل على تفريغ الجدول من الخانة a3 إلى آخر خلية في العمود k فقط

كما اود ان يقوم بترحيل بيانات كل الأوراق تلقائيا إلى الورقة الرئيسية main of june حسب الاعمدة الموجودة في ورقة كل يوم

وشكرا

[Ali Mohamed Ali]

تمام -تفضل تم عمل كل المطلوب 

 

تلوين.xlsm

[nisshaheen]

استاذي الفاضل يعجز اللسان عن الشكر وجزاك الله كل الخير

[nisshaheen]

أستاذ علي الملف لم يعمل كما أريد

المطلوب أن يأخذ البيانات من آخر صفحة تم إنشاؤها بتاريخ اليوم تلقائيا ووضعها في صفحة Main of june حسب الخلايا المحددة في الصفحة الرئيسيةللشهر هنا يأخذ نموذج الجدول فقط

وآسفة لأنه غلط مني النطاق من A2:F500 بخصوص عمود (F) وضعت المرجع 500 لللإشارة وليس الحصر وشكرا لتعبك معي

[nisshaheen]

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

أخواني وأساتذتي الأفاضل

جمعة مباركة وطيبة

هل من رد على موضوعي جزاكم الله خير وأشكر كل من حاول مساعدتي

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

وشكرا

[nisshaheen]

أخواني الأفاضل

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

وللعلم يحتاج بعض التعديلات مثل الصفحة التي يتم إنشاؤها بتاريخ اليوم والتي تم نسخها من الصفحة السابقة تظهر باتجاه معاكس

قمت بانشاء كود يتم تطبيقه على العمود G بناء على اختيار قيمة من القائمة المنسدلة لا يعمل إلى عند استدعاؤه بمفتاحي Alt+F8 برغم استعائي له تلقائيا

والقائمة المنسدلة لا تظهر في الصفحة الجديدة

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

شاكرة فضلكم

test.xlsm