تتبع تغيرات 2

[عمر الجزاوى]

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

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

[طارق محمود]

السلام عليكم

أخي الكريم

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

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

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

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

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

تفضل المرفق

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

[عمر الجزاوى]

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

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

[عمر الجزاوى]

للرفع