اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

بعد اذن جروبنا الجميل عمل كود يتبع التغيرات في العمود E ان تم تغير الدور ينقل اسم الموظف اسم الدور قبل ما يتغير اسمه ثم اسم الدور بعد ما تغير اسمه وهذا مثال موظف1 يعمل في الدور الأول تم تغيره الى الدور الثانى وقد وضحت هذا التغيرات فى الجدول والله الموفق

تتبع التغيرات.xlsm

قام بنشر

السلام عليكم


أخي الكريم


الكود في حدث الوزرقة

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


ويعتمد الكود علي خطوتين

1- إذا تم إختيار خلية بالعمود E ، يتم تسجيل محتوي هذه الخلية ، وهذا هو الدور القديم للموظف قبل التغيير

2- إذا تم تغيير خلية بالعمود E ، يتم نقل الدور القديم (الذي تم تسجيله) وبيانات الموظف  لمساحة التغييرات

تفضل المرفق

تتبع التغيرات.xlsm

  • Like 3
  • Thanks 1
  • 2 weeks later...
قام بنشر

بعد اذن المهندس طارق شكر على الكود الرائع الذى يتبع التغيرات في الشيت والكود عمله الاتى اذا تم تغير فى العمود E مثلا غيرنا الدور الاول وكتبناها الدور الثالث يقوم الكود بنسخ الاسم ومن دور الى دور ونقله الى جدول التغيرات وهكذا ولكن في نقطة اخرة وهى الماموريه خمس أدوار نقلنا الموظف 1 من الدور الأول الى الدور الثالث نريد عمل كود  يقوم باستبدال موظف مكان الموظف بمعنى اخذنا موظف من الدور الأول الى الدور الثالث يقوم الكود باستبدال موظف من الدور الثالث الى الدور الاول فى الجدول الاساسى  بشرط الا يكون فى الراحة وينتبه الى النوع ايضا اذاكان التغير من الرجال يتم الاستبدال من الرجال اما ان كان التغير من الاناث يتم الاستبدال من الاناث ثم يكتب اسم الموظف ومن دور الى دور فى جدول تتبع التغيرات ولكم جزيل الشكر والعرفان

تتبع التغيرات 2.xls

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information