بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم وجدت في النت ردا لعضو من أحد المنتديات أعطى فيه حلا لمثل هدا المشكل ولعله يكون حلا لمشكلتك ونص الرد (بالإنجليزية) يقول فيه: Have you tried Sharing then un-Sharing the workbook? If the file isn't shared, the code area locks and unlocks with the share. أرجو أن تفي الفكرة المقترحة لحل مشكلتك وأن لا نكون قد تعدينا حقوق غيرنا... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم علي، تم التعديل على الملف حتى يكون عدد الفرق 20 فريقا... (دون شرح ولكن أقول إنه تم تمديد نطاق عدد الفرق إلى 20 فريق، تم التعديل على النطاقات المستعملة في الأكواد حسب هذا العدد، أما الباقي فهو يعمل مثل الملفات المرفقة سابقا... واعذرني لعدم الشرح أكثر)... الملف المرفق : عملية قرعة لـ20 فريق_1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم محمد، تم التعديل على الملف حسب المطلوب... الملف المرفق : عملية قرعة لـ10 فرق_1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، هذا تعديل على الملف بالمشاركة رقم 17 حسب المطلوب بالرسالة الخاصة "حذف زر الطباعة وربط الطباعة بكود إضافة تذييل الصفحة ونسخ البيانات مع رسالة تأكيد الطباعة"... أرجو أن يكون المطلوب... الملف المعدل للمشاركة 17 : جمع وتلحيق + 33_2.rar * وهذا التعديل نفسه على الملف المرفق بالمشاركة رقم 22... أرجو أن يفي بالغرض المطلوب... الملف المعدل للمشاركة 22 : جمع وتلحيق + 44_2.rar أخوك بن علية

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

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

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

السلام عليكم ورحمة الله أخي الحبيب سعيد، إن التعديل في معادلة الإجمالي بداية من الصف 7 في الصفحة الأولى ضروري جدا حتى وإن كان الصف يحوي رؤوس أعمدة الجداول لعمل الترويسة (وتأكد أن رؤوس العناوين وإن كانت نصا -المهم أن لا تكون قيما- لا يؤثر في المعادلة التي استُعمل فيها الدالة SUM بالصيغة التي كُتبت عليه) لأن الصف رقم 7 بعد عمل النسخ للكشف1 (الصفحة الأولى) لإنشاء الكشف2 أو ما بعده، سيكون مكانه صف مجاميع (التلحيقات) نتائج الكشف أو الكشوف السابقة، ولأجله يجب أن يشمل التلحيق الصف المعني... أرجو أني تمكنت من توصيل الفكرة، لضرورة دمج الصف رقم 7 في معادلات المجاميع لصف "الإجمالي" في الصفحة الأولى... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، بالنسبة للتفقيط قد تم التعديل على الكود حسب العمود W، بالنسبة لـ "عملية التلحيق التي لا يتم جمعها" هل تقصد أنه لا يجمع الإجمالي في الكشف2 مع نتائج الكشف1 ؟؟؟ فقد تم التعديل على معادلات المجاميع في الإجمالي بإضافة الصف أعلى جدول البيانات... والله أعلم أخوك بن علية المرفق الجديد : جمع وتلحيق + 44.rar

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

السلام عليكم ورحمة الله أخي الحبيب سعيد، لقد عرفت سبب ظهور "وصفر قرشا لا غير" في التفقيط في حالة أن تكون قيمة القروش صفرا وهو خطأ في الكود PRINT_ALL الذي وضعته للتفقيط عند الطباعة والخطأ كان في السطر : If Cells(28, "AH") = 0 Then .Value = "فقط " & Texte1 & Stx1 & St2 Else _ .Value = Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 إذ أن شرط IF يبقى متعلقا بمضمون الخلية (الثابتة) من الصف رقم 28 من العمود AH أي يتعلق بالصفحة الأولى من الكشف حتى وإن قمت بعملية النسخ إلى كشوف أخرى... وقد تم تصحيح هذا السطر من الكود بالسطر التالي (والملف المرفق في ردي السابق يحوي هذا التصحيح): If Cells(lr, "AH") = 0 Then .Value = "فقط " & Texte1 & Stx1 & St2 Else _ .Value = Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، بالنسبة للتسلسل في العمود B قد تم حله بالتعديل على الكود ما يوافق المسألة... بالنسبة للتفقيط في حالة أن يكون المبلغ (مثلا) 5176.00 هل تريد أن يكون التفقيط بالشكل "فقط خمسة آلاف وماثة وستة وسبعون جنيها لا غير" أو تريده أن يكون بالشكل "فقط خمسة آلاف وماثة وستة وسبعون جنيها وصفر لا غير"؟؟؟ لأن الكود في هذه الحالة يكتبها حسب الشكل الأول... أخوك بن علية المرفق : جمع وتلحيق + 33.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، في الحقيقة لم أفهم طلب العمود الإضافي، هل هو العمود B الذي أضفته في ملفك المرفق والملون؟ إذا كان كذلك فقد قمت بالتعديل على كود التفقيط وفق هذا العمود (التعديل على الكود كان وفق الملف المرفق)... إذا كان غير ذلك فالرجاء إرفاق ملف به العمود المضاف وبإذن الله يكون التعديل على الكود وفق هذا الملف... أخوك بن علية الملف المرفق المعدل : جمع وتلحيق + 33.rar

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

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

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

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، عليك بتغيير الكود السابق بالكود التالي: 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 والله أعلم أخوك بن علية