ترحيل المبالغ الى الصفحات

[على حسن]

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

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

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

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

مشروع.rar

[طارق محمود]

السلام عليكم

أخي العزيز

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

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

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

 

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

ليصبح

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Shift
End Sub

بدلا من

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

تفضل المرفق

 

مشروع.rar

[على حسن]

 

السلام عليكم

أخي العزيز

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

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

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

 

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

ليصبح

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Shift
End Sub

بدلا من

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

تفضل المرفق

 

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

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

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

[طارق محمود]

لابأس إرسله

وإن كان به خصوصيات للعمل إرسله علي الخاص

tarekmahmoud_2@hotmail.com