طارق محمود

السلام عليكم أخي الكريم لم أفهم ماتعنيه جيدا في طلبك الأول ولكن أعتقد أن المرفق ستجد به إجابة الطلبين باستخدام الأكواد ، عند الضغط علي الزر الأسود يسألك عن التاريخ الذي تريد تثبيت البيانات لغايته ، مثلا 15فبراير (نصف الشهر الأول) فيختار المدي من D18 إلي التاريخ الذي اخترته ويحول معادلاته إلي أرقام ثابتة ، كأنك كتبتها ويبقي باقي الملف بالمعادلات وهذا هو كود الزر Sub del_equtn() td = Format(Now, "dd-mmm-yyyy") x = InputBox("الذي تريد تثبيت البيانات حتي ذلك التاريخ", "إدخل التاريخ", td) x2 = DateValue(x) For c = 5 To 99 If x2 = Cells(18, c).Value Then y = c: GoTo 10 Next c 10 Range("D18", Cells(35, y + 1)).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Cells(18, y).Select Application.CutCopyMode = False End Sub تفضل المرفق 111_4.rar

أو تفضل المرفق ستجد لونا أحمر للخلية التي بها حضور في يوم موافق off 111_3.rar

ممكن بالتنسيق الشرطي ضع الشرط التالي =AND(G$19="Pay code ",E20="off",G20 <>"",G20<>"weekend") علي المجال $G$20:$CJ$35

السلام عليكم أخي الكريم غير كود الإستدعاء للتالي Private Sub ListBox1_Click() Sheet1.[C5,C7,C9,A37,H14:H34,A14:E34].ClearContents [C3] = ListBox1.Value Me.Hide On Error Resume Next With Sheet2 LR = .[J10000].End(xlUp).Row r1 = WorksheetFunction.Match([C3], .[B1:B10000], 0) r2 = r1 For i = 1 To 20 If IsEmpty(.Cells(r1 + i, 2)) Then r2 = r1 + i Else GoTo 10 End If If r2 >= LR Then GoTo 10 Next i 10 Set rg1 = .Range("F" & r1 & ":H" & r2) Set rg2 = .Range("J" & r1 & ":J" & r2) End With rg1.Copy Sheet1.[C14].PasteSpecial Paste:=xlPasteValues rg2.Copy Sheet1.[H14].PasteSpecial Paste:=xlPasteValues Sheet1.[C5] = Sheet2.Cells(r1, "C") Sheet1.[C7] = Sheet2.Cells(r1, "D") Sheet1.[C9] = Sheet2.Cells(r1, "E") Sheet1.[A37] = Sheet2.Cells(r1, "I") Sheet1.Activate [C3].Select Application.CutCopyMode = False End Sub

السلام عليكم اخي الفاضل (1) نعم يمكن إخفاء المعادلات ويمكن حمايتها باستخدام الأكواد أو باستخدام الحماية راجع نفسك واطلب ماتريد بالضبط (2) نعم ، في حال اضافة شهر جديد تضيف المعادلة المذكورة وستعمل اوتوماتيكيا معتمدة علي التاريخ الموجود في الخلية F18 وقد نسختها لك في باقي الخلايا وكذلك الخلايا المجاورة التي بها التاريخ بالأخضر ، كله أصبح يعتمد علي الخلية F18 تضع بها أول يوم في أي شهر والباقي أوتوماتيكي (3) تم استبدال المعادلات الطويلة في العمودين CK,CL بصيغة أقل طولا SUMIF لتلافي الخطأ الذي كان موجودا ولتقليل طول المعادلة ، فيسهل تتبعها وتصحيحها إن لزم الأمر تفضل المرفق 111_2.rar

أخي منذر (السائل) - monzermrem أحسنت فعلا المعادلة مضبوطة الآن تستطيع أيضا عمل الخطوتين التاليتين لتطوير الملف الأخذ بالنصيحة بالكومنت "معلومة زائدة: جرب أن تضع هنا المعادلة = TEXT(F18,"dddd") ليتم حسابها اوتوماتيكيا من F18" مسح المجال F25:F34 والغاء الدمج منه ونسخ معادلة OT hour من الأعلي للأسفل ننتظرك قريبا مع فريق الموقع إن شاء الله أخي منذر (الزائر) - monzer2000 جزاك الله خيرا أشكر لك مرورك الكريم وكلماتك الطيبة

السلام عليكم إخواني الأحباب جلال خالد علي حمادة جزاكم الله خيرا وجعلني عند حسن ظنكم أشكركم كثيرا علي مروركم العطر وكلماتكم الطيبة

السلام عليكم تفضل اخي ستجد بالمرفق ، شرح لكيفية عمل الطلب الاول ومعادلة لتحقيق الطلب الثاني ملفا2.rar

أو تفضل الملف وبه الكود بعد اضافة السطر كشف 12 د امتحانات5.rar

السلام عليكم أكيد أن تضبيطات الطابعة ستتغير أضبطها مرة واحدة يدويا ، وسيتم حفظها بعد ذلك أو أضف السطر التالي لكود الطباعة ActiveSheet.PageSetup .FitToPagesWide = 1 ليصبح Sub Impression() For I = [Y1] To [Z1] If I <= [Z1] Then [Y4] = I ActiveSheet.PageSetup .FitToPagesWide = 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next End Sub

السلام عليكم اخي الكريم تفضل المرفق ، إن شاء الله يكون هو ماتريد جلب للدوام عند اختيار رقم الوردية2.rar

السلام عليكم تفضل المرفق إن شاء الله هو ماتريد كشف 12 د امتحانات4.rar

السلام عليكم تاريخ الميلاد مضبوط ، فقط يجتاج تنسيق تاريخ مرفق الملف مرة أخري به تنسيق التاريخ ومحل الميلاد يسبق تاريخ الميلاد ولاأفهم ماتريد في الرقم القومي كشف 12 د امتحانات3.zip

تمام ، عرفت جزاك الله خيرا

السلام عليكم أخي العزيز تفضل المرفق كشف 12 د امتحانات2.rar

لم أفهم ماذا تعني ، اشرح أكثر

هذا الموضوع مكرر ويوجد العديد من الموضوعات التي بها ماتريد وأكثر فقط إبحث بالمنتدي ، وستجد ماتريد إن شاء الله مثلا راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=40497&hl=%D8%BA%D9%8A%D8%A7%D8%A8

السلام عليكم اخي الكريم أولا أهلا ومرحبا بك بين إخوانك ثانيا لابد ان تلتزم بقواعد المنتدي (ومنها إسم الموضوع - راجعها رجاءا) وكترحاب بك ، لن يغلق الموضوع كما هو متبع ولكني سأغير أسمه ليتناسب مع طلبك ثالثا تفضل المرفق ، إن شاء الله يكون هو ماتريد جلب للدوام عند اختيار رقم الوردية.rar

السلام عليكم اخي الكريم أولا أهلا ومرحبا بك بين إخوانك ثانيا لابد ان تلتزم بقواعد المنتدي (ومنها إسم الموضوع - راجعها رجاءا) وكترحاب بك ، لن يغلق الموضوع كما هو متبع ولكني سأغير أسمه ليتناسب مع طلبك ويسهل علي من يريد المساعدة الدخول فقط عند قراءة العنوان المناسب ثالثا الأفضل دائما أن ترفق ملف به ماتريد (ولاتنسي ضغطه قبل الرفع winrar - winzip)

اعذرني : مرفق صورة من الصفحة الرئيسية التي تظهر عندي كيف ومن أين أختار الإشتراك

السلام عليكم أخي / محمد جزاك الله خيرا فعلا موضوع رائع ولكن الغريب انني أدخل المنتدي كل يوم ولم أري أي تنويه ولا في الإميل لعل ينقصني بعض التضبيط للصفحة الشخصية أرجو الارشاد

تفضل أخي إبراهيم الكود بزر كود استخراج اسماء بناء على معطيات.rar

السلام عليكم أخي العزيز / إسلام الشيمي لنفرض أنك تريد فقط تشغيل الكود في المدي F6:L8 بالورقة: التقرير اليومى أي (Sheet2) سيقوم الكود بنسخ معادلات الصف الأول من المدي (أي الصف السادس) لباقي الصفوف ثم يغير قيمة الخلايا لتكون قيم وليست معادلات إذن كل ماعليك هو تغيير مجال عمل الكود من الأسطر الأولي في أول الكود لتكون كالتالي Option Explicit Sub kh_Copy_Formula() On Error GoTo kh_Err kh_Application False '============================================= 'kh_cFormula Range("الاخطاء!$I$1:$I$1"), 3, 3900 kh_cFormula Sheet2.Range("$F$6:$K$6"), 6, 8 'kh_cFormula Range("ورقة3!$D$5:$G$5"), 11, 20 '=============================================

بارك الله فيك أخي حمادة وجعلني دائما عند حسن ظنكم

بارك الله فيك أخي سعيد وجعلني دائما عند حسن ظنكم