BUREEM قام بنشر أكتوبر 27, 2011 مشاركة قام بنشر أكتوبر 27, 2011 إلى اساتذتي الكرام الموقرين بالمرفق الشرح إن شاء الله يكون وافي وهي دالة لتوزيع قيمة معينة على خلايا محددة وشكراتوزيع.zip رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 27, 2011 مشاركة قام بنشر أكتوبر 27, 2011 السلام عليكم محاولة على قد الحال (بانتظار ابداعات الاساتذة) جرب المرفق هناك عمود مساعد (تم إخفائه) العمود H فيه قائمة منسدلة لاختيار الغياب جرب ان شاء الله تفي بالغرض توزيع.zip رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 27, 2011 الكاتب مشاركة قام بنشر أكتوبر 27, 2011 وعليكم السلام انت قلت على قد الحال وانا أقول فوق الحال ماشاء الله أثلجت صدري والله أنا طماع شوي هل يمكن بدون عمود مساعد وبارك الله فيك وزادك الله من علمه رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أكتوبر 27, 2011 مشاركة قام بنشر أكتوبر 27, 2011 اخي الاستاذ " عبد الله المجرب " دينمــــــــــــــو الموقع تشكر وادامك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 27, 2011 مشاركة قام بنشر أكتوبر 27, 2011 لماذا لا تريد العمود المساعد فهو لن يؤثر =========== اخي ياسر شكراً لك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 27, 2011 مشاركة قام بنشر أكتوبر 27, 2011 الاستاذ عبدالله المجرب عيني عليك باردة مبدع كالعادة تسلم رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 29, 2011 الكاتب مشاركة قام بنشر أكتوبر 29, 2011 أنا آسف على التأخير مشكورين جدااا ياعباقرة الاكسل والله تحياتي للجميع رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 توزيع.zipأخوي عبدالله المجرب ممكن تتطلع على المرفق يحتاج الى تعديل بسيط رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 31, 2011 مشاركة قام بنشر أكتوبر 31, 2011 السلام عليكم ما رايك في حل بالاكواد جرب المرفق توزيع.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 31, 2011 مشاركة قام بنشر أكتوبر 31, 2011 جزيت خيرا استاذ عبدالله المجرب حلول رائعة الى الامام يامبدع رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 (معدل) استاذ عبدالله المجرب أولا أشكرك كثير الشكر تحياتي الحارة لك تم تعديل أكتوبر 31, 2011 بواسطه BUREEM رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 31, 2011 مشاركة قام بنشر أكتوبر 31, 2011 السلام عليكم كنت قد قرات في مشاركتك قبل التعديل طلبك بالغاء العمود المساعد تفضل المرفق ستقوم بتلوين خلية الغياب باللون الاصفر ثم تضغط الزر وسيتم التوزيع ======= اخي ابو نصار شكراً لمرورك توزيع.rar رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 صادوووووووووووه رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 مشكور جداااااااا على هذا العمل الاكثر من رائع جزاك الله خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 31, 2011 مشاركة قام بنشر أكتوبر 31, 2011 صادوووووووووووه ههههههههههههه ======= لا شكر على واجب رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 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 أزعجتك اليوم سامحني تحياتي رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 31, 2011 مشاركة قام بنشر أكتوبر 31, 2011 السلام عليكم نرجو منك التحلي بالصبر ============ اخي الفاضل هل اطلعت على المرفق في مشاركتي الاخيرة (تم الاستغناء عن العمود المساعد) ========= بانتظار الرد حتى يتم تحديد اين سيتم التعديل توفيراً للجهد رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب مشاركة قام بنشر نوفمبر 1, 2011 نعم اطلعت عليه شاكرين لك ولكن بالحقيقة أخي عبدالله المجرب زر التوزيع لايتناسب مع العمل الذي أقوم به وهو عمل أكثر من رائع المطلوب الاخييييييييييييييييييييييير ان شاء الله في الملف ( التي تم الاستغناء عن العمود المساعد )((((لاني تعبتك )))) هل يمكن الغاء زر التوزيع وتلوين الغياب وجعلها متى وضعت القيمة بالخلية (c37 ) يتم التوزيع اتوماتيكي على الخلايا (f4;f34 ) التي لايوجد بها أي تنسيق مثل نص أو لون لاني سوف أعمل فيما بعد تنسيق شرطي على كل كلمة مثل leave , sick leave ,transfer وأنا شاكر لك بس أن شاء الله أول ما أنتهي من على العمل الذي أقوم به سوف أطلعك عليه لتعطيني رأيك لان رأي الخبراء يهمنييييييييي كثيييير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 1, 2011 مشاركة قام بنشر نوفمبر 1, 2011 السلام عليكم تفضل المرفق سيتم التوزيع بعد وضع الرقم في الخلية توزيع.rar رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب مشاركة قام بنشر نوفمبر 1, 2011 والله اثلجت صدري لو انت جنبي كنت بست راسك بس شي بسيط يمكن طلبته بالمشاركة السابقة بس ما لاحظتها لو أي لون ليس الاصفر فقط رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 1, 2011 مشاركة قام بنشر نوفمبر 1, 2011 السلام عليكم لشكر لك كلامك الجميل ولا يهمك استبدل الكود السابق بهذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row <> 37 Then Exit Sub If Target.Column <> 3 Then Exit Sub Range("F4:F34").ClearContents Dim cl As Range Set xx = Application.WorksheetFunction r = Range("C37").Value For Each cl In Range("F4:F34") If cl.Interior.ColorIndex <> xlNone Then GoTo 1 LR = Range("f10000").End(xlUp).Row w = xx.Sum(Range("F4:F" & LR)) If w <= r And cl.Interior.ColorIndex = xlNone Then cl.Value = 2 If r - w = 1 Then Cells(cl.Row, 6).Value = 1 If w = r Or w + 1 = r Then Exit Sub End If If w > r Then Exit Sub 1 Next cl End Sub رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر نوفمبر 1, 2011 مشاركة قام بنشر نوفمبر 1, 2011 الصراحة اعجبني مثالك كثير يا بوريم وأعجبني حل الاستاذ الكبير ابو احمد عبدالله المجرب اسمحلي يابوريم اضم صوتي لك وقد استخدمت مثالك لنسأل أخونا عبدالله المجرب لو استعملنا فيها دالة vlookup مثلا أنا وضعت المرفق وفيه بعض الاسئلة فياريت ياأخوي ابو أحمد تفيدنا بهذا السؤال توزييييييع.zip رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب مشاركة قام بنشر نوفمبر 1, 2011 مشكور أخوي عبدالله المجرب تحياتي لك كثيييييير رابط هذا التعليق شارك More sharing options...
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب مشاركة قام بنشر نوفمبر 1, 2011 والله ياذيب اليمن جوابك أن شاء الله بتلاقيه عند أبو أحمد 100% رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 1, 2011 مشاركة قام بنشر نوفمبر 1, 2011 السلام عليكم ارجو منك اخي ذيب اليمن التوضيح أكثر (هل تريد استبدال الدالة VLOOKUP بالكود) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان