الصـقر

اخى الكريم ابومهند الحمد لله الذى بنعمته تتم الصالحات اسال الله لك التوفيق والسداد وجزاكم الله خيرا على دعائكم الطيب والكريم اتمنى تكون عضو فعال بالمنتدى تفيد زملائك وتستفيد منهم تقبل تحياتى -------------------------------------------------------------

استاذى الفاضل السيد المهندس / محمد طاهر جزاكم الله خيرا على هذه الثقه الغاليه التى منحتمونا اياها اسال الله تعالى ان نكون عند حسن ظنكم بنا كما أبارك للاستاذ ياسر العربى والاستاذ ابراهيم ابوليله أسال الله تعالى لهم التوفيق والسداد وكل الشكر للاخوة الافاضل الاخ ياسر خليل والاخ محمد حسن المحمد والاخ عبدالعزيز البسكرى والاخ ياسر فتحى والاخ محمد الريفى والاخ كاسر الامواج والاخ زيزو العجوز والاخ مهند الزيدى والاخ عبدالرحمن هاشم بارك الله فيكم جميعا وجزاكم الله خيرا تقبلوا تحياتى --------------------------------------------------------

اخى الفاضل ابومهند جرب المرفق ان شاء الله يظبط معك علشان تكون عارف ايه المشكله هى ان الوقت للحضور والانصراف بيأتى كنص من البصمه يعنى الاكسيل لا يتعامل معه كرقم او وقت او تاريخ فتم معالجة الامر تقبل تحياتى --------------------------------- 11.zip

اخى الكريم هل تقصد بالترحيل اللى هو تصدير البيانات من جهاز البصمه الى الاكسيل أم ماذا اذا كان هذا قصدك لا ادرى ما هو برنامج البصمه لديك وكيف تقوم بتصدير البيانات من جهاز البصمه الى الاكسيل حاول ابعتلى ملف تم التصدير من جهاز البصمه مباشرة الى الاكسيل لارى هل هى تاتى من البصمه بهذا التنسيق ام الكود يقوم بتغييرها عند العمل تقبل تحياتى ------------------------------

اخى الكريم هل هذا ما تقصده شاهد المرفق تقبل تحياتى ------------------------------- ترحيل جديد1.zip

اخى الكريم/ابومهند بخصوص طلبك الاول لم افهم ما تقصده يرجى مزيد من التوضيح بخصوص طلبك الثانى جرب المرفق هل هو ما تريد تقبل تحياتى ----------------------------------------- ترحيل جديد1.zip

اخى الحبيب ابومهند بخصوص طلبك الاول ادراج عمودين فارغين شاهد المرفق تم عمل ذالك بخصوص الملاحظه الثانيه تم معالجتها ايضا شاهد المرفق وخاصه الموظف 80 اللى عملت تست عليه بخصوص الملاحظه الثالثه الكود يعتمد على الترتيب الابجدى للاسماء فى شيت بيانات بالعمود B يعنى سجل انت اسماء الموظفين باى طريقه تحلو لك فى شيت 1 فالكود لا يلتفت الى الترتيب ملحوظه لو حضرتك عايز تعمل تغيير لاسم الشيت 1 الى اسم مثلا النتيجة عادى لا يوجد مشكله ولكن غير مسموح بتغير اسم شيت البيانات عموما جرب المرفق انت بنفسك تقبل تحياتى ------------------------------------------------------- ترحيل جديد1.zip

استاذى الحبيب ابويوسف يسعدنى اكون اول المهنئين بقدوم الحفيده ربنا يبارك فيها تقبل تحياتى

استاذى الحبيب ابويوسف واستاذى الحبيب ابوالبراء مروركم هو الاروع دائما هذا ما تعلمنه منكم تقبلوا تحياتى ----------------------------

اخى الكريم ابوعبدالله ضع هذه المعادله فى الخليه B2 =IF(COUNTIF(A3:$A$1000;A2)>0;"";COUNTIF($A$2:$A$1000;A2)) وسحبها نزولا لاسفل الى ما تريد من عدد الصفوف وشاهد المرفق به تطبيق عملى تقبلى تحياتى ----------------------------------------------- A.zip

الاخت الكريمه ربا جربى المرفق هل هو طلبك تقبلى تحياتى ------------------------- Test.zip

اخى الكريم ابومهند فى المرفق السابق اللى انا بعته كان الكود هو من يقوم بعمليه نسخ الاسماء الموجوده من شيت بيانات ولصقها فى الشيت 1 دون تكرار لكن طالما انت هتثبت الاسماء فى الشيت 1 فأنا عدلت الكود ليتناسب مع ذالك بأنه لا يقوم بعملية النسخ واللصق اللى كان بيعملها لانه لا حاجه لها بعد تسجيل الاسماء فى الشيت 1 انت قمت فى شيت 1 بتسجيل الاسماء فى العمود B لو عايز تحذف اسماء او تضيف اسماء عادى الكود هيشوف اخر صف به اسم فى العمود B وهيشتغل عليه فمفيش مشكله من الزياده او النقصان اضغط على زر الترحيل وشاهد النتيجة تقبل تحياتى ---------------------------------------------------------- ترحيل جديد1.zip

استاذى الفاضل / مجدى يونس جزاكم الله خيرا وبارك فيك وزادك من علمه وفضله وحلمه تقبل تحياتى -------------------------------

اخى الحبيب ابومهند على حسب ملفك المرفق الاخير نفذت طلبك شاهد المرفق وقولى رأيك وان شاء الله يعجبك انا عارف ممكن يكون فى بعض الملاحظات البسيطه وممكن نعملها بعدين بس نتاكد ان المرفق تمام من حيث الجوهر ومعتدقتش هذه المره يكون الاختلاف فى الجوهر تقبل تحياتى --------------------------------------------- 7.zip

استاذى الحبيب ابويوسف بخصوص سؤالك عن الرقم ادخل على شيت "البيانات " وفى الخليه B2 اكتب الوقت 8:30 ثم اضغط كليك يمين على الخليه واختر من القائمه تنسيق الخلايا ثم اجعل تنسيق الخليه رقم واجعل الارقام العشريه بعد الفاصله 9 مثلا وشاهد النتيجة ستجد هذا الرقم 354166667. هتقولى لماذا الوقت 8:30 تحديدا لان الاخ ابومهند طلب ان الوقت لو اقل من 8:30 يكون حضور بخصوص استفسارك الثانى ان اتفق معك تماما وهذا راى راجع المشاركات السابقه ستجد انى قلت كدا لابومهند لكن هو طلبه يكون الحضور فى صف والانصراف فى صف تالى لكن انا افضل انهم يكون فى صف واحد على عمودين كما تفضلت تقبل تحياتى ----------------------------------------------

اخى الحبيب ابومهند لحين ما ترد على استفساراتى جرب المرفق ربما يكون طلبك تقبل تحياتى ---------------------------------------------- vlookup1.zip

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

اخى واستاذى الحبيب ابومهند لا داعى للاعتذار انا تحت امرك قدر استطاعتى وقدر علمى ومعرفتى فمن قال لا اعلم فقد أفتى بخصوص طلبك 1- عايز أسالك هل البيانات لما بتاخدها من البصمه وتحطها فى شيت " البيانات " بتكون مرتبه بمعنى بتكون كدا موظف 1 & موظف 1 & موظف 2 & موظف 3 & موظف 3 وهكذا أما ممكن تاتى غير مرتبه زى كدا موظف 1 & موظف 3 & موظف 1 & موظف 2 & موظف 1 وهكذا يعنى بتكون مرتبه ترتيب ابجدى سواء تصاعدى او تنازلى ام اناه تاتى بعشوائيه من البصمه حسب الوقت 2- فى شيت النتيجة هل ستكون اسماء الموظفين ثابته وكل اسم مذكور مرتين على صفين ؟ وبالتالى المعادلات ستكون ثابته أما كونك تطلبها بالداله Vlookup فقط فهذا مستحيل قولا واحدا ولكن يمكن عملها بدوال اخرى مثل offset أو INDEX وغيرها منتظر الرد عن استفسارى اعدك ان احاول بها جاهدا قدر استطاعتى ووقتى ومعرفتى وان شاء الله برضوا الاساتذه بالمنتدى ميقصروش معك تقبل تحياتى ------------------------------------------------------------------------------------------------

الاخ والاستاذ الفاضل ابومهند على حسب فهمى لطلبك جرب المرفق اضغط على زر الترحيل وشاهد النتيجة طلبك كان مطروح من قبل بعنوان ترحيل بيانات ثم عملت موضوع جديد اللى هو احنا فيه دلوقتى يرجى بعد اذن حضرتك دام هو نفس الموضوع ونفس الطلب فمفيش داعى لعمل موضوع جديد واكتفى بكلمة للرفع فى الموضوع الاصلى وثق تماما ان الاعضاء بالمنتدى لو يعرفو الاجابه لن يبخلو عليك بها سؤالك فيه العديد من الاستفسارات منها على سبيل المثال هل سحب التقرير بياتى مباشرة من البرنامج بتاع البصمه الى الاكسيل ولا انت بتقوم بعملية قص ولصق وغيره من الاستفسارات الغير واضحه لنا لذالك يرجى تبسيط المطلوب بقدر الامكان لنا تقبل تحياتى ------------------------------------------------ دع الخلق للخالق وانشغل بنفسك فقط ترحيل.zip

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

استاذى الحبيب / ابويوسف جرب المرفق انت بس تؤمر للعلم هذه الرسائل انت مصدر الهام الفكره لى تقبل تحياتى ----------------------------------------- اتش.zip

اخى الكريم الكود ده حساس شوية ادخل على ملفك وضع الكود باستثناء الجزء الخاص بالاغلاق اللى هو ده Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub واعمل حفظ واخرج ثم افتح الملف مره اخرى وادخل على المودويل وضيف الكود الخاص بالاغلاق واقفل الملف وشوف النتيجة تقبل تحياتى ----------------------------------------------------------------------------------------------------------

اخى الكريم / اتش ضع هذا الكود فى مودويل هو كود للعلامه القدير استاذى / عبدالله باقشير ' هذة الاكواد للتغلب على مشكله مستوى الامان فى الماكرو فى الاكسيل 'الكود من اعمال الرائع العلامه عبدالله باقشير Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Application.Calculation = xlCalculationAutomatic End Sub Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub هذا الملف المرفق لطلبك الثانى لمنع فتح الملف على جهاز اخر هو لاحد الاساتذه بالمنتدى لا اعلم من صراحه تقبل تحياتى ------------------------------------------------ كود تشغيل البرنامج على جهاز واحد فقط.zip

اخى الكريم لم افهم جيد طلبك ولكن جرب المرفق ربما يكون طلبك تقبل تحياتى ----------------------------------------------------- اتش.zip