بن علية حاجي

السلام عليكم لا تكفي صورة الخطأ للبحث عن حل للمشكلة (وأعتقد أن الصورة تمت بالموبايل وليس باستعمال خاصية Print Screen)... وبالتالي يجب إرسال الكود (الماكرو) بذاته أو الملف مع الكود (يمكن إرفاق جظء من الملف مع بعض البيانات)... بن علية حاجي

السلام عليكم طريقة أخرى لعمل ذلك هي باستعمال خاصية "أدوات Tools" في أمر "حفظ باسم... Save As" (يمكن حفظه بالاسم نفسه أو باسم آخر) بعد وضع كلمة سرية للتعديل مع اختيار خاصية "للقراءة فقط"... والله أعلى وأعلم ملاحظة: باستعمال هذه الخاصية الملف لا يفتح للتعديل إلا بإدخال الكلمة السرية أو يمكن فتحه للقراءة فقط (أي لا يمكن التعديل عليه)... بن علية حاجي

السلام عليكم سؤالك مبهم... بالنسبة لي لا أجد أي علاقة بين العددين... وإذا كنت تعرف ما هي العلاقة بينهما فالرجاء توضيحها حتى نعرف ما هي الدالة التي تناسب ذلك؟

السلام عليكم جربت كود طباعة الكل ولم أجد فيه أي خلل... بن علية حاجي

السلام عليكم الخلل كان موجودا في معادلة الخلية O5 التي تم ربطها بالخلية V1 (التي قيمتها ثابتة) ومن المفروض أن تكون مرتبطة بالخلية R3 (وهي الخلية التي توضع فيها قيم المتغير I من كود الطباعة بخاصية من...إلى... بالخطوة 2)... وقد تم تصحيح هذا الخلل في الملف مع بعض التعديلات في تنسيق الملف وكود الطباعة. بن علية حاجي اكتوبر1.rar

السلام عليكم وضعت معادلة في الملف تفي الغرض المطلوب... ولم أفهم لماذا مررت في مثالك التوضيحي في الصفين 257 و 258 من 0--16--16 إلى 0--1--33 (ملونين بالأصفر)؟؟؟ بن علية حاجي 69.xlsx

السلام عليكم هل حاولت تغيير المستخدم عند الدخول للويندوز؟ (كحل أول)... أو حاولت استعادة النظام قبل حدوث هذا الخلل؟ (كحل ثاني) بن علية حاجي

السلام عليكم حسب فهمي للمطلوب هذه محاولة في المرفق.... بن علية حاجي استحقاق.xlsx

السلام عليكم ورحمة الله تم التعديل على معادلة أخي الكريم ali mohamed ali حسب ما فهمته من التوضيح بالأعلى... بن علية حاجي توضيح.xls

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي تجربة.xlsx

جرب المرفق لعل المشكل تم حله... برنامج.xlsm

السلام عليكم أخي الكريم، قد فتحت موضوعا للطلب نفسه أو تكملة له في الرابط التالي إضافة كشف حساب حسب التاريخ والذي أنشأته ضمن موضوع مختلف لعضو آخر... فالرجاء عدم فتح مواضيع جديدة لنفس الموضوع أو فتحها داخل مواضيع آخرين ثم يجب إعطاءها عناوين مناسبة تلخص المطلوب (لتسهيل عملية البحث مستقبلا) وليس مثلما فعلت في هذا الموضوع الذي عنونته "السلام عليكم"... بن علية حاجي

وعليكم السلام ورحمة الله تفضل الملف المرفق فيه ما تريده.... بن علية حاجي Raport.xlsm

السلام عليكم ورحمة الله تم التعديل على ملفك حسب ما فهمت من المطلوب بإضافة شيتات مساعدة (معلومات - بيانات) وإضافة المعادلات المناسبة لكل من شيت "البيانات" (الأعمدة الملونة بالأصفر) والشيتات الثلاثة: "دخول"، "خروج"، "الخلاصة"... ملاحظات: * شيت "معلومات" تُحجز فيه معلومات المؤسسة والأقسام (الخلايا الملونة بالأصفر) * شيت "بيانات" تحجز فيه البيانات الخاصة بالدخول والخروج على حد سواء... * كل الشيتات محمية بالكلمة السرية: hb لمنع مسح المعادلات بالخطأ... * تجدني، إن شاء اله في الخدمة، لأي استفسار أو طلب آخر.... أرجو أن تفي الغرض المطلوب... بن علية حاجي حركة دخول وخروج التلاميذ.xlsm

السلام عليكم ورحمة الله صحح الجزئية التالية في الكود G1015" & LR بالجزئية : G" & LR بمعنى حذف الرقم 1015 في الأمر الملزن بالأصفر ثم في الأوامر (الثلاثة) التي تليه... والكود يصبح كالتالي: Sub Macro1() If ActiveSheet.Name <> "ورقة1" Then Exit Sub Dim LR As Long LR = Range("C" & Rows.Count).End(xlUp).Row Range("C16:G" & LR).Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("G16:G" & LR) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("E16:E" & LR) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("F16:F" & LR) _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("D16:D" & LR) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("C16:G" & LR) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("C14").Select End Sub بن علية حاجي

السلام عليكم لم أجد حلا سوى إضافة عمود مساعد سميته "رقم الدفتر" وتمت إضافة المعادلات المناسبة للمطلوب... بن علية حاجي المصنف3.xlsx

السلام عليكم ما هي الصيغة أو الشروط التي يجب توفيرها لجلب هذه الأرقام؟؟؟ بن علية حاجي

السلام عليكم محاولة في الملف المرفق... بن علية حاجي المصنف2.xlsx

السلام عليكم ورحمة الله ومحاولة أخرى بمعادلة بسيطة... بن علية حاجي monney_1.xlsx

السلام عليكم ورحمة الله هذه محاولة مني بالمعادلات... بن علية حاجي monney_2.xlsx

المصنف1 (1).xlsx

السلام عليكم جرب سحب المعادلة التي وضعتها في الخلية C1 إلى الأسفل في الملف المرفق... بن علية حاجي Book1 (2).xlsx

السلام عليكم هل الخلايا المقصودة متصلة (صفوف متتابعة) أم منفصلة (صفوف غير متتابعة)؟ بن علية حاجي

السلام عليكم ورحمة الله جرب الكود التالي بدل الآخر: Sub طباعة() Range("n3").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$m$42" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 If ActiveCell.Value > Range("d1").Value Then ActiveCell.Value = Range("d1").Value: Exit Sub ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("d1").Value Range("E1").Select End Sub

السلام عليكم زد على ذلك لا توجد علاقة بين مطلوب الموضوع ومطلوب ملف الإكسيل المرفق!!!!!