سالي

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

الاخ الفاضل استاذ ابو تميم اجد في مداخلتك القيمة تطابق رؤيا في بيان اهمية وتمكن المنتدي واعضائه ولم يخطر ببالي ان تكون معني كلماتي هجوما علي احد لا والله الكريم لقد استفدت كثيرا من المنتدي ومواضيعه واجزم بانه جامعة ومتخصصة ايضا وقد نقلت ما احسست به كعضوة جديدة او دعني اقول طالبة علم بين اساتذة عظام وما يخص الشروط التي يجب اتباعها في الاستفسار فاسمح لي ان انقل لكم رابط استفساري http://www.officena.net/ib/index.php?showtopic=44050 وستجد اني لم اخالفها واجزم بان طلبي ابسط من البسيط قياسا بما يعرض بالمنتدي شاكرة لك اخي الفاضل مداخلتك الكريمة وغيرتك علي المنتدي الراقي فهنيئا للمنتدي عضوا مثلك يخاف عليه ونحن ايضا لا نقل عنك غيرة عليه الله يبارك فيك امين

الأساتذة الأفاضل اداريين ومراقبين ومشرفين وأعضاء هذا الصرح التعليمي المتخصص الأوحد بالمنتديات العربية اهديكم جميعا أطيب التحايا والأمنيات متمنية من الله دوام التوفيق لكم وللمنتدي اخواني قد تتفقون معي أو تختلفون بشأن ان ما يحتاجه العضو من معلومة أو جواب لاستفسار هو من أهم الأمور له ويتصور ان الأجابة ستكون فورية وله الحق في ذلك علي الأقل لطبيعة هذا المنتدي وتمكن أعضائه وتخصصهم. والشق الأخر ان الحياة بطبيعتها وتعقيداتها وأيضا ربما تعقيد أو صعوبة الأستفسار أو ربما وأنا اسفة للفظ " هيافة الأستفسار " من وجهة نظر المتمكنيين قد تجعل من في قدرته الرد يتأخر به لكن اخواني اعتقد بأن للمنتدي حق عليكم كما لنا كمستفسرين حق علي المنتدي لذا أتمني الاهتمام بطلباتنا بوصفنا علي اولي درجات التعلم والفهم كما وان زكاة العلم افشاؤه لذلك اقترح عليكم ان يكون هناك مجموعة مختارة من ذوي العلم تكون مهمتها متابعة الاستفسارات والرد عليها خصوصا وان الاستفسارات غالبا ما تكون عن برامج واكواد قام بها عباقرة المنتدي الأجلاء (والرد عليها لن يأخذ الوقت الكثيرقياسا بما رأيته من الردود المتنوعة والرائعة لكن غالبا للأعضاء القدامي ) بشأن مشكلة في تطبيق مايكرو مثلا كما حصل معي حيث حاولت ان ادمج اكثر من برنامج للخروج ببرنامج كامل من وجهة نظري التطبيقية لاسلوب عمل المكان الذي اعمل به بدمج برنامج الفاتورة وبرنامج المخازن والعملاء والموردين واخر لبطاقة الصنف وهي من هذا المنتدي الراقي رجاء من أخت تري ان انه لايوجد من تمكن وتخصص في علمة بغير هذا المنتدي الله يبارك فيكم ويجعل جهودكم ومساعدتكم في ميزان حسناتكم اللهم امين

الحمد لله قدرت ارفع الملف شكري لكم لمساعدتي سلفا مخازن.rar

حقيقي متشكرة جدا اخي ابو حنين لسرعة الاستجابة والله لاكتر من ساعة احاول ارفع الشيت وضغطته لكن النت السبب احتمال ما اكون قدرت اعبر عن المشكلة ووفق مثال حضرتك انا عايزة الجدول نعتبرة فاتورة والورقة اللي بتتنقل فيها البيانات صفحة المبيعات وكده معناه استمرار انتقال الفواتير من الورقة الاولي الي الثانية ولاحظ حضرتك ان كل فاتورة تختلف في عدد الاصناف فيها نقل البيانات بالنسبة لجدول حضرتك كان من الصف 8 الي 17 دي نعتبرها الفاتورة الاولي الفاتورة الثانية المفروض تكون من الصف 18 وبمقدار اصنافها 1 او 2 او 3 اصناف الثالثة بعدها من اول صف فارغ وهكذا الله يبارك بك ويحفظك لحنين ويحفظها لك اخي الفاضل

هذا هو المايكرو الذي استخدمته Sheets("فاتورة المبيعات").Range("w2:aq11").Copy Sheets("المبيعات").Select ActiveSheet.Unprotect ER = Sheets("المبيعات").Range("a2304").End(xlUp).Row + 1 Sheets("المبيعات").Range("a" & ER).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False Sheets("فاتورة المبيعات").Range("w13:ad13").Copy Sheets("حركة العملاء").Select ActiveSheet.Unprotect ER = Sheets("حركة العملاء").Range("c2304").End(xlUp).Row + 1 Sheets("حركة العملاء").Range("c" & ER).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False Sheets("فاتورة المبيعات").Select

اخواني الافاضل بدأ اشكركم كثيرا ولا ابالغ وذكرتها سابقا هنا ليس منتدي بل جامعة الله يوفقكم جميعا مرفق مشروع برنامج مبيعات ومشتريات وموردين وعملاء وحقيقي تعبت به كثيرا بالرغم من اني لا ادعي لنفسي عائدية البرنامج لي بل هي عملية تطوير ودمج لمجموعة برامج ومن هنا . من هذا المنتدي او الجامعة الراقية وقد اكملته تقريبا بالشكل التالي اقوم بنسج بيانات فتورة المبيعات الي اعلي صفة المبيعات واقوم بعمل ميكرو بالنسخ واللصق بالصفحة ثم فلترة الا ان عثرت علي المايكرو الموجود حاليا بالبرنامج وهو صغير وسريع حيث ينقل البيانات الي اول صف خالي والمشكلة انه ينقل حجم الفاتورة كاملة 10 صفوف فاذا كان بالفاتورة صنف واحد يرحله ويبدا بالفاتورة الاخري بالصف رقم 11 وبذلك تكون الصفوف من 2 الي10 فارغة والمطلوب ان يكون الترحيل بميكرو من الفاتورة الي صفحة المبيعات مثلا متسلسل فيها بدون صفوف خالية كما حاصل الان والتاكد من الميكرو حيث يعمل في نقل بيانات المبيعات لكن لا ينقل بيانات العميل في حالة البيع الاجل تحياتي لكم واملي بالاهتمام ولو قليلا اسفة حاولت رفع شيت البرنامج لكن لم يحالفني الحظ والمطلوب هو نقل بيانات مثلا من c9 الي i9 الموجودة بالورقة 1 الي الورقة 2 الي اول خلية فارغة a8 الي g8 ثم نقل المدي c9 لغاية L18 من الورقة 1 الي a10 لفاية k19 الي اول خلية فارغة بالورقة 3 مع ملاحظة ان البيانات ممكن تكون في 3 صفوف او 5 او 10 وفي الثلاث حالات السابقة تكون البيانات في اول خانة فارغة

اسفة تم حذف البرنامج حتي اربط معه الموردين والمخزن ( بطاقات الصنف )

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

الاخوة الافاضل اعضاء ومشرفين واخص الاخوة عبد الله المجرب و طارق محمود وابو انس وابو حنين لا ادعي لنفسي اني صاحبة هذا الجهد وحدي لكن تم تحميل الاصل وهو ثلاثة برامج من مشاركات اخوة افاضل وتم تحويرهم واضافة مايكرو ليعطوني نتائج مفصلة وكاملة ناتي لتوضيح كيفية العمل 1 ادخال معلومات اساسية كاسم الشركة وعنوانها وسعر الدولار بالنسبة للعملة المحلية. بورقة معلومات بشيت البرنامج 2 ادخال اسماء الاصناف بصفحة المخزن بشيت البرنامج مع بضاعة اول المدة. 3 ادخال اسماء العملاء والموردين ورصيدهم الافتتاحي. 4 فتح شيت العملاء ايضا ثم البدا بادخال بيانات الشراء والبيع وتسديد العملاء والموردين. حساب العملاء بشيت البرنامج اجمالي وحسابهم بشيت العملاء تفصيلي. اذا تجاوز تاريح السداد 27 يوم يظهر امام الاسم لون اصفر واذا تجاوز شهر يتحول للون احمر مع ملاحظة هي " استتحق التسديد " بلون احمر لسهولة المتابعة. فاتورة المبيعات يتم كتابة كود الصنف وسعره محلي او دولار وسيظهر سعر الكلفة وربح البيع وللتاكد من الاكواد تم عمل قائمة بحث كذلك الاختيار من القائمة المنسدلة الخاصة بالعملاء حيث يتم اختيار اسم العميل منها وهو من سترحل له البيانات مع كتابة اسم مستلم البضاعة ايضا هناك حالة تحصل بالبيع وهي ان يدفع المشتري جزء من السعر لحين ايصال البضاعة له فيقوم بدفع الباقي وقد اطلقت علي الحالة الاستمهال حيث انه بيع نقدي مؤجل وليس اجل فاذا كان البيع نقدي وتم دفع جزء من المبلغ يتعامل البرنامج مع الحالة استمهال ويرحل المتبقي لصفحة الاستمهال لكن يتعامل مع البيع المستمهل انه نقدي ويتم الترحيل علي ان يتم الانتباه للملاحظة اسفل فاتورة البيع اذا كان البيع بالاجل تظهر مبالغ الديون السابقة بالفاتورة بعد اكمال ادخال بيانات الفواتير يتم الضغط علي ترحيل لترحل البيانات واذا اردنا الاحتفاظ بنسخة من الفاتورة نضغط علي طبع واذا اردنا اضافة لذلك طبع الفاتورة لتسليمها الي العميل يتم التاشير علي المربع الصغير المودود في طباعة ثم الضغط علي مسح لمسح بيانات الفاتورة وليتغير رقمها للرقم الذي يليه والذي من الممكن كتابته يدويا اما فاتورة المشتريات في اسفلها يتم ادخال مصروفات النقل والشحن والتفريغ وغيرها ليتم اضافتها علي سعر الشراء وتصبح سعر الكلفة للصنف تسديد مبلغ الموردين وقبض العملاء يتم اختيار الاسم من القائمة المنسدلة بخانة الاسم ملاحظة : حساب العملاء بشيت البرنامج اجمالي وفي شيت العملاء بالتفصيل وهم 17 عميل وجاري ربط شيت للمخزن والموردين تفاصيل ارجو من الاخوة دراسته وتقيمة واذا كانت هناك ملاحظات حتي اتمه ان شاء الله وهناك ملاحظة ان تسعير البضاعة بطريقة المتوسط المرجح البرنامج يكون للاستخدام الشهري ايضا عند ادخال بيانات يصبح ثقيل في الاغلاق وياخذ وقت متمنية لكم كل الوفيق وشاكرة لكم ملاحظاتكم سلفا التحميل

اخواني الافاضل ياريت لو امكن تطبيق طريقة الربط او اي طريقة اخري بين متحصلات العملاء والعملاء وايضا مدفوعات الموردين والموردين الله يبارك فيكم وفي علمكم

اخواني الافاضل سجلت في هذا المنتدي المتخصص وللاسف لاكثر من اسبوع وانا انتظر تفعيل العضوية والحمد لله تم ذلك الان حيث عثرت علي هذا البرنامج وحاولت التعديل عليه ليكون ملائم للعمل الفعلي واكيد الحل موجود في المنتدي لما يتمتع فيع اعضائه من تمكن علمي راقي وقد نجحت في بعضها ( الاستغناء عن ورقة المشتريات بجعل المشتريات والمبيعات في ورقة واحدة لضمان تسلسل العمليات في بطاقة الصنف واجراء العمليات الحسابية عليها للوضول للتسعير وفق المتوسط المرجح واستخراج نتيجة عمليات البيع ربحا او خسارة ) علما بان بطاقة الصنف الاولي رقم 101 مربوطة صحيح مع ورقة المبيعات وعندما حاولت تطبيق نفس الطريفة لبطاقات الصنف 102 و103 و 104 لم يحالفني الحظ مما يعني اني اخطأت في التطبيق وهو ما اتمني منكم الاطلاع عليه وتعديله اذا امكن ذلك . وطمعا في سعة صدركم عمل ربط بين خلية الربح ببطاقة الصنف وخلية الربح بورقة المبيعات للصنف نقسة وقد اوضحت المطلوب في ورقة المبيعات بالخلية T1 وT2 وaw2 حاولت رفع الشيت عن طريق المنتدي لكن لا ادري نجت ام لا لذلك رفعته هنا ايضا شاكرة لكم سلفا تعونكم ووفقنا الله واياكم لما يحبه ويرضاه المبيعات.rar