طارق محمود

السلام عليكم لماذا كل هذه التشكيلات الغريبة في الملف .؟ الملف كان ممكن يكون أسهل بكثير إذا لم يكن هناك MERGE - WRAPE ... الفونت 60 وأكثر .... الأفضل إعادة صياغة الملفات بالطريقة العادية ليسهل عمل المعادلات

تفضل الملف به التعديل Cashout test Pro2.xlsm

السلام عليكم السؤال غير واضح تستطيع مثلا بالتصفية (فلتر) إختياؤ الفراغ

السلام عليكم أخي الكريم أنت كسلت أو نسيت !! تشرح ماتريد ظننت أن بالملف شرح لما تريد ولم أجد شيئا

الملف لايفتح عندي

السلام عليكم تفضل الملف به اضافة للكود تمنع اعطاء المراقب فترتان فى وقت واحد توزيع الارقام بطريقة عشوائية2.xlsm

السلام عليكم تفضل =IF(LEN(D3)>=10,"0"&LEFT(B3,2)&"-"&MID(B3,3,100), "0"&LEFT(B3,1)&"-"&MID(B3,2,100))

تفضل أخي اصناف3.xlsm

السلام عليكم الأفضل تضع كل الحالات لذلك وضعت لك الحل من خلال أكثر من كود واحد الأول : عند تنشيط الورقة وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0 ، G<>0 أي يكون هناك سداد الثاني : عند حدث تنشيط الورقة وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0 ، G<>0 أي يكون هناك سداد الثالث : Un-Hide كود عادي ليس خاص بأحداث الورقة وهذا يظهر كل السطور التي تم إخفاؤها من قبل بالإضافة إلي كود رابع في حدث الملف عند فتح الملف يتم تفعيل الكود الأول إليك الأكواد والملف به الأكواد Private Sub Worksheet_Activate() LR = [I9999].End(xlUp).Row If LR < 15 Then LR = 15 For r = 15 To LR If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True Next r End Sub Private Sub Worksheet_Change(ByVal Target As Range) r = Target.Row If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True End Sub Sub un_Hide() LR = [I9999].End(xlUp).Row Rows(10 & ":" & LR).EntireRow.Hidden = False End Sub '=============================================================== Private Sub Workbook_Open() Sheets ("كشف الحساب ") LR = [I9999].End(xlUp).Row If LR < 15 Then LR = 15 For r = 15 To LR If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True Next r End Sub اخفاء السطر.xlsm

السلام عليكم ورحمة الله أخي الكريم تفضل جرب الكود التالي Sub nn() For sh = 1 To Sheets.Count With Sheets(sh) LR = .[C9999].End(xlUp).Row .Range("A" & LR & ":H" & LR).Copy .[A17].PasteSpecial xlPasteValues With .Range("A18:H" & LR) .ClearContents .Interior.ColorIndex = xlNone End With End With Next sh End Sub ومرفق أيضا الملف وبه الكود اصناف2.xlsm

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

السلام عليكم تفضل المرفق به الشرح والمعادلات المطلوبة الشكاوى.xlsm

السلام عليكم أخي الكريم اولا : مبروك على التطوير لم أفهم أي تطوير ، لكن بارك الله فيك في جميع الأحوال ثانيا: الملف الثاني كمان معطوب برجاء الإرسال بصيغة xls عادي سيقبل المنتدي أو لو استطاع أحد الإخوة فتح أي من الملفين يتفضل بإعادة رفع الملف مفكوك

أخي الكريم عند تغيير أي بيان في البيانات الأصلية لايظهر ذلك في pivot table إلا بعد أن تعمل تحديث لل pivot table نفسه أسهل طريقة لعمل التحديث Refresh عن طريق الضغط علي الزر الأيمن للماوس وأنت داخل ال pivot table أنظر الصورة ومن الممكن إذا كان التغيير كثيرا وقد يحدث نسيان منك أو من المستخدم ، أقصد نسيان عمل التحديث Refresh ممكن في هذه الحالة عمل كود صغير بالورقة التي بها ال pivot table تجعل عمل التحديث Refresh يتم أوتوماتيكيا كلما فتحت تلك الورقة

السلام عليكم تفضل أخي الملف به المطلوب برنامج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 الى الشيت الاصلى الى فيه الداتا كاملة أو إرسل لي الى الشيت الاصلى (لو فيه داتا تخاف من نشرها ، إرسله علي الخاص كرسالة)