احمدزمان

العفو وفقك الله

العفو طيب في المعادلة غير H الى G يدويا ان شاء الله تظبط

تفضل sours.xlsx result.xlsx

تفتح الملفين تروح في ملف RESULT الخلية E4 تضع الدالة التالية =SUMIF([sours.xlsx]Increase!$E$3:$E$9999;$D4;[sours.xlsx]Increase!$G$3:$G$9999) ثم تسحبها الى السفل مع التحية المشكلة الوحيدة اذا تكرر الاسم راح يعطيك مجموع المبلغ مع التكرار

الحل على السريع تستخدم الدالة SUMIF

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

انا لله وانا اليه لراجعون احسن الله عزائكم نسال الله العظيم رب العرش العظيم ان يغفر لها ويرحمها ويسكنها فسيح جناته

السلام عليكم و رحمة الله وبركاته تم تنفيذ الكود المطلوب Sub az() ' Dim FS As Worksheet, TS As Worksheet Dim FC, FR, TR, ER, Q1, Q2, Q3, SH Set FS = Sheets("أمور الشغل") ER = FS.UsedRange.Rows.Count For FR = 2 To ER Q1 = FS.Cells(FR, 4).Text ' المعدة Q2 = FS.Cells(FR, 1).Value ' رقم امر التشغيل For SH = 1 To ActiveWorkbook.Sheets.Count If Sheets(SH).Name = Q1 Then Set TS = Sheets(SH) ' ورقة السيارة Q3 = Application.CountIf(TS.Range("A:A"), Q2) If Q3 > 0 Then GoTo 3 TR = Application.CountA(TS.Range("A:A")) 4 If TS.Cells(TR, 1) <> "" Then TR = TR + 1 GoTo 4 End If For FC = 1 To 12 TS.Cells(TR, FC) = FS.Cells(FR, FC) Next FC End If Next SH 3 Next FR End Sub و لكن نصيحة الاسهل هو استخدام الجداول المحورية او استخدام التصفية التلقائية او استخدام التصفية المتقدمة بالكود و هذه الحلول افضل من استخدام الكود الموضح اعلاه تحافظ على حجم الملف صغير و كل تعديل في بيانات الورقة الاولى يظهر فورا ولك حرية الاختيار شيت امور الشغل.xls

السلام عليكم و رحمة الله و بركاته ماهو شرط عدم التكرار مثلا عدم تكرار امر الشغل او غيره

جزاك الله خيرا

شكرا لك جزاك الله خيرا

السلام عليكم و رحمة الله وبركاته ممتاز جزاك الله خيرا انا محتاج تحويل الى نجوم في Txtbox اذا امكن جزاك الله خيرا

ماشاء الله حل رائع و من الاخر

‏السبت‏، 04‏ شعبان‏، 1441 السلام عليكم و رحمة الله وبركاته بعد اذن اخي الكريم : احمد يوسف لا مانع من المحاولة اخي الماتادور جرب إضافة هذا السطر اول الكود الذي تعمل عليه مع وضع اسم الصفحة او الورقة بين علامات التنصيص "" If ActiveSheet.Name <> "" Then Exit Sub

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

و عليكم السلام و رحة الله وبركاته جرب المرفق Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR Set TS = Sheets("ÊÃÎíÑ") TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 18 TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR End With 9 Next FSN End Sub برنامج ايجار.xlsm

السلام عليكم و رحمة الله وبركاته اخي الفاضل انا اعطيتك مثال فقط في ورقة الطباعة الجديدة انسخ الدوال الى الاسفل قدر ماتريد غير ناحية الطباعة الى النطاق الذي تحتاجه تظهر معاك ان شاء الله مع التحية عدل عرض الاعمدة و التنسيقات بالشكل المطلوب

السلام عليكم و رحمة الله وبركاته بالاضافة الى حل اخي العيدروس فكرة اخرى اضف ورقة و انا هنا سميتها وصولات (2) ثم استخدم = وصلات A1 يعني نسخة للورقة الاولا بدالة بسيطة و اجعل الطباعة من و رقة وصولات (2) في الكود كما في المرفق طبع وصولات - وصلين.xls

ماشاء الله تبارك الله

ماشاء الله تبارك الله الف الف مبروك اعانك الله و وفقك لكل خير

و عليكم السلام و رحمة الله و بركاته عند الكتابة في الخلية I3 ينتقل فورا الى H10 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$3" Then Range("H10").Select End Sub KHMP.xls

اخي الكريم هذه الدالة تعمل مع اسم النطاق ثم رقم الصف و رقم العمود عند وضع رقم الصف صفر فهي تعمل مع كامل رقم العمود المحدد

تعديل للعمل على العامودين جلب البيانات بشروط افقية وراسية.xls

السلام عليكم و رحمة الله وبركاته اسعد الله ايمكم بكل خير اشتقت لكم جميعا بارك الله فيكم اخي الكريم يتم تسمية نطاق البيانات بـ Data_001 ثم يتم استخدام الدالة =SUMPRODUCT((INDEX(Data_001;0;1)=$C$2)*(INDEX(Data_001;0;2)=$D$2);INDEX(Data_001;0;MATCH($D6;INDEX(Data_001;1;0);0))) كما في المرفق جلب البيانات بشروط افقية وراسية.rar

السلام عليكم شكرا لك اخي الكريم الملف المطلوب للمستودعات موجود في اول مشاركة باسم - - Super_Stores.rar