BUREEM

ابداع اخوي عبدالله المجرب الى الامام دائما شكرا ياذيب اليمن على هذه الفكرة

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

والله ياذيب اليمن جوابك أن شاء الله بتلاقيه عند أبو أحمد 100%

مشكور أخوي عبدالله المجرب تحياتي لك كثيييييير

والله اثلجت صدري لو انت جنبي كنت بست راسك بس شي بسيط يمكن طلبته بالمشاركة السابقة بس ما لاحظتها لو أي لون ليس الاصفر فقط

نعم اطلعت عليه شاكرين لك ولكن بالحقيقة أخي عبدالله المجرب زر التوزيع لايتناسب مع العمل الذي أقوم به وهو عمل أكثر من رائع المطلوب الاخييييييييييييييييييييييير ان شاء الله في الملف ( التي تم الاستغناء عن العمود المساعد )((((لاني تعبتك )))) هل يمكن الغاء زر التوزيع وتلوين الغياب وجعلها متى وضعت القيمة بالخلية (c37 ) يتم التوزيع اتوماتيكي على الخلايا (f4;f34 ) التي لايوجد بها أي تنسيق مثل نص أو لون لاني سوف أعمل فيما بعد تنسيق شرطي على كل كلمة مثل leave , sick leave ,transfer وأنا شاكر لك بس أن شاء الله أول ما أنتهي من على العمل الذي أقوم به سوف أطلعك عليه لتعطيني رأيك لان رأي الخبراء يهمنييييييييي كثيييير

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub If Target.Row < 4 Or Target.Row > 34 Then Exit Sub Application.ScreenUpdating = False Range("G3:G34").ClearContents Range("G3").Value = 0 For i = 4 To 34 LR = Range("g10000").End(xlUp).Row Cells(i, "G").Value = Cells(LR, "G").Value + 1 If Cells(i, "H").Value = "absent" Then Cells(i, "G").Value = "" Next i Application.ScreenUpdating = True End Sub اخوي عبدالله المجرب القيمة هي ABSENT ثابتة فأنا اريدها أي نص مثلا لانها ممكن تكون LEAVE - SICK LEAVE- TRANSFER أزعجتك اليوم سامحني تحياتي

مشكور جداااااااا على هذا العمل الاكثر من رائع جزاك الله خير

صادوووووووووووه

استاذ عبدالله المجرب أولا أشكرك كثير الشكر تحياتي الحارة لك

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

أنا آسف على التأخير مشكورين جدااا ياعباقرة الاكسل والله تحياتي للجميع

وعليكم السلام انت قلت على قد الحال وانا أقول فوق الحال ماشاء الله أثلجت صدري والله أنا طماع شوي هل يمكن بدون عمود مساعد وبارك الله فيك وزادك الله من علمه

إلى اساتذتي الكرام الموقرين بالمرفق الشرح إن شاء الله يكون وافي وهي دالة لتوزيع قيمة معينة على خلايا محددة وشكراتوزيع.zip

لو سمحتو ممكن حد يتكرم من الاساتذة الكبار يشوفنا حل أنا آسف على الاستعجال

للرفع

للرفع

شكرا على مرورك أخوي ذيب اليمن هذا هو المطلوب بالضبط

لا. متغير وممكن أن تزيد أو تنقص

وشكرا على مرورك واهتمامك

الاستاذ الكبير mas123 في المثال السابق نتجاهل عن العمود g ونركز على العمود h لنسهل المطلوب ممكن دالة توزع العدد الذي يظهر في الخلية h46 على الخلايا من (h13:h43) كحد أقصى 2 في كل خلية غير ملونة ليصبح المجموع مساويا للعدد الموجود في الخلية h46 حيث أن العدد الموجود في الخلية h46 ممكن يزيد أو ينقص وبعدها سأدمج معادلتيين معا لوضهعا بالعمود g

أنا سمعت كثير عن هذا المنتدى الأكثرمن رائع فحبيت أن أسأل أساتذة هذا المنتدى وأطلب من الله ثم منهم مساعدتي بهذه المعادلة حيث انها تهمني كثيرا تحياتي للجميع book2011.zip