BUREEM قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 إلى اساتذتي الكرام الموقرين بالمرفق الشرح إن شاء الله يكون وافي وهي دالة لتوزيع قيمة معينة على خلايا محددة وشكراتوزيع.zip
عبدالله المجرب قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 السلام عليكم محاولة على قد الحال (بانتظار ابداعات الاساتذة) جرب المرفق هناك عمود مساعد (تم إخفائه) العمود H فيه قائمة منسدلة لاختيار الغياب جرب ان شاء الله تفي بالغرض توزيع.zip
BUREEM قام بنشر أكتوبر 27, 2011 الكاتب قام بنشر أكتوبر 27, 2011 وعليكم السلام انت قلت على قد الحال وانا أقول فوق الحال ماشاء الله أثلجت صدري والله أنا طماع شوي هل يمكن بدون عمود مساعد وبارك الله فيك وزادك الله من علمه
ياسر الحافظ قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 اخي الاستاذ " عبد الله المجرب " دينمــــــــــــــو الموقع تشكر وادامك الله ابو الحارث
عبدالله المجرب قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 لماذا لا تريد العمود المساعد فهو لن يؤثر =========== اخي ياسر شكراً لك
الـعيدروس قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 الاستاذ عبدالله المجرب عيني عليك باردة مبدع كالعادة تسلم
BUREEM قام بنشر أكتوبر 29, 2011 الكاتب قام بنشر أكتوبر 29, 2011 أنا آسف على التأخير مشكورين جدااا ياعباقرة الاكسل والله تحياتي للجميع
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب قام بنشر أكتوبر 31, 2011 توزيع.zipأخوي عبدالله المجرب ممكن تتطلع على المرفق يحتاج الى تعديل بسيط
عبدالله المجرب قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 السلام عليكم ما رايك في حل بالاكواد جرب المرفق توزيع.rar
الـعيدروس قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 جزيت خيرا استاذ عبدالله المجرب حلول رائعة الى الامام يامبدع
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب قام بنشر أكتوبر 31, 2011 (معدل) استاذ عبدالله المجرب أولا أشكرك كثير الشكر تحياتي الحارة لك تم تعديل أكتوبر 31, 2011 بواسطه BUREEM
عبدالله المجرب قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 السلام عليكم كنت قد قرات في مشاركتك قبل التعديل طلبك بالغاء العمود المساعد تفضل المرفق ستقوم بتلوين خلية الغياب باللون الاصفر ثم تضغط الزر وسيتم التوزيع ======= اخي ابو نصار شكراً لمرورك توزيع.rar
BUREEM قام بنشر أكتوبر 31, 2011 الكاتب قام بنشر أكتوبر 31, 2011 مشكور جداااااااا على هذا العمل الاكثر من رائع جزاك الله خير
عبدالله المجرب قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 صادوووووووووووه ههههههههههههه ======= لا شكر على واجب
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 أزعجتك اليوم سامحني تحياتي
عبدالله المجرب قام بنشر أكتوبر 31, 2011 قام بنشر أكتوبر 31, 2011 السلام عليكم نرجو منك التحلي بالصبر ============ اخي الفاضل هل اطلعت على المرفق في مشاركتي الاخيرة (تم الاستغناء عن العمود المساعد) ========= بانتظار الرد حتى يتم تحديد اين سيتم التعديل توفيراً للجهد
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب قام بنشر نوفمبر 1, 2011 نعم اطلعت عليه شاكرين لك ولكن بالحقيقة أخي عبدالله المجرب زر التوزيع لايتناسب مع العمل الذي أقوم به وهو عمل أكثر من رائع المطلوب الاخييييييييييييييييييييييير ان شاء الله في الملف ( التي تم الاستغناء عن العمود المساعد )((((لاني تعبتك )))) هل يمكن الغاء زر التوزيع وتلوين الغياب وجعلها متى وضعت القيمة بالخلية (c37 ) يتم التوزيع اتوماتيكي على الخلايا (f4;f34 ) التي لايوجد بها أي تنسيق مثل نص أو لون لاني سوف أعمل فيما بعد تنسيق شرطي على كل كلمة مثل leave , sick leave ,transfer وأنا شاكر لك بس أن شاء الله أول ما أنتهي من على العمل الذي أقوم به سوف أطلعك عليه لتعطيني رأيك لان رأي الخبراء يهمنييييييييي كثيييير
عبدالله المجرب قام بنشر نوفمبر 1, 2011 قام بنشر نوفمبر 1, 2011 السلام عليكم تفضل المرفق سيتم التوزيع بعد وضع الرقم في الخلية توزيع.rar
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب قام بنشر نوفمبر 1, 2011 والله اثلجت صدري لو انت جنبي كنت بست راسك بس شي بسيط يمكن طلبته بالمشاركة السابقة بس ما لاحظتها لو أي لون ليس الاصفر فقط
عبدالله المجرب قام بنشر نوفمبر 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
الذيب 2015 قام بنشر نوفمبر 1, 2011 قام بنشر نوفمبر 1, 2011 الصراحة اعجبني مثالك كثير يا بوريم وأعجبني حل الاستاذ الكبير ابو احمد عبدالله المجرب اسمحلي يابوريم اضم صوتي لك وقد استخدمت مثالك لنسأل أخونا عبدالله المجرب لو استعملنا فيها دالة vlookup مثلا أنا وضعت المرفق وفيه بعض الاسئلة فياريت ياأخوي ابو أحمد تفيدنا بهذا السؤال توزييييييع.zip
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب قام بنشر نوفمبر 1, 2011 مشكور أخوي عبدالله المجرب تحياتي لك كثيييييير
BUREEM قام بنشر نوفمبر 1, 2011 الكاتب قام بنشر نوفمبر 1, 2011 والله ياذيب اليمن جوابك أن شاء الله بتلاقيه عند أبو أحمد 100%
عبدالله المجرب قام بنشر نوفمبر 1, 2011 قام بنشر نوفمبر 1, 2011 السلام عليكم ارجو منك اخي ذيب اليمن التوضيح أكثر (هل تريد استبدال الدالة VLOOKUP بالكود)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.