ياسر خليل أبو البراء

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

في الخلية J7 ضع المعادلة =IF(H7="","",$G$7-SUM($H$7:H7)) ثم قم بسحبها لأسفل

أخي الحبيب عبد العزيز المشكلة ليست الآن في توضيح طلبك ..إنما في غرابة طلبك سألك الأخ الغالي عبد الله عن المعطيات ..!! الأفضل أن تكون القيم في ورقة العمل لأن التعامل مع جميع الفورم في نفس الوقت أعتقد أنه غير مريح بالمرة ولكن عموما إليك الملف المرفق ..انقر على زر إدخال بيانات سيتم فتح الفورم الثلاثة قم بإدخال رقم في المجموع في الفورم الأول ثم انتقل للفورم الثاني واكتب رقم في المجموع في انتقل في الفورم الثالث واكتب رقم ولاحظ المجموع العام للثلاثة أرقااااااااااااام (متعبة ..بس دا طلبك) Try This.rar

الأخ الحبيب أبا الحسن والحسين جزاك الله خير الجزاء أخي عبد الرحمن إليك كود الأخ الغالي أبا الحسن والحسين (كودين ..دمجتهم في كود واحد . وقمت بشرح أجزاء الكود لتتمكن من التعديل عليه بما يناسبك) Sub PrintAll() 'تعريف المتغيرات Dim LR As Long Dim I As Long 'سطر للتجاهل في حالة حدوث خطأ On Error Resume Next 'حلقة تكرارية لكل أوراق العمل For I = 1 To Sheets.Count 'تحديد أو تنشيط ورقة العمل المراد طباعتها Sheets(I).Select 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'تحديد آخر صف به بيانات في العمود الثامن LR = Range("A50:H").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'ضبط نطاق الطباعة .PageSetup.PrintArea = "A1:H" & LR 'طباعة النطاق المحدد .PrintOut 'نهاية التعامل مع الورقة النشطة End With 'الانتقال لورقة العمل التالية Next End Sub

بصراحة لم أفهم المطلوب بشكل جيد هل تريد إظهار الـ 5 صور في خلية واحدة .. أم أن لكل صورة خلية تظهر فيها ؟ يرجى تصميم ملفك أو نموذج مبسط لتسهيل الأمر على الأخوة الأعضاء

أخي الحبيب أبو نبأ ... أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق .. عموما جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 10 Then If Target.Value = "صرفت" Then Target.Offset(, 1).Value = Date Target.Offset(, 2).Value = Format(Date, "ddd") End If End If End Sub كتابة التاريخ واليوم عند كتابة كلمة.rar

أعتقد أنه يجب تغيير نسخة الويندوز وجرب نسخة أوفيس أخرى ..

أيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــن المرفــــــــــــــــــق؟ http://www.officena.net/ib/index.php?s=8163a5c9bc0d75c5ad4b6002ac76795a&showtopic=60147

هل هذا ما تقصده ؟ نموذج مبسط مبيعات بمعادلات.rar

بارك الله فيك وجزاك الله خيراً أخي الفاضل

أخي الفاضل خالد إذا كان الأمر كما تقول أن عدد الصفوف كثيرة جداً فاعلم أن معادلات الصفيف ستتسبب في ثقل الملف وكبر حجمه إلى حد كبير .. وساعتها أعتقد أن الأكواد ستكون الحل البديل .. جرب الأول وشوف الدنيا ماشية معاك إزاي بعديها قرر ..

ارفق ملف الإكسيل للعمل عليه

أخي المعادلة سليمة وصحيحة فقط تغيير نهاية النطاق إليك الملف المرفق Get Nearest Date V2.rar

جزيت خيراً أخي الحبيب هاني بدر على هذه الهدية القيمة والرائعة والمذهلة والمدهشة

بعد وصول عدد المشاركات إلى 26 مشاركة .. تقول هذا الكلاااااااااااااام لا تعليق !!

لم أفهم مطلوبك

أخي الكريم خالد السطر الذي أضفته مجرد سطر لتجريب نتيجة المعادلة هل الملف المرفق أدى الغرض أم لا؟ بالنسبة عند نسخ المعادلة ووضعها في ملفك لا تنسى الضغط على Ctrl + Shift + Enter لأن المعالادت معادلات صفيف

يرجى إرفاق ملف للتوضيح

سبقني عكاشة أقصد العلامة سليم بارك الله فيك أخي الحبيب سليم ..دائما سباق

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

كيف سيتم الإدخال في كل الفورم الموجودة ما لم تكن جيعها نشطة !! سؤالي مرة أخرى هل سيتم التعامل مع الفورم كلها وهي مفتوحة !؟؟

الأخ الفاضل خالد أهلا بك في المنتدى بين إخوانك ..نورت المنتدى إليك الملف التالي عله يفي بالغرض إن شاء الله ولا تنسى أن تقوم بالإطلاع على التوجهيات على هذا الرابط http://www.officena.net/ib/index.php?showtopic=60147 Get Nearest Date.rar

المعادلة لا تؤثر في خليتين مختلفتين في نفس الوقت .. هل تقصد أن تكتب المعادلة في خلية وتؤثر في الخليتين أي تظهر النتائج في الخليتين معاً ؟؟؟؟!!

جرب هذا الملف ..حل بشكل مختلف للحصول على المطلوب Try VLOOKUP.rar

يمكن ببساطة وضع المعادلة التالية في F2 =IF(E2<>"",150) إن لم يكن هذا طلبك يرجى توضيح المطلوب بشكل أكثر تفصيلاً