تغيير محتويات عمود بضغطة زر حسب شروط معينة

[سعد الفقير]

السلام عليكم:

 

 

توضيح بخصوص الملف المدرج يوجد ورقة عمل باسم SQ  لدي عدد كبير من الموظفين وكل موظف يعمل في شفت مختلف فمنهم من يعمل في الشفت أ ومنهم من يعمل في الشفت ب ومنهم من يعمل في الشفت ج حسب الست بوكس الموجودة في العمود J …   وفي كل يوم خميس اقوم بتغيير دوام الشفتات يدويا مما ياخذ وقت كبير لكثرة عدد الموظفين ....

 

 

سؤالي هل بالامكان بضغطة زر اقوم بتحويل الشفتات في العمود J  حسب الاتي  مع ابقاء اللست بوكس. 

 

من كان يعمل في الشفت ( أ ) يتحول للشفت (ج) ومن كان يعمل في الشفت ( ج ) يتحول الى الشفت( ب ) ومن كان يعمل في الشفت ( ب) يتحول الى الشفت ( أ ) .  أفظل الحل يكون بواسطة VBA شاكرين ومقدرين لكم.

1212.rar

[سليم حاصبيا]

اليك الحل

1212.rar

[سعد الفقير]

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

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

الأخ الفاضل سعد

فيه جزئية في طلبك لم أفهمها (ذكرت مع الإبقاء على الليست بوكس !) ماذا تقصد بالليست بوكس ؟؟

 

الأخ الحبيب الغالي المتألق دائماً سليم

جزاك الله خير الجزاء وبارك الله فيك

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

[سليم حاصبيا]

فعلت هذا حتى لا يعمل الكود على الخلايا المرئية فقط (اعتقد ان هذا شيئاً معقولاً)الا اذا جعلت الكود يعمل على كل الخلايا في العمود (المرئية منها و المخفية بفعل الفلتر)

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

لم يذكر الأخ الفاضل سعد أي شيء عن الفلترة .. !! فالتعامل في هذه الحالة سيكون مع كافة الخلايا المرئية منها والمخفية

[سعد الفقير]

أخي ابو البراء اهلا بك. بخصوص اليست بوكس هو ان العمود J  يحتوي على ليست بوكس فكنت اتوقع بان هذا سوف يوثر على الكود.

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

هل تقصد القائمة المنسدلة ؟

[سعد الفقير]

نعم اخي ابو البراء.

 

الان صادفت مشكلة في الكود . في حالة عرض الكود عل اكسل 2010 يعمل جيدا وعند عرض هذا الكود عل اكسل 2007 لم يعمل . هل هناك مشكلة في تغيير نسخة الاكسل

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

ما هو الخطأ الذي يظهر عند تشغيل الكود ..حدد السطر الذي تحدث به المشكلة

[سعد الفقير]

للاسف لايوجد خطاء ظاهر فالكود يعمل بدون خطاء ولاكن لايتم التغيير في العمود J حسب المطلوب  .   لاني جربت الملف المرفق على اصدار 2010 يعمل ممتاز ولاكن عندما حملته عل اكسل 2007 لم يعمل.  غريب!!!!!!

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

أنا أعمل بالبيت على أوفيس 2007 ويعمل الكود بدون مشاكل ....

ما نسخة الأوفيس لديك 32 بت أم 64 بت؟

أنا أعمل على نسخة 2007 بروفيشونال بلس Professional Plus

[سليم حاصبيا]

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

يرجى تخفيض الامان الى مستوى ادنى لعل في يكون ذلك الحل

[سعد الفقير]

بخصوص امان المايكرو مخفض لااعلى درجة ولاكن ما زال لا يعمل .

 

أخي ابو البراء هل تقصد نظام الحاسوب اذا هذا ما تقصد فهو 32 بت واذا كان شي اخر فياليت تخبرني كيف استخرج هذة المعلومة. وفقكم الله

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

نظام الويندوز 32 بت أو 64 بت

اعمل كليك يمين على My Computer ثم Properties ستجد معلومات النظام

 

وأيضاً هل نسخة الأوفيس 32 بت أو 64 بت ؟ دي إنت اللي تحددها لأنك إنت اللي مسطب الأوفيس