مطلوب دالة او كود

[شعبان سعد عجور]

الاخوة الافاضل

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

المطلوب عمله فى الورقة الثانية كود اومعادلة يتم وضع الرقم الوظيفى للعمال فى العمود a فتعطينا ناتج فى العمود الثانى يحتو على المواد التى استلمها العامل صنف & وتاريخ استلام بحيث يمكن الاستعلام عن عدد كبير من العمال بوضع ارقامهم الوظيفية فى اول عمود فيكون الناتج المطلوب فى الاعمدة التى تليه

استلام مهمات سلامة_2.rar

[يحيى حسين]

السلام عليكم و رحمة الله 

أخي جرب الكود التالي 

 

رايت كليلك على اسم الصفحة Sheet1

و استخدم هذا الكود 

و سيقوم بإضافة كل ما استلمه الموظف في الخلية المجاورة 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim LR As Long
Dim c As Range
Application.EnableEvents = False
Set ws = Sheets("data")
LR = ws.Range("D" & Rows.Count).End(xlUp).Row

If Not Intersect(Target, Range("A:A")) Is Nothing Then
    For Each c In ws.Range("D3:D" & LR)
        If c.Value = Target Then
            Target.Offset(, 1).Value = Target.Offset(, 1).Value & "-" & c.Offset(, 2).Value
        End If
    Next c
End If
Application.EnableEvents = True
MsgBox "done"
End Sub

و لكن لي ملاحظة 

 

و هي أن يتم بناء صفحة استعلام 

بحيث يقوم الإكسيل بوضع النتائج لموظف واحد في كل حركة و هي أفضل من الطريقة التي تستخدمها أنت 

 

دمت في حفظ الله 

 

 

[شعبان سعد عجور]

استاذى الفاضل ممكن شرح للطريقة الثانية التي تفضلت بذكرها لانى استخدم هذا الملف بشكل مستمر في عملى واجد صعوبة كبيرة في البحث عن 50 او 60 اسم باخر استلام لهم ارجو منك الشرح ولسيادتك جزيل الشكر والتقدير

[جمال عبد السميع]

بعد حل أستاذى العبقرى " يحيى حسين "

وأنصحك باأستخدام الكود السابق وذلك لكبر حجم بياناتك

لأن المعادلة ممكن تسبب ثقل فى العمل

وعلى العموم لم يتبقى سوى الحل بالمعادلة وأليك هذا الحل لعله يفيد

تقبل : تحباتى

أستلام مهمات.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاساتذة الافاضل الاخ الحبيب يحيى حسين المحترم

الاخ الحبيب ابو محمود المحترم

اعمالكم غاية في الروعة جزاكم الله خيرا

تقبلوا فائق الاحترام والتقدير

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

بسم الله ما شاء الله عمل رائع بارك الله فيكما

[Medo Basha]

السلام عليكم ورحمة الله وبركاته 

لدي ملف اكسل به اكثر من 2000 صف و200 عامود واريد المساعدة ممن لديه المعرفة فيما يلي :

1 - جمع أكبر 6 أرقام (قيم) في الصف

2 - احتساب متوسط اكبر 6 أرقام (قيم) في الصف 

ولكم جزيل الشكر والتقدير 

تم تعديل فبراير 16, 2017 بواسطه Medo Basha