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

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

قام بنشر

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

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

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

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

مشروع.rar

  • تمت الإجابة
قام بنشر

السلام عليكم

أخي العزيز

أضفت بعض البيانات
وأضفت أيضا بعض الأسماء في حال أنه ليس لديهم صفحة سابقة ، يقوم الكود بإنشاء واحدة بنفس الإسم
يمكنك الضغط علي الزر لتفعيل عملية الترحيل
 
أو إذا كنت تريد تسجيل البيانات أوتوماتيك عند غلق الملف فلتحذف الأبوستروف من سطر الكود اللي في حدث الملف
ليصبح
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Shift
End Sub

بدلا من

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

تفضل المرفق

 

مشروع.rar

  • Like 1
قام بنشر

 

السلام عليكم

أخي العزيز

أضفت بعض البيانات
وأضفت أيضا بعض الأسماء في حال أنه ليس لديهم صفحة سابقة ، يقوم الكود بإنشاء واحدة بنفس الإسم
يمكنك الضغط علي الزر لتفعيل عملية الترحيل
 
أو إذا كنت تريد تسجيل البيانات أوتوماتيك عند غلق الملف فلتحذف الأبوستروف من سطر الكود اللي في حدث الملف
ليصبح
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Shift
End Sub

بدلا من

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

تفضل المرفق

 

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

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

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information