بن علية حاجي

وعليكم السلام ورحمة الله أين هو الملف المرفق؟؟؟

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، عليك بتغيير الكود السابق بالكود التالي: Sub ragab() Dim cl As Range Application.ScreenUpdating = False T = Range("B1").Text Sheets(T).Unprotect "2191612" On Error Resume Next Set Rng = Sheets(T).Range("C2:ND2") For Each cl In Rng If Range("c2") = cl Then x = cl.Column Range("C3:C35").Copy Sheets(T).Cells(3, x).PasteSpecial xlPasteValues Application.CutCopyMode = False Exit For End If Next Sheets(T).Protect "2191612" Application.ScreenUpdating = True Sheets("TODAY").Select End Sub لا يقوم الكود الجديد لا بحماية الشيت "TODAY" ولا بمسح الحماية عنه... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، المخطط أصبح مخططا ديناميكيا بحكم أن النطاق المستعمل في Data Source الخاصة بهذا المخطط هو نطاق ديناميكي مسمى، لو راجعت خصائص بيانات المخطط تجد أني استعملت كنطاق لـ Data Source المعادلة : =Data.xlsb!Values حيث : Data.xlsb هو اسم الملف الذي يحوي التسمية وذكره في المعادلة ضروري جدا (ويكون متبوعا بعلامة التعجب ثم بالتسمية) و Values هي التسمية الخاصة بالنطاق الديناميكي يمكنك الاطلاع على معادلة هذه التسمية في "التسميات"... لا يمكنني أن أشرح أكثر من هذا.... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، تم عمل المطلوب بإضافة كود للطباعة (مع زر للتنفيذ تجده على يسار الجدول ويمكن ربطه بأحد مفاتيح الدوال مثل كود الإدراج Main) يقوم بإدراج التفقيط في الخلايا المطلوبة من آخر كشف (ومسح هذه الإضافات بعد الطباعة)... قلتَ، في رد سابق لك، إن الأعمدة من D إلى H سيتم إخفاؤها، لذا قمت بالتعديل على بيانات تذييل الصفحة من شيت DATA حتى لا يتم إدراجها في الأعمدة التي سيتم إخفاؤها (تم إدراج خمسة أعمدة فارغة بين العمودين C و D لتعويض الأعمدة من D إلى H).... أرجو أن تروقك هذه التعديلات... أخوك بن علية الملف المرفق : جمع وتلحيق + 22.rar

السلام عليكم ورحمة الله أخي الكريم Abo3asem، في الحقيقة لم أستطع فهم المطلوب جيدا لذا لم أرد عليك منذ ذلك الوقت، وملفك ما زلت أضعه على سطح مكتبي... عدم فهمي للمطلوب جيدا هو عدم تلبيتك لشرح كلبته منك وهو أن تضع النتائج المنتظرة أمام كل حالة من الحالات التي وضعتها في الملف غير أنك قمت بوضع بعض من هذه النتائج على بعضها (الأولى منها) وهذا غير كاف... الرجاء التعديل على ملفك وفق هذا المطلوب ونرجو من الله أن يوفقنا لتقديم الحل المناسب للمسألة... ومعذرة لعدم التواصل معك قبل هذا اليوم... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم ابو سليمان، عمل كبير يجب القيام به على الملفات المتعددة في فصل البيانات وتعديل التواريخ وإذا كان ممكنا شرح كيف تحصل على هذه البيانات بهذه التنسيقات؟... هذا من جهة، ومن جهة أخرى لم تذكر كيف يكون الشكل المنتظر للملف الذي يجمع كل بيانات هذه الملفات (تنسيقاته، محتوياته، وغيرها)... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم التعديل على الملف كما وعدتك بإضافة معادلات في النطاق E5:F14 (تحت المخطط) يقوم فيه بنسخ كل البيانات الموجودة في النطاق A5:B14 دون الفراغات ثم بواسطة النطاق الديناميكي المسمى Values تم التعديل على نطاق البيانات الخاصة بـ "Data Source" للمخطط التي ستكون ديناميكية تتغير حسب تغير البيانات المدخلة في النطاق A5:B14 (الجدول)... أرجو أن يفي بالغرض المطلوب... أخوك بن علية الملف المرفق : Data.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، وصلتني رسالتك وأشكرك عليها وبارك الله فيك وفي أهلك وجازاك عنا خيرا... أقدم لك هذا الحل باستعمال معادلة تحوي دالتين دالة SUM لجمع مفردات النطاق الديناميكي الذي تحدده الدالة OFFSET وفق الشروط المطلوبة... أرجو أن يكون الحل مستوفيا المطلوب... ملاحظة: بإذن الله ستكون تعديلات أخرى على الملف في رد آخر حتى يحوي المخطط البيانات المستدعاة فقط دون الفراغات... أخوك بن علية المرفق : Data.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، جازاك الله عنا خيرا على كل هذه الأدعية ولك بإذن الله مثل ذلك... أنبهك أيضا أن الصفوف الستة التي سبقت السطرين اللذين حذفتهما من الكود ليس لها ضرورة في الكود ويمكن أيضا حذفها لأن المعادلات في صف "الإجمالي" يتم نسخها تلقائيا، وأقصد بالصفوف الستة الصفوف التالية : sh2.Cells(Rw3, "Q").Formula = "=IF(SUM(Q" & Rw1 & ":Q" & Rw2 & ")=0,"""",MOD(SUM(Q" & Rw1 & ":Q" & Rw2 & "),100))" sh2.Cells(Rw3, "R").Formula = "=IF(SUM(R" & Rw1 & ":R" & Rw2 & ")=0,"""",SUM(R" & Rw1 & ":R" & Rw2 & ")+INT(SUM(Q" & Rw1 & ":Q" & Rw2 & ")/100))" sh2.Cells(Rw3, "AE").Formula = "=IF(SUM(AE" & Rw1 & ":AE" & Rw2 & ")=0,"""",SUM(AE" & Rw1 & ":AE" & Rw2 & "))" sh2.Cells(Rw3, "AF").Formula = "=IF(SUM(AF" & Rw1 & ":AF" & Rw2 & ")=0,"""",SUM(AF" & Rw1 & ":AF" & Rw2 & "))" sh2.Range(Cells(Rw3, "Q"), Cells(Rw3, "R")).Select Selection.AutoFill Destination:=Range("Q" & Rw3 & ":AD" & Rw3), Type:=xlFillDefault والله أعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الحبيب سعيد، تمت تعديلات على الكود حسب المطلوب وتعديلات أخرى على "نطاق ناحية الطباعة" وعلى مكان -رقم الصف- "إدراج فاصل الصفحات"... أرجو أن تلبي هذه التعديلات ما تصبو إليه من عمل الملف... وتجدني إن شاء الله في انتظار ملاحظاتك على هذه التعديلات أو أخرى.... أخوك بن علية المرفق : جمع وتلحيق + 1.rar

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

السلام عليكم ورحمة الله أخي الكريم خالد، الملف في جهازي يعمل بجدارة وأعتقد أن المشكل في جهازك راجع لآخر تحديث قمت به للأوفيس مثل تحديث Security Update for Microsoft Excel ولحل المشكلة يجب حذف هذا التحديث أو حذف آخر التحديثات منذ ظهور هذا المشكل... وينصح إلغاء خاصية التحديث التلقائي حتى لا يعود المشكل في الظهور مرة أخرى... والله أعلى وأعلم... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم ابوصلاح، بالمثال يتضح المطلوب... تم اقتراح معادلة في الملف المرفق أرجو أن تفي بالغرض المطلوب.... أخوك بن علية المرفق : تكرار قيمة حسب عدد معين.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، جعل كل أيامك سعيدة، اشتقت إليك كثيرا... أردت أن أشاركك هذا الموضوع لأسأل عن أحوالك وأحوال أولادك وأهلك وإن شاء الله تكونوا في صحة وعافية وستر... من جهة أخرى قمت ببعض التعديلات على معادلات جمع القروش والجنيهات في الجدول وفي كود النسخ والجمع وأرجو أن تلبي طلبك... أخوك بن علية الملف المرفق : جمع وتلحيق بطريقة القرش والجنيه - سعيد بيرم.rar

السلام عليكم ورحمة الله غير مفهوم تماما... ضع مثالا على ذلك في ملف مرفق مع النتيجة المنتظرة... بن علية

باستعمال الدالة OR مع إضافة الشرط نفسه لليوم الآخر.... أي أن تكون المعادلة على الشكل التالي : =IF(OR(TEXT($C15,"[$-809]ddd;@")="Fri",TEXT($C15,"[$-809]ddd;@")="Sat"),"0:00","17:00") بن علية

باستعمال معادلة صفيف تم عمل المطلوب... وإذا كانت البيانات كثيرة يُستحسن استعمال الأكواد وتجد في المنتدى مواضيع كثيرة تناولت هذه المسألة بإطناب.... بن علية الملف المرفق : New Microsoft Office Excel Worksheet.rar

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

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كان في الملف المرفق حل للمسألة التي تريدها ولكن هذه انطلاقة ولعل ما يأتي من الأعضاء أفضل... أخوك بن علية المرفق : Book1.rar

السلام عليكم ورحمة الله أخي الكريم عبد العزيز، خطأ بسيط في معادلتك في الخلية L7 وهي القوس في آخر المعادلة أنت وضعته قبل عملية القسمة على 7 والصحيح أن يكون بعدها بمعنى أن المعادلة في L7 هي (بالفرنسية) : =SI(ET(G9="غ";K9="غ");"غ";SOMME(G9;K9))/5 والصحيح يجب أن تكون من الشكل : =SI(ET(G9="غ";K9="غ");"غ";SOMME(G9;K9)/5) والله أعلى وأعلم... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم عبد العزيز، خطأ بسيط في معادلتك في الخلية L7 وهي القوس في آخر المعادلة أنت وضعته قبل عملية القسمة على 7 والصحيح أن يكون بعدها بمعنى أن المعادلة في L7 هي (بالفرنسية) : =SI(ET(G9="غ";K9="غ");"غ";SOMME(G9;K9))/5 والصحيح يجب أن تكون من الشكل : =SI(ET(G9="غ";K9="غ");"غ";SOMME(G9;K9)/5) والله أعلى وأعلم... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم Dris55، وفيك بارك الله ولك إن شاء الله بالمثل... بالنسبة للمدارس ليس من الشرط أن تكون مرتبة فالمعادلة المقترحة في الملف تقوم بالترتيب حسب المدارس سواء أكانت المدارس مرتبة أم غير مرتبة... في موضوعك الآخر المعادلة المقترحة تستلزم ويشترط تطبيقها فقط لما تكون المدارس مرتبة لأنها تعمل بالنطاقات الديناميكية حسب كل مدرسة... والله أعلى وأعلم. أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم Dris55، تم عمل المطلوب (على ما أعتقد) بإضافة معادلة باستعمال الدالة SUMPRODUCT (أو SOMMEPROD)... أرجو أن يفي الملف المرفق بالمطلوب... أخوك بن علية المرفق : دالة2 Rank.rar