عبدالله المجرب

اخي سعد اترك لك اختيار اسم مميز لي ثانياً اكوادي بدائية وليست بمثل احتراف الاستاذ خبور خير ابواحمد

اخي انس دروبي تفضل المرفق بعد التعديل عليه (كنت قد اعدته للرد عليك في منتدانا الشقيق excel4us ولكن وجدت مشاركتك هنا) إيصال استلام (1).rar

تم فصل الموضوع للفائدة وهنا على الرابط ادناه موضوع مشابه http://www.officena.net/ib/index.php?showtopic=38745

السلام عليكم كبادرة شكر للاستاذ عماد على هذه الكنوز قمت بتعريب الدوال ان شاء الله تعجبكم ابواحمد تعريب الدوال المعرفة.rar

اخي الشهابي المطلوب غير مفهوم ولكن حسب ما فهمت استبدل هذا السطر من الكود If Cells(i, j).Value = Range("W2").Value Then بهذا If Cells(i, j).Value = Range("W2").Value And Cells(i, j + x).Value = "" Then ولاحظ النتيجة

الاخ الفاضل هل هذا المطلوب التأمين الصحي.rar

الاستاذ الفاضل عماد الحسامي ما رايك ان يتم تعريب الدالة اي ان تستبدل مسميات اخانات بالعربي والراي لكم

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

السلام عليكم الاستاذ الفاضل عماد الحسامي اعمال مميزة ليست بغريبة عليكم سلمت يمينك ابو احمد

اخي الفاضل ابو الحسن هذه محاولة على قدر فهم السؤال ضع هذه المعادلة في الخلية K4 ولا تسحبها (يمكنك الاستغناء عن عمود التعزيزات) =IF(B4="الاجمالى";"";IF(I4="";"";10000-I4)) وهذه في الخلية K5 ثم اسحبها لباقي الخلايا في الاسفل =IF(B5="الاجمالى";"";IF(I5="";"";IF(ISERROR(K4-I5);(K3-I4);(K4-I5)))) ان شاء الله تفي بالغرض

تم فصل المشاركة ووضعها في موضوع منفصل للفائدة

اخي الكريم جرب المرفق بعد التعديل إخفاء صفوف.rar

السلام عليكم الدالة هذه فيها اربعة شروط =IF(A1<=DATE(2004;2;15);8 وهذا يعني لو قيمة التاريخ في الخلية A1 اصغر او يساوي 15 فبراير 2004 فسيكون ناتج الخلية اذا تحقق الشرط 8 واذا لم يتحقق ينتقل للشرط الثاني IF(AND(A1>=DATE(2004;2;16);A1<=DATE(2005;4;10));9 وهو يعني بالضرورة في تحقق شرطين الشرط الاول ان قيمة الخلية A1 اكبر او تساوي تاريخ 16 فبراير 2004 والشرط الثاني هو ان الخلية اصغر او تساوي تاريخ 10 ابريل 2005 فاذا تحقق الشرطان معاً تصبح قيمة الخلية 9 او يتم الانتقال الى الشرط الثالث IF(AND(A1>=DATE(2005;4;14);A1<=DATE(2006;1;15));10 وهو بنفس فكرة الشرط الثاني بالضبط اي شرطان معاً (يتم استعمال الدالة AND لوضع شرطين او اكثر يجب تحققهم) الشرط الرابع IF(A1>DATE(2006;1;15);11 اذا كان التاريخ اكبر من 15 يناير 2006 يتم وضع قيمة الخلية 11 ان شاء الله الشرح وصل ابواحمد

شكراً استاذ يحيىاوي على هذه المعلومات القيمة

ان شاء الله هذا هو المقصود مربعات نص.rar

ان شاء الله بالتوفيق والى الامام يا اوفيسنا ابواحمد

ابو ابراهيم القلوب عند بعضها الحلين بينهما دقيقة سلمت لنا ايه الابن البار ابواحمد

اخي الفاضل هذا حل عى السريع استبدل المعادلة السابقة بهذه =IF(OR(IF(ISERROR(SEARCH("WTA";A1));"FALSE";SEARCH("WTA";A1));IF(ISERROR(SEARCH("Ratl";A1));"FALSE";SEARCH("Ratl";A1)));"P-Itaa1355812";600223) والله الموفق تم التعديل بعد التنبيه من الولد البار

الحمدلله ان كان هذا طلبك ابواحمد

اخي الفاضل بالفعل كما قال الاستاذ احمد فالدالة Or تسمح لك بالشرطين ارفق ملف ان لم تستطع تطبيق الدالة ابو احمد

اخي الفاضل ضع هذه المعادلة في الخلية B1 على فرض ان التاريخ المدخل سيكون في الخلية A1 =IF(A1<=DATE(2004;2;15);8;IF(AND(A1>=DATE(2004;2;16);A1<=DATE(2005;4;10));9;IF(AND(A1>=DATE(2005;4;14);A1<=DATE(2006;1;15));10;IF(A1>DATE(2006;1;15);11)))) والله الموفق

اخي ابو الحسن ضع هذا الكود في حدث اي ورقة تريد ان يتم تنفيذ المطلوب فيها Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("B" & Rows.Count).End(xlUp).Row If Target.Column <> 2 Then Exit Sub If Target.Row > LR Then Exit Sub For i = 2 To LR If Cells(i, 2).Value <> "" Then Cells(i, 1).Value = Date End If Next i End Sub وان شاء الله يفي بالغرض

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

اخي الشهابي جرب المرفق وضعت لك زر اسميته Add One قمت بالتعديل في بعض المعادلات بحيث ازلت +1 من البعض للتجربة اضغط الزر ولاحظ النتيجة ابواحمد القيد.rar

اللهم آمين