ياسر أحمد الشيخ

شكرا لك أخىعبدالسلام ابوالعوافي شكرا لك أخى ياسر خليل أبو البراء شكرا لك أخى سليم حاصبيا حلول أكثر من رائعة تمت الاجابة شكرا لك أخىعبدالسلام ابوالعوافي شكرا لك أخى ياسر خليل أبو البراء شكرا لك أخى سليم حاصبيا حلول أكثر من رائعة تمت الاجابة

للرفع........للرفع

شكرا لكم اخوانى على الردود ولكن أنا أفضل كود الأخ الكريم عبدالسلام ابوالعوافي وذلك لأن الكود الخاص به مختصر جداً وهذا ما أريده ، بس هناك تعديلات عايز أعملها على الكود: 1- أسماء الشيتات مختلفة وليست مرقمة كما بالملف class1 ، ارجو الغاء الاعتماد على الأرقام فى اسم الشيت 2- أريد زيادة نطاق الأسماء حيث أن الأسماء عندى تجدها 100 فى class وممكن تجدها 150 فى class آخر وهكذا 3-أريد عمل ترقيم تلقائى بجوار الأسماء شكرا مقدماً

السلام عليكم ورحمه الله وبركاته أريد عمل قائمة بأسماء الطلاب مرتبة أبجدياً وغير مكررة مجمعة من عدة شيتات (class1-class2-class3-class4-class5) الرجاء استخدام الكود لعمل ذلك ملحوطة : هى ليست Listbox او Combobox وإنما أريدها قائمة مكتوبة فى نطاق خلايا أكسل (مثلاً فى النطاق b3:b50) أرجو الافادة Data.rar

للرفع...للرفع

أريد التعديل على VBA Function : *** المعادلة AJZ تقوم بكتابة تواريخ الاجازات من الشيت الآخر لكل موظف 1- المعادلة تبحث عن أجازات كل موظف ، ولكن ينقصها عملية match لاسماء الموظفين حيث أن أسماء الموظفين لا يشترط أن يتواجدوا بنفس الترتيب وأريد أن تكون عملية match موجودة فى المعادلة يحدد أجزائها user 2-أريد أن يقوم الكود بأخذ اسم الشيت من النطاق الذى يدخله المستخدم للمعادلة، بدلاً من تحديد اسم شيت ثابت فى الكود ، فى الجزء هذا من الكود: ThisWorkbook.Sheets("Data").Cells(1, cl.Column) أرجو الافادة VBA Function.rar

أين الردود أيها الأخوة الكرام

شكرا أخى الكريم سليم حاصبيا ولكن هناك عدة أخطاء 1- الحل تعامل جيدا مع تكرار كامل السجل ، ولكن عندما يوقت الموظف بعد توقيته العادى بدقائق بسيطة مثلما موجود فى السجل 50 و 51 المفروض يأخذ أول توقيت وهو 15:53 ويطرحة من آخر توقيت وهو 23:51 2-أنت تعتمد على معادلة التاريخ الخاصبة بى فى العمود C ، وهذه المعادلة قد يحدث بها أخطاء لأنها تعتمد على أن كل سجلين متتاليينتابعين ليوم واحد فتعطيهم نفس تاريخ أول سجل ،فهناك خطأ مثلاً فى السجل 55 و 63 >>>> وبالتالى أصبح هناك أخطاء كثيرة فى عدد ساعات العمل فى السجلات التاليه، لذلك الأفضل الاعتماد على التاريخ الموجود فى العمود D أرجو الإفادة

السلام عليكم ورحمه الله وبركاته أريد ضبط ملف التوقيت يحيث: 1-أريد حذف أى تكرارات فى السجلات بحيث يكون هناك سجل دخول واحد للشخص وآخر خروج فى نفس اليوم، بشرط أن يكون أول دخول له وآخر خروج له أيضاً أو هل يمكن تجنب الحذف وعمل معادلة أو كود لايجاد ساعات العمل ووضعها فى شيت Report 2- أريد أذا نسى أحد الأشخاص أن يوقت دخول ، يتم اضافة سجل له بالتوقيت المطلوب حسب ما هو موضح بنظام العمل بالأسفل، أو اذا نسى أن يوقت خروج يتم اضافة سجلل بذلك للمزيد من المعلومات والتوضيح انظر المرفق Timing Problem Req.rar

إليك الشرح أخى الكريم هذا الشيت يوضح عدد ساعات العمل لكل موظف* BF2 بجوار اسم كل موظف مكتوب الراحة الخاصة به على حسب مجموعات معينه ، يوجد جدول يوضح الراحات المحددة لكل مجموعه فى خانة * إلى آخره -Fri-Sat-Sunبخلاف الجدول يوجد راحات محددة بأيام الأسبوع * أريد عمل كود يقوم بكتابة "ر" أمام كل موظف فى تواريخ الراحات المحددة له بشرط أن يكون عد] الساعات فى هذا التاريخ صفر ، لأن هناك موظفين يقومون بالحضور أيام الراحة * أرجو أن يكون الشرح واضح

أريد عمل كود لكتابة حرف "ر" ليدل على الراحة كما هو موضح بجدول الراحات الموجود فى الشيت، بشرط أن تكون الخلية التى سيتم كتابة حرف "ر" بها، فارغة أو تحتوى على صفر انظر المرفق فى المشاركة الأولى أرجو الافادة

السلام عليكم ورحمه الله وبركاته *أريد عمل كود لكتابة حرف "ر" ليدل على الراحة كما هو موضح بجدول الراحات الموجود فى BF1 ، بشرط أن تكون الخلية التى سيتم كتابة حرف "ر" بها، فارغة أو تحتوى على صفر Enter Rest Day.zip

لا يوجد أخى ألاكسل محدد مقاسات معينة فقط ، لا استطيع اختيار مقاس مخصص أرجو الافادة

أوفيس 2010

up

السلام عليكم ورحمه الله اريد طباعة كتيب صغير على الأكسل بمقاس 8.5سم عرض * 12سم طول فكيف أقوم بادخال مقاس مخصص للصفحة فى الأكسل أرجو الافادة

تفضل أخى الملف مرة أخرى combobox problem.zip

السلام عليكم ورحمه الله وبركاته فى الملف المرفق كمبوبوكس به مجموعة تواريخ أضفت كود لمعرفة اليوم الذى أختاره المستخدم ولكن يظهر اليوم خطأ combobox problem.zip

شكرا جزيلا أخى ياسر خليل على مرورك العطر بارك الله فيك

ضع هذا الكود أخى فى Thisworkbook Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range) Application.ScreenUpdating = True End Sub واحفظ الملف كملف برمجى انظر المرفق Active_Cell.zip

شكرا لك أخى سليم على مرورك الكريم وعلى مشاركتك ملف رائع

السلام عليكم ورحمه الله وبركاته سوف أشرح لكم اليوم كيفية عملية تنسيق للخلية الفعالة فى أوفيس 2010 : 1- قم بتحديد نطاق الخلايا الذى تريد تطبيق الفكرة عليه 2- اضغط على التيويب Home ثم من الجزء Styles اضغط على الزر Conditional Formatting واختر من القائمة المنسدلة الأمر Manage Rules 3- سيظهر مربع حوار Conditional Formatting اضغط على الزر New Rule 4- سيظهر مربع حوار آخر New Formatting Rule ، اختر الأمر Use a formula to detemine which cells to format 5- فى المربع الموجود بالأسفل اكتب المعادلة: =CELL("address")=ADDRESS(ROW(),COLUMN()) المعادلة : =CELL("address") تعطيك اسم الخلية الفعالة أما المعادلة الآخرى: ADDRESS(ROW(),COLUMN()) تعطيك اسم الخلية الفعالة أيضاً فعند تساوى المعادلتين يتم تظليل الخلية الفعالة 6- اضغط على الزر Format واختر التنسيق الذى تريده للخلية 7- اضغط OK

اللهم آمين أخى elsayedsad شكرا على مرورك أخى الكريم

ألف شكر أ/ياسر خليل شرح وافى وكافى شكرا جزيلاً

بالنسبة لحل أ/الصقر ليس المطلوب لأنى لا أريد ترتيب البيانات نفسها ، أريد فقط ترتيب البيانات الموجودة فى الكمبوبوكسCustomer Name و شكرا اخى ياسر خليل على حلك الرائع ولكن لى طلب أرجو شرح الكود على السريع وشكراً مرة أخرى