يحيى حسين

السلام عليكم و رحمة الله اخي جرب المعادلة التالية في الخلية B6 ثم اسحبها لليمين =LOOKUP(2,1/((Rates!$A$2:$A$13=Sheet1!$B$2)*(Rates!$B$2:$B$13=Sheet1!$B$3)*((Rates!$C$2:$C$13<=Sheet1!$A$6)*(Rates!$D$2:$D$13>=Sheet1!$A$6))),Rates!E$2:E$13) لكن أخي لاحظ ان اسماء الفندق الصفحة Rates لا تطابق اسم الفندق في الخلية b3 في الصفحة sheet1 مثلاً : الخلية b3 في الصفحة sheet1 اسم الفندق فيها Ramses hilton hotel في حين ان العامود B في الصفحة Rates يوجد بها فندق اسمه Ramses Hilton يجب ان تتطابق اسماء الفنادق حتى تعمل المعادلة بشكل صحيح دمتم في حفظ الله

اهلا و سهلا بك اخي شريف بيننا و نتمنى لك المتعة و الفائدة

السلام عليكم و رحمة الله أخي زيكو المعادلة الأولى تعمل في حالة ان الأرقام من 1001 الى 1008 متوفره في جميع النطاقات تحت الارقام الرئيسية و لكني لاحظ ان بعضها لا يكون موجود و في بعض الحالات لا يوجد الى الرقم 1008 كما هو الحال تحت الرقم 1101204101 و لذلك سنلغي المعادلة الأولى و قبل ان تضيف المعادلة الجديدة يجب ان تدرك جيدا ان الارقام التي ينتجها الـ ERP الذي تعمل عليه هي قيمة نصية و ليست ارقام كما تتوقع و هذا سبب فشل المعادلة لأنك كنت تقارن قيمة رقمية مع قيم نصية ظاهره و كأنها قيم رقمية و لتجاوز هذه المشكلة في الصفحات Area قم بتحديد العمود A ثم من تاب Data اختر TextToColumns و عندما يظهر مربع الحوار إختر Finish و عند حلي على ملفاتك ظهرت عندي مشكلة أخرى لم اجد لها حلاً و هو ان المعادلة عند وضعها في مصنف Cal تعطي خطأ و لكني عندما وضعتها كجزء من صفحة Area 1 كما سترى في المرفق أعطت النتيجة أرجو أن تتأكد من دقة النتائج و أن تعلمني بالنتيجة و المعادلة هنا معادلة صفيف =INDEX($B$2:$F$190,MATCH(L$4,$A$2:$A$190,0)+MATCH($J5,OFFSET(INDEX($A$2:$A$190,MATCH(L$4,$A$2:$A$190,0)), 0,0,MATCH(10,LEN(INDEX($A$2:$A$190,MATCH(L$4,$A$2:$A$190,0)+1):$A$190),0),1),0)-1,MATCH($K5,$B$1:$F$1,0)) فلا تنسى أن تضغط على Ctrl+Shift+Enter دمت في حفظ الله Area Sales with Cal.rar

السلام عليكم و رحمة الله أخي شريف شاهد هذا الرابط فيه شرح الدالة http://www.officena.net/ib/index.php?showtopic=28618

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

السلام عليكم و رحمة الله اخي صديق جرب Private Sub Bu1_Click() Dim LR As Long ActiveSheet.Unprotect LR = Sheets("sheet1").Range("b" & Rows.Count).End(xlUp).Row + 1 Sheets("sheet1").Range("b" & LR).Value = tx1.Value Sheets("sheet1").Range("b" & LR).Locked = True ActiveSheet.Protect Unload Me End Sub

السلام عليكم و رحمة الله و بركاته جرب هذا الكود اخي Private Sub Bu1_Click() Dim LR As Long LR = Sheets("sheet1").Range("b" & Rows.Count).End(xlUp).Row + 1 Sheets("sheet1").Range("b" & LR).Value = tx1.Value Unload Me End Sub

السلام عليكم و رحمة الله اخي زنون على فرض ان الرقم 60 في الخلية A4 في الخلية B4 : =TRUNC(A4/7)

السلام عليكم و رحمة الله أخي لا يمكنك عمل ذلك و لا يوجد اي طريقة برمجية تمكنك من عمل ذلك و لكن في الإكسيل 2007 و 2010 توجد ميزة اسمها Table عند تفعليها على اي جدول لديك و النزول للقرآة الداتا يتم تغيير الأحرف A,B,C و يقرأ الإكسيل رؤؤوس الأعمدة في جدولك

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

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

السلام عليكم و رحمة الله أخي زيكو جرب هذه المعادلة =INDEX('Area 1'!$B$2:$F$190,MATCH(Calc!D$6,'Area 1'!$A$2:$A$190,0)+CHOOSE(MATCH(Calc!$B7,{1001;1002;1003;1004;1005;1006;1007;1008},0),1,2,3,4,5,6,7,8),MATCH(Calc!$C7,'Area 1'!$B$1:$F$1,0)) و لكن اخي قم بإلغاء دمج الخلايا في صفحة Cal في المدى من B7:B16 أتمنى ان تفي بطلبك ان شاء الله دمتم في حفظ الله

السلام عليكم و رحمة الله الدالة VLOOK2All هي من الدوال المعرفة بواسطة المستخدم ما يعرف UDF و هي من إبداعات الأخ و الحبيب الغائب الحاضر في قلوبنا أبو تامر شاهدها على هذا الرابط http://www.officena....showtopic=21575 دمت في حفظ الله

السلام عليكم و رحمة الله أخي خالد إضافة لحلول الأخوة يمكننا عمل ذلك بمعادلات الصفيف ضع المعادلة التالية في الخلية C20 =IF(COUNTIF($B$3:$B$14,"Khaled")>=ROW(1:1),INDEX($C$3:$C$14,SMALL(IF($B$3:$B$14="Khaled",ROW($B$3:$B$14)-ROW($B$3)+1),ROW(1:1))),"") و لا تنسى أن تضغط Ctrl+Shift+Enter دمتم في حفظ الله

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

السلام عليكم و رحمة الله أخي صديق شاهد هذا الرابط http://www.4shared.com/file/ni2VIe8h/____.html فيه برنامج قمت بتعمله قبل سنوات أتمنى ان يلبي طلبك

السلام عليكم و رحمة الله هذه دالة اخرى لن تتأثر بعدد مقاطع الإسم =LEFT(A1,LEN(TRIM(A1))-LEN(TRIM(RIGHT(SUBSTITUTE(TRIM(A1)," ",REPT(" ",LEN(A1))),LEN(A1)))))

السلام عليكم و رحمة الله هذه نتيجة طبيعية لإنك تعتمد فقط على الرصيد السابق و قيمة الدفعه لإحتساب المجمد و هنا الدفعة اكبر من الرصيد السابق فستظهر بالسالب و لتجنب ذلك يجب إضافة رصيد المبيعات لها و لكنها في هذه الحالة سيكون مطابق لرصيد النهاية او تعديل المعادلة السابقة بحيث تتجنب اظهار القيم السالبه ان وجدت و إستبداها بصفر كما هو الحال في هذه المعادلة =MAX(0,IF(D9<0,IF(E9<=C9,C9-E9-ABS(D9),""),C9-E9))

السلام عليكم و رحمة الله أخي فراس لو فرضنا الاسم موجود لديك في الخلية A1 ضع المعادلة التالية في الخلية B1 =LEFT(A1,LEN(A1)-LEN(MID(A1,FIND(" ",SUBSTITUTE(SUBSTITUTE(A1," ","^",1)," ","^",1)),255))) و لكن هذه المعادلة يجب ان يكون الاسم من اربع مقاطع في الخلية الاصلية حتى تعمل المعادلة بشكل صحيح

السلام عليكم و رحمة الله أخي محجوب ضع المعادلة التالية في B7 =IF(COUNTIF(Payments!$A$2:$A$5,Report!$E$4)>=ROW(1:1),INDEX(Payments!D$2:D$5,SMALL(IF(Payments!$A$2:$A$5=Report!$E$4,ROW(Payments!$A$2:$A$5)-ROW(Payments!$A$2)+1),ROW(1:1))),"") و لاتنسى أن تضغط Ctrl+Shift+Enter ثم إسحبها للأسفل و ثم يمين حتى تعطي كامل النتائج دمت في حفظ الله

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

السلام عليكم و رحمة الله و بركاته اخي الدالة لم تعمل معك لأن طبيعتها تقرأ من اليمين للي اليسار و ليس العكس و لكن يوجد حل بإستخدام المعادلة التالية جربه في الخلية H2 =VLOOKUP(I2,IF({1,0},$B$2:$B$23,$A$2:$A$23),2,0) أو استخدام المعادلة التالية =INDEX($A$2:$A$23,MATCH(I2,$B$2:$B$23,0)) و لعمل تسلسل في الخلية L8 ضع المعادلة التالية =IF(M8="","",L7+1) دمت في حفظ الله

السلام عليكم و رحمة الله اخي الرصيد 1512 و مبيعات 165 تم تسديد 1500 على اي اساس سيصبح الرصيد صفر اين المنطق في الخطوة هنا ليصح صفر الرصيد الحالي سيكون بطبيعة الحال =1512+165-1500 = 177

السلام عليكم و رحمة الله أخي جرب هذه المعادلة في الخلية F9 =IF(D9<0,IF(E9<=C9,C9-E9-ABS(D9),""),C9-E9)

السلام عليكم و رحمة الله جرب هذا الكود Sub RecoverCode() Application.AutoRecover.Enabled = False End Sub