S0bhy

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

اخى انا عندى حل اتمنى انه ممكن يفيدك

ممكن تستخدم ال Pivotable            على انه يطلعلك ريبورت

زى ما فى المرفقات

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

,وهنا هتلاقى شرح لطريقة عمل البيفوت تابل 

واتمنى انى اكون افدتك

Exampl_moulahaza.xlsm

جزاكم الله خير اخى

وشكرا ما قصرت الله يعطيك الف عافية

اولا شكرا جزيلا لك اخى الكريم على التوجيهات والمعلومات القيمة

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

ثانيا اريد ان افهم كيف وضعت الكود بحدث الصفحة وما المقصود بحدث الصفحة بعذ اذنك.

اريد تطبيق المثال على اكثر من ورقة عمل

افادكم الله

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

بعد البحث فى المنتدى ومنتديات اجنبية اخري

تم الحصول على الكود التالى الذى وظيفتة حمايىة الخلايا التى تحتوى على معادلات تلقائيا :

Private Sub Worksheet_selectionchange(ByVal target As Range)
If target.HasFormula Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If

End Sub

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

يتبين وجود الكود فى module ولكن لا يتم تفعيل الماكرو كما هو موضح بالصور :

ارجو المساعدة 

تم تعديل الملف

طالما ان الملف تريد وضع به اكواد فلابد من رفعه بامتداد Xlsm ولا تقوم برفع الملف مضغوط طالما حجمه صغير وذلك تجنبا لعدم اهدار وقت الأساتذة فى المساعدة

Protect.xlsm

Book1 ot.xlsx

اولا احب اشكرك على المجهود الرائع

بس اا الفكرة انى  محتاج استور البيانات فى التورقم الثانية اكسل شيت منفصل بحيث انى يكون عندى ابديت ملف واحد فية بيانات جميع الموظفين 

زى الملف دا كدا 

هل فى امكانية ؟

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

لو سمحتوا يا شباب انا محتاج اى طريقة اجمع بيها بعض البيانات من اكتر من اكسل شيت  (كل شيت منفصل ) على  ملف واحد

ممكن يكون ليها طريقة داتا بيز عن طريق الاكسز بس بصراحة معنديش خبرة فية

ملفات كمثال فى المرفقات

ياربت بعد اذن اهل الخبرة تساعدني

وشكرا

91977.xlsm 92017.xlsm Leave Salary Sheet.xlsm

حضرتك دلوقتى انت عندى ورقتين

واحدة اسمها شيت البيانات والثانية تفاصيل المرتب

انت دلوقتى عايز تحط الرقم القومي فى صفحة شيت البيانات يطلعلك جميع معلومات الموظف فالى فى تفاصيل المرتب 

ولا ايه بالظبط يرجى التوضيح  ؟؟