طارق محمود

السلام عليكم تفضل أخي الملف به المطلوب برنامج3.xlsm

السلام عليكم أخي الكريم يمكنك إستخدام الدالة Indirect فهي الأنسب في حالتك لم أستطع تطبيق ذلك علي الملف لأن الملف معطوب برجاء إعادة إرساله

السلام عليكم تستطيع دائما تفكيك اي معادلة لفهمها لاحظ أن نظام الجهاز عندي يضع بالمعادلة علامة (,) بدلا من (;) المعادلة السابقة بعد تفكيكها تكون كالتالي =IFERROR(A,) حيث نستعيض بالمعامل A عن المعادلة SUMPRODUCT((INDEX(ACH.!$B$3:$AP$9999,MATCH(A3,ACH.!$A$3:$A$9999,),)>0)*COUNTIF(INDEX(IP!$C$4:$N$44,,IFERROR(MATCH(C3,IP!$E$2:$N$2,)+2,MATCH(E3,IP!$C$3:$D$3,))),ACH.!$B$1:$AP$1)) ومعني المعادلة الأولي أن في حالة حدوث خطأ من المعادلة A فلا تكتب النتيجة خطأ والآن إلي المعادلة A بنفس الطريقة نبسطها كالتالي A= SUMPRODUCT(B*C) حيث B=(INDEX(ACH.!$B$3:$AP$9999,MATCH(A3,ACH.!$A$3:$A$9999,),)>0) ، C=COUNTIF(INDEX(IP!$C$4:$N$44,,IFERROR(MATCH(C3,IP!$E$2:$N$2,)+2,MATCH(E3,IP!$C$3:$D$3,))),ACH.!$B$1:$AP$1) ومعني ذلك ببساطة أن A تساوي حاصل ضرب مصفوفتين B,C مشروطتين والمصفوفة B هي أيضا يمكن تبسيطها هكذا B=(INDEX(B1,B2,)>0) حيث B1 هي المجال ACH.!$B$3:$AP$9999 ، B2 هي المعامل الناتج عن MATCH(A3,ACH.!$A$3:$A$9999,) و لإيجاد المعامل B2 نذهب للورقة ACH في المجال A3:A9999 والذي يبدأ بالخلية A3 لتبحث عن كود العميل والموجود بالخلية A3 بالورقة QSC ، إذن ستجد أنه في الصف الثامن (إذا بدأت العد من الخلية A3 ) أي أن : الجزء الأخير من المصفوفة B والذي أسميناه B2 سيأتي بالرقم 8 إذن المصفوفة B هي عنصر ناتج من المجال B1 (أي المجال B3:AP9999 في الورقة ACH) وهو العنصر الثامن وحيث أن رقم العمود لم يذكر فيكون الناتج هو كامل الصف الثامن من المجال B3:AP9999 في الورقة ACH وبما أن وحيث المجال B3:AP9999 يحتوي علي 41 عمود من (B) إلي (AP) إذن نتوقع أن يكون العنصر الثامن هذا هو محتوي 41 خلية وبالرجوع لها تجدها (1 , 0 , 1 , 0 , 1 , 1 , 0 , 6.25 , 1 , 2 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0) بالترتيب حيث يعتبر الخلايا الفارغة أصفار باقي معني أخير بالمصفوفة B وهي مقارنة العناصر الناتجة بالرقم 0 (حيث آخر مقطع منها هو >0) فالناتج النهائي لها سيكون 41 عنصرا كل منها يحتوي علي 1 إذا كان الأصلي أكبر من 0 ويحتوي علي 0 إذا كان الأصلي ليس أكبر من 0 الناتج النهائي لها سيكون هكذا (1 , , 1 , , 1 , 1 , , 1 , 1 , 1 , 1 , , , , , , , , , , , , , 1 , 1 , , 1 , , , , , 1 , , , , , , , , , ) والمعني الطبيعي لهذا هو جعل الإكسل ينتقي عدد المرات (الأصناف) التي أخذها هذا العميل والآن : المصفوفة C هي ..... هكذا بنفس الوسيلة تجد أنها أيضا تنتج 41 عنصرا من الورقة الأخيرة IP وهذه العناصر رأسية (SKU CODE) ولابد أن تتساوي في العدد مع عناصر المصفوفة الأولي أي 41 عنصرا حقيقة أنا لا أعلم ماذا يعني SKU CODE ولكن تقاطع المصفوفتين سينتج 1 عند التقاطعات المملؤة أي التي بها 1 في المصفوفتين أعتقد أن المعني لهذا هو جعل الإكسل ينتقي عدد المرات (الأصناف) التي أخذها هذا العميل وفي نفس الوقت تتطابق مع هذا ال SKU CODE

السلام عليكم أهلا ومرحبا أخي الكريم إستعنت بكود تفقيط عربي لأستاذنا الجليل عبد الله باقشير ستتعرف علي الكود وعلي المعادلات الجديدة المضافة للملف وكل ماهو بالفونط الأزرق حتي أنه كان عندك خطأ في العام (كتبت 2018 بدلا من 2019) في الخلية C16 بالورقة2 وكذلك أي خلايا بها عوامل مساعدة ستجدها بالأزرق أيضا بالجزء الرمادي بالورقة أرجو أن يكون المرفق هو ماتريد تفضل تصفيه_مستحقات.xlsm

السلام عليكم تفضل أخي المرفق اخر بيانات تم ادخالها.xlsm

السلام عليكم أخي الكريم مرفق نفس الملف وبه الكود لكي تضيف نفس الكود بالملف الأصلي إفتح الملف ثم الفيجوال بيسيك Alt-F11 ثم دبل كليك علي اسم الشيت ثم انسخ هذا الكود وضعه بمحرر الأكواد Private Sub Worksheet_Change(ByVal Target As Range) cl = Target.Column If cl > 14 And cl < 17 Then Exit Sub r = Target.Row If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 11))) < 2 Then Exit Sub ActiveSheet.Unprotect Password:="121314" Cells(r, 15) = Application.UserName Cells(r, 16) = Date & " - " & Time 'Range("A1:C" & r).Locked = True ActiveSheet.Protect Password:="121314" End Sub كما بالصورة التالية AAAA (1).xlsm

السلام عليكم أخي الكريم راجع ردي التالي في الموضوع "اضافة اسم الشيت"

السلام عليكم أخي الكريم لم يفتح الرابط الذي أعطيته أنت وبحثت عن رابط مماثل ، تجده بالورقة الثانية بالمرفق الرابط الثاني هو : http://www.asmainfo.com/Kuwait/Ar/quotes/DailyQuote.aspx أيضا يجلب فقط حتي السطر الـ 327 لأن هذا هو آخر سطر بالصفحة علي الموقع بالفعل أي أنه لايوجد شركات أخري بعد شركة مبرد للنقل تفضل المرفق استيراد البيانات.xlsx

السلام عليكم أخي الكريم لم أفهم المطلوب مرفق نفس الملف وضح لي عليه ماذا تريد إذا تم تعديل بالسطر الأصفر مثلا AAAA.xlsx

السلام عليكم إذن إرسل لي الى الشيت الاصلى (علي الخاص) وسوف أسويها بإذن الله الموضوع الثاني سوف أراجعه قريبا ، عذرا لانشغالي الشديد

السلام عليكم إذن تنسخ الأكواد من ملف Report.xlsm الى الشيت الاصلى الى فيه الداتا كاملة السلام عليكم إذن تنسخ الأكواد من ملف Report.xlsm الى الشيت الاصلى الى فيه الداتا كاملة أو إرسل لي الى الشيت الاصلى (لو فيه داتا تخاف من نشرها ، إرسله علي الخاص كرسالة)

السلام عليكم تفضل الملف معدلا متابعة الديون.xlsm11.xlsm

السلام عليكم أخي العزيز يوجد خطأ بسيط بالكود تستطيع إصلاحه إمسح (-1) من السطر التالي If r < n-1 Then GoTo 15 ليكون If r < n Then GoTo 15 وسيكون الملف علي مايرام

السلام عليكم أخي العزيز تفضل الصورة التالية بها الكود في جانب مع شرح سريع للخطوات في الجانب الأيمن

السلام عليكم أخي العزيز تفضل الملف به ماطلبت متابعة الديون.xlsm

السلام عليكم أخي الكريم كما قلت لك ، باسورد الحماية "123" الأفضل أن تجعل الحماية موجودة ولايسمح للمستخدم بالعمل إلا في الأعمدة الثلاثة الأولي ولايمس عمل الآخرين يمكن مثلا أن يعدل كالتالي : البيان رقم 8 يعيد كتابته مرة أخري معدلا أي يكون عندك بيانات متكررة بنفس الرقم ومعروف من الذي كتب أولا وفي أي تاريخ ثم من كتب ثانيا أو ثالثا وماذا عدل وفي أي تاريخ هذا رأيي ولكن ممكن عمل أي شيء إن شاء الله

السلام عليكم جرب تأخذها كلها (ليس نسخا) Cut ثم Paste أي تحريكها بما تحمل من هايبر لينك

السلام عليكم أخي الكريم بعد إذن الأخ محمد ، مرفق نفس الملف به التالي حماية بباسورد "123" مسموح للمستخدم فقط العمل في الأعمدة الثلاثة الأولي وبعد أن يكون الثلاثة أعمدة مليئة بالبيانات ، يتم أوتوماتيكيا التالي 1- يقوم الماكرو بفك الحماية 2- يسجل بالعمود الرابع والخامس إسم المستخدم و التاريخ 3- يقوم أخيرا بفرض الحماية مرة أخري مع منع السطر الأخير أيضا من التعديل تفضل الملف معرفة اسم مستخدم الجهاز.xlsm

السلام عليكم أخي الكريم عندي يتم عمل الهايبر لينك بلامشاكل مرفق الملف مرة أخري ومعه في نفس الفولدر PDF حاول تضغط الزر الأول ثم تضغط الزر الثاني TEST PDF.rar

وعليكم السلام ورحمة الله وبركاته أخي الكريم ماذا تتوقع وأنت تبخل في إعطاء بيانات ردا علي سؤالك هل هناك كود يستدعي البيانات تحت بعضها البعض نعم هناك كود بل أكثر من كود هل هذا يكفي ردا لسؤالك لا أنت تريد الكود ، إذن أعطينا السؤال الملف به شكل وتنسيق البيانات التي تحتاجها من الملفات

السلام عليكم أخي العزيز من فضلك أعد إرسال الملف لأن المرسل به خلل

السلام عليكم أخي الكريم إرسل شيت علي الأقل به أسم الملفات شاملا المسار (القرص / المجلد/ ...)

السلام عليكم تفضل أخي الكريم عسي أن يكون هذا ماتريد تقييم الطلاب.xlsx

السلام عليكم أخي الكريم مرفق مجلد به 32 ملف رمزي غير الملف الأساسي "Report.xlsm" ستجد زرين لكل واحد منهما كود الأول يعمل لك ليستة بالملفات الموجودة بالمجلد اللي موجود به الملف الأساسي "Report.xlsm" يجب أن تضغط عليه أولا ليعطيك قائمة بالملفات الموجودة بالمجلد بداية من الخلية B4 نزولا للأسفل ثم الزر الثاني يعمل لك الهايبر لينك للملفات الموجودة بالمجلد وموجود إسمها بالملف الأساسي "Report.xlsm" تفضل المجلد ولو لك أسئلة لاتتردد TEST.rar

السلام عليكم أخي الكريم عدد وظائف أي مستوي مع مجموعة نوعية لايزيد عن عشرة الحالة التي بها 10 هي المستوي (الثانية) - مجموعة نوعية (التعليم) وفي كثير من الأحيان 1 فقط فكيف سيكون الحال إن كان إجمالي العدد 1 ويستحق العلاوة .. ليس 10% بل 100% من العدد ؟؟ عموما شوف المرفق عسي أن يكون هو ما تريد جداول العلاوة التشجيعية.xlsx