أحمد يوسف

اهلا بك في المنتدى بالتأكيد هذا كلام غير مضبوط فليس هناك اى غنى عن الإكسيل فالإكسيل من اهم البرامج التي تستطيع تطويعها في شتى المجالات وهذا ما يقصده هذا النظام نظام ال ERP) Enterprise Resource planning) أو تخطيط موارد الشركة هو مجموعة من الأنظمة تعمل سوية لأتمتة العمليات الخاصة بالشركة أو المؤسسة وربطها بشكل موحد ومتكامل , فمهما كانت طبيعة العمل (خيري , تجاري …إلخ) يمكن تطبيقه , كما ويغنيها عن استعمال أنظمة وبرمجيات مختلفة من عدة شركات. ويتطلب تطبيقه إلى إعادة هندسة العمليات الخاصة بالمؤسسة أو ما يسمى ب (Business Processing Engineering (BPE فيتم تغير آلية العمل بما يوافق النظام الجديد , ونظرا لدرجة تعقيد النظام فإنه يحتاج إلى وقت كافي لتطبيقه والحصول على فوائده , كما وأن تطويره يحتاج دمج كامل بين الإدارة والتقنية فلا يمكن تطويره بالإعتماد على التقنيين وإنما يتطلب فهم عميق للجانب الإداري وطبيعة العمل أهمية ال ERP – تقليل التكلفة والوقت اللازم في العمليات – سرعة إكتشاف الأخطاء وإصلاحها – سهولة تغيير آلية العمل للشركة وتوسعها بسرعه وتحويرها لدخول أسواق جديده – أخذ قرارات أكثر حكمة بالإعتماد على الأرقام والحسابات – زيادة كفاءة الخدمات والسمعة أشهر الأنظمة الرئيسية < تكون أن يمكن التي الأنظمة أشهر نذكر وهنا ERP ال لتمثل جميعا ربطها يتم ولكن مستقل بشكل يعمل نظام كل من مجموعة> – إدارة الموارد البشرية (Human Resource Management(HRM: نظام لتطوير التخطيط لإحتياجات العمل من الوظائف وكل ما يخص ذلك من تفاصيل , وتطبيق كل القوانين والعمليات الخاصة بالموظفين , كذلك تطوير الكادر – إدارة الحسابات المالية : ويتضمن جميع العمليات المحاسبية من القيود المحاسبية , حسابات الموردين , الشيكات , حسابات العملاء .. إلخ – إدارة سلسلة الإمدادات (Supply Chain Management (SCM : وهو نظام لدعم وإدارة الربط بين الموردين والعملاء وشركاء العمل , ليمثل سلسلة من العمليات المترابطه من قبل التوريد إلى نهاية وصول المنتجات إلى العملاء. – إدارة العلاقات مع العملاء (Customer RelationShip Management(CRM: وهو نظام يدير العلاقات مع العملاء وقد تحدثت عنه مسبقا بشكل تفصيلي في موضوع “لمن يؤمن بإرضاء العملاء كأفضل وسيلة للربح … نظام ال CRM” – إدارة المبيعات وطلبات المخازن : جميع عمليات المخازن من توريد وتصدير وحركات داخلية بين المخازن وهناك أنظمة كثيرة يمكن أن تنتمي للمجموعة مثل التصنيع (manufacturing) , و تخطيط الإنتاج والكثير من الأنظمة المختلفة نصيحة نظام ال ERP نظام يعتمد بشكل رئيسي على طبيعة عمل المؤسسة لذلك ينصح بتطويره بشكل خاص للمؤسسة وعدم الإعتماد على المصادر المفتوحة العامة إلا بتخصصيها كما وفي ذات الوقت يحتاج تطوير ال ERP إلى الصبر وذلك لما يتطلبه من جهد تقني وإداري في تغيير العمليات وآلية العمل الموجودة وحقيقة تطبيق ال ERP داخل الشركات الناشئة أسهل من تطبيقه في شركة تعقدت عملياتها , ولكن هل الشركة التي تعقدت عملياتها وأصبحت كبيرة ليس لها فرصة ! هناك العديد من الشركات الضخمة التي استطاعت تحويل كل عملياتها ومجاراة الواقع مثل IBM وهنا يمكن أن نضيف شيئا قد يساعد هذه الشركات 1- عدم التحويل المفاجيء وإعتماد سياسة متوازية من تحويل بعض الأجزاء شيئا فشيئا لأنظمة وربطها لاحقا لتعمل كنظام ERP متكامل 2- تحفيز الموظفين من خلال المكافآت لمن يتعامل مع الأنظمة الحديثة 3- عمل برامج صغيرة لقياس مدى فاعلية تطبيقها 4- الإستعانة بالخبراء والمستشارين 5- إحضار متدربين محترفين لتدريب الكادر أسباب قد تؤدي إلى فشل الERP 1- عدم تقدير تعقيد النظام , معرفة المتطلبات بشكل جيد 2- عدم دخول الموظفين بشكل حقيقي بالنظام 3- الإعتماد على شركات البرمجة والمستشارين بشكل كلي 4- تحميل البرنامج فوق المحتمل وتوقع النتائج سريعا 5- عدم الإستعانة بالمستشارين وأصحاب الخبرة

اهلا بك في المنتدى لا تنتظر المساعدة من احد بدون رفع ملف وشرح المطلوب عليه بكل دقة وإعطاء النتائج المتوقعة

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

ما تطلبه ليس هيناً ولكنه من الصعب عمله

كيف تتم المساعدة والصورة مختلفة عما هو موجود بالملف ؟!!!!!!!!!!!!

كل ما تريدينه من الصعب عمله وليس بالسهل

وعليكم السلام لا يمكن عمل مثل هذا

تفضل المبيعات والمشتريات.xlsx

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

وعليكم السلام-اهلا بك اخى الكريم في المنتدى لابد من رفع ملف مدعوم بشرح كافى عن المطلوب فلا تنتظر المساعدة من أحد بدون الملف

لماذا التعسير ؟!!!! يسر اخى وائل على نفسك-فيمكنك استخدام معادلات عادية لهذا مثل vlookup أو Index مع Match

وعليكم السلام الأعراض لم يتم فتح عند محاولة فتح أحد المصنفات التي تتلقاها في رسالة بريد إلكتروني للمراجعة في Microsoft Office Excel 2007، المصنف. بالإضافة إلى ذلك، تتلقى رسالة الخطأ التالية: يتعذر على Excel فتح الملف 'اسم الملف.xlsx' لأن تنسيق الملف لملحق اسم الملف غير صالح. تحقق من أن الملف غير تالف ومن أن ملحق الملف يطابق تنسيق الملف. لتحديد الرقم الفريد المقترن بالرسالة التي تظهر، اضغط على CTRL + SHIFT + I. يظهر الرقم التالي في الركن الأيسر السفلي من هذه الرسالة: 101590 السبب تحدث هذه المشكلة فقط عند إرسال مصنف للمراجعة. يتم حفظ ملف المصنف كمصنف ثنائي Excel. ومع ذلك، يحتوي المصنف امتداد.xlsx إلحاق بالملف. الحل البديل للتغلب على هذه المشكلة، عليك حفظ المصنف كأحد تنسيقات الملفات التالية قبل إرسال المصنف للمراجعة: Excel (*.xlsb) مصنف ثنائي مصنف Excel 97-2003 (*.xls او عليك برفع هذا الملف وستحاول الأساتذة ان شاء الله فتحه

كيف يتم العمل على ملف خالى تماما من البيانات ولا يوجد به شرح دقيق للمطلوب ؟!!!!!!!!!!!!!!!!!!!!!!!!!! لابد من وضع بيانات لتجربة المعادلة عليها

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

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

أعتذر لك استاذى الكريم عن المساعدة ,فالملف غامض جدا بالنسبة لى ولم أفهم منه اى شيء فلماذا هناك مثلاً عمودان لأكواد مختلفة لصنف واحد في صفحة المخزن ؟!!!!!! كما انه كيف تريد جمع المبيعات وخصمها من المشتريات على الرغم انك لم تضع في الملف أكواد وأسماء الأصناف للمشتريات ؟!!!!

بارك الله فيك

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

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

أخى الكريم albrkani اذا كان المطلوب تم كما تريد على اكمل حال فلابد من التعبير عن هذا بالضغط على الإعجاب لصاحب هذا الفضل فى حل هذه المشكلة كما عليك بالضغط على علامة أفضل اجابة

وعليكم السلام-اهلا بك في المنتدى تجنبا لعدم اهدار الوقت والعمل على حل مشكلتك, لابد من رفع الملف وشرح المطلوب عليه بكل دقة

لا تنتظر المساعدة من أحد بدون رفع الملف فبدون الملف لا تكتمل المشاركة دائما

هذا هو الكود المستخدم كما اخبرك الأستاذ سليم -الأمر في غاية البساطة فيمكنك تتبع هذا الكود وفهمه Option Explicit Sub Save_for_Me() Dim answer As Byte Dim M As Worksheet: Set M = Sheets("Main") Dim F As Worksheet: Set F = Sheets("For_Save") Dim lrF%: lrF = F.Cells(Rows.Count, 1).End(3).Row + 1 Dim fnd As Range Set fnd = F.Columns("A").Find(M.Cells(2, 1), lookat:=1) If Not fnd Is Nothing Then answer = MsgBox("هذه المعلومة موجودة" & Chr(10) & _ " هل تريد المتابعة", 36, "Attention") If answer = 6 Then F.Cells(lrF, 1) = M.Cells(2, 1) F.Cells(lrF, 2) = Date F.Cells(lrF, 3) = Time Exit Sub End If Else F.Cells(lrF, 1) = M.Cells(2, 1) F.Cells(lrF, 2) = Date F.Cells(lrF, 3) = Time End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim F As Worksheet: Set F = Sheets("For_Save") Dim lrF%: lrF = F.Cells(Rows.Count, 1).End(3).Row If Target.Address = "$A$2" Then Save_for_Me lrF = F.Cells(Rows.Count, 1).End(3).Row If lrF = 1 Then GoTo End_Me Sheets("Main").Cells(2, "G").Resize(, 3).Value = _ F.Cells(lrF, 1).Resize(, 3).Value End If End_Me: Application.EnableEvents = True End Sub Sub Undo_for_me() Dim F As Worksheet: Set F = Sheets("For_Save") Application.EnableEvents = False Dim lrF%: lrF = F.Cells(Rows.Count, 1).End(3).Row If lrF = 1 Then GoTo End_Me F.Cells(lrF, 1).Resize(, 3).ClearContents lrF = F.Cells(Rows.Count, 1).End(3).Row Sheets("Main").Cells(2, "G").Resize(, 3).Value = F.Cells(lrF, 1).Resize(, 3).Value End_Me: Application.EnableEvents = True End Sub Sub Clear_all() Application.EnableEvents = False Dim F As Worksheet: Set F = Sheets("For_Save") Dim lrF%: lrF = F.Cells(Rows.Count, 1).End(3).Row Dim answer As Byte answer = MsgBox("أنت تقوم بمسح كل البيانات في الصفحة For _save " & Chr(10) & _ " هل انت متأكد من هذا", 1048628, "Attention") If answer <> 6 Then GoTo End_Me If lrF = 1 Then lrF = 2 F.Cells(2, 1).Resize(lrF - 1, 3).ClearContents Me.Cells(2, "G").Resize(, 3).ClearContents End_Me: Application.EnableEvents = True End Sub

وعليكم السلام-اهلا بك في المنتدى test.xlsx

أعتقد ان لديك مشكلة في الإكسيل وتحتاج تنزيل نسخة جديدة لأن الملف يعمل معى بكل كفاءة