صـدّيـق

....لان النتيجة الحقيقية للمعادلة في العمود c هكذا 7143,76119402985 116,238805970149 وانت كاتبها خارجه 7143,76 116,24 انسخ c5 من الجدول والسقها خارجه على شكل قيمة وسوف ترى الفرق

تفضل المطلوب ان شاء الله في الملف المرفق conditional formatting.rar

سؤالك محاسبي ،لو وضعت طريقة الحساب اكيد ستجد من يترجمها الى معادلة اكسل وكنت سهلت الامر

تفضل لعله يكون المطلوب FOURNISSEURS 2017_test.rar

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

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

تـفضل اخي حساب الخلايا.rar

وعليكم السلام أولا شكرا على الاطراء و لكنني لست استاذ ولا شيئ أنا مجرد مبتدا أريد التعلم بما يخص الفلترة المتقدمة تكلون عن طريق تسجيل الماكرو قم بالتسجيل وافعل كما كنت تفعل من قبل ، بالذهاب الى خانة الفصل وفلتر من هناك ثم اوقف تسجيل الماكرو، تجد شكل التسجل هكذا Sub Macro1() ' ' Macro1 Macro ' ' "ActiveSheet.Range("$Q$8:$Q$2008").AutoFilter Field:=1, Criteria1:="1l1 End Sub انقر نقرتين على الكمبو بوكس ليأخذك الى الصفحة والصق هذا الكود ، و بإضاقة بعض التقديلات يصبح هكذا ()Private Sub ComboBox1_Change On Error Resume Next lr = Range("q" & Rows.Count).End(xlUp).Row "*"& ActiveSheet.Range("$Q$7:$Q$" & lr).AutoFilter Field:=1, Criteria1:="=" & ActiveSheet.ComboBox1.Text End Sub وان لم استطع توصيل لك الفكرة اذهب الى اليوتوب ستجد شروحات كثيرة فيما يخص هذا الموضوع

السلام عليكم هذه الطريقة عن طريق الفلترة المتقدمة تفضل ‏‏اعمال السنة 2018.rar

ماهي طريقة تعميم هذا الكود على جمعيع الصفحات ؟؟؟؟ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Columns.Count = Columns.Count Then Application.EnableEvents = False MsgBox "Non, non, suppréssion ligne annulée" Application.Undo Application.EnableEvents = True End If End Sub

السلام عليكم ارجو مساعدتي في كود vlookup سأرفق الملف لفهم المشكلة وشكرا مسبقا vlp.zip

شكرا استاذ سليم حصبيا ، استفدت من الحل الذي وضعته

هذه محاولة من عندي ارجو ان تساعدك TRY.rar

السلام عليكم عندي مشكلة ، عند نقل ملف اكسل الى جهاز اخر تتغير ابعاد الجداول (decalage) مع العلم اني اشتغل على افيس 2016 و الجهاز المرسل اليه ايضا اوفيس 2016 فكيف ابقي على نفس الابعاد التي اشتغل بها في جهازي؟ ارجو ان تفيدونني و شكرا مسبقا

شكرا لكم على هذا الكود الرائع لكن عندي سؤال ماهي طريقة تطبيقه على جميع الصفحات؟