على حسن

عمل الكود المرفق
هو اضافة شيت بالاسم وترحيل المبالغ اليه
مثلا العامل محمد
لديه مكافاه 100 جنيه تجد الكود يضيف شيت باسم محمد ويرحل الى خانه المكافاه 100 جنيه
المطلوب
تغيير الصفحه رقم 999 بصفحة البدايه
والصفحه التى يتم الترحيل اليها الى الصفحه رقم1010

وجزاكم الله خيراً

وعليكم السلام ورحمة الله وبركاته
استاذ احمد
المطلوب كود يعمل لكل موظف شيت

الرجاء المساعده فى الاتى

الكود المطلوب عمله فى صفحة البدايه

- زر حفظ وترحيل الى السجلات

عندما اكتب رقم العامل يظهر لى الاسم وذلك باستخدامvlookup

المطلوب انشاء صفحه باسم العامل وترحيل المبالغ المسجله اليه

اما زر جديد

فهو لمسح بيانات الجدول ما عدا المعادلات

وجعله الله فى ميزان حسناتكم

سجل.rar

 

السلام عليكم

أخي العزيز

أضفت بعض البيانات

وأضفت أيضا بعض الأسماء في حال أنه ليس لديهم صفحة سابقة ، يقوم الكود بإنشاء واحدة بنفس الإسم

يمكنك الضغط علي الزر لتفعيل عملية الترحيل

 

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

ليصبح

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Shift
End Sub

بدلا من

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Shift
End Sub

تفضل المرفق

 

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

جزاك الله خيراً 

اريد ان ارسل اليك الشيت الاصلى لتقوم بتفعليه بنفس الطريقه

ارجوا مساعدتى فى موضع هام

انا لدى عدد من الموظفين ولكل موظف شيت 

اريد ان اسجل بيانتهم فى شيت واحد وبمجرد الحفظ 

تسجل كل البيانات فى صفحاتهم

مشروع.rar