دغيدى

تفضل اخى الكريم تم تعديل العنوان واضافة عمل الزميل ابو عبد الله حفظه الله 2a.rar

أخى الفاضل / عبدالله باقشير سلام الله عليكم أهلى باليمن السعيد أولا سلمت يداكم ثانيا عندى فكرةأخرى بدلا من الأحرف تكون صورة متقطعة وغير مرتبة ويتم ترتيبهابالأسفل ولكن عند فتحها مرة اخرى تكون أجزاء الصورة فى ترتيب آخر " البازل "( بنفس فكرة الصورتين المتشابهتين )السابق لكم عملها مرة اخرى وفقكم الله وجزاكم خيرا

الأحبــــــــــة أحمد فضيلة أحمد البحيرى سعيد حمدى سعدت بكم .. فلكل منكم حب ومعزة وتقدير .. أثابكم الله

تفضل أخى الفاضل برجاء مراجعة حسابات البيانات رواتب موظفين.rar

الأخ الفاضل / سعيد حمدى أهلا بكم فى أو منتدى تعليمى خدمى هيا نتفق 1 - يجب أن يكون العنوان ذات دلالة على الموضوع 2 - يفضل دائما ارفاق ملف مفتوح ( دون حماية ) حتى يمكن عمل اللازم كل الأخوة فى انتظار ارفاق الملف تحياتى

أخى الفاضل / مصطفى إليكم الجداول المالية من تنفيذى الجداول المالية.rar

تفضل اخى الكريم مثال لـ NPV Npv.rar

أخى أبو حنين سلام الله عليكم أصاب المنتدى عندما ميزكم .. وفقكم الله

مبروك يا حنين ترقية السيد الوالد

أخى الفاضل / العيدروس أخى الفاضل / رجب جاويش هكذا تعلمنا من منتدانا العمل والإخلاص ثم التكريم هذا التكريم لكل اعضاء المنتدى وأنتم اهل علم تستحقون كل تقدير تحياتى جمال دغيدى

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

أخى الفاضل اليكم الملف الأصلى الخاص بالزميل هشام شلبى حذف المكرر.rar

Sub فحص() On Error Resume Next Set ww = Application.WorksheetFunction LastRow = Cells(Rows.Count, "B").End(xlUp).Row Application.ScreenUpdating = False Range("A6:A" & LastRow).ClearContents Range(Cells(6, 10), Cells(1000, 10)).ClearContents For R = 6 To LastRow If ww.CountIf(Range("B6:B" & R), Cells(R, 2).Value) > 1 Then Cells(1000, 10).End(xlUp).Offset(1, 0) = Cells(R, 2) Range(Cells(R, 2), Cells(R, 15)).ClearContents End If Next Range("B6:O1000").Sort [B5], xlAscending For N = 6 To LastRow If Cells(N, 2) <> "" Then Cells(N, 1) = Cells(N, 2).Row - 5 End If Next Application.ScreenUpdating = True Cells(6, 10).Select On Error GoTo 0 End Sub أخى الفاضل هذا الكود للزميل الفاضل هشام شلبى عدل فيه بما يتناسب مع عملك حيث الأسماء فى العمود B

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

Rectangle65_Click أخى الفاضل / يمكن إضافة السطر السابق بعد السطر الأول Sub Frame3_Click() Rectangle65_Click فى الكود ليقوم اولا بمسح الدوائر القديمة ويوضع بدلا منها الجديدة فيكون عددها صحيح

مرة ثانية أخى الفاضل / أحمد البحيرى سلام الله عليكم تعديل بسيط حسب اتفاقنا السابق وهو عند رصد الغياب ( Double click ) يتم الترحيل مباشرةفى عمود الغياب وينسخ فى الشهر المحدد. رصد غياب الشهر للطلاب المعدل 3.rar

أخى الفاضل / أحمد البحيرى سلام الله عليكم تعديل بسيط حسب اتفاقنا السابق وهو عند رصد الغياب ( Double click ) يتم الترحيل مباشرةفى عمود الغياب . رصد غياب الشهر للطلاب المعدل 2.rar

كُلُّ مَنْ عَلَيْهَا فَانٍ {الرحمن/26} وَيَبْقَى وَجْهُ رَبِّكَ ذُو الْجَلَالِ وَالْإِكْرَامِ {الرحمن/27} رحم الله الفقيد وألهم أهله الصبر والسلوان

الأخ الفاضل / رجب جاويش الصديق / احمد البحيرى الزميلة الفاضلة / صفاء سلام الله عليكم الأخت / صفاء عندها حق فى طلبها برجاء زيارة المشاركة رقم 20 http://www.officena....l=&fromsearch=1

الفاضل / عبدالله باقشير أثـــــابكم الله على جهدكم المتواصل

' أخى الفاضل / جرب ما قاله الأخ الفاضل / ابو تميم لأن هذا ما افعله بالضبط

صحبتكم السلامة .. فى معية الله .. ذكرتنى بأحب الأماكن لقبى .. أسألكم الدعـــــــــأء

أخى الفاضل / محمد مصطفى مبروك الترقية .. سعادتى كيوم كرمت من الأفاضل رواد المنتدى .. وفقكم الله

جزاكم الله خيرا ياأهل الوفاء وأخلاق الفرسان

أخى الفاضل / محمد مصطفى أثابكم الله .. على ما تقدموه