عمرو السيد

السلام عليكم

مجهود رائع وفوق الممتاز ربنا يجعله في ميزان حسناتك

ملحوظ: البرنامج بتنسيق 2003 لا يعمل جيدا

هل تنصح باستخدام 2010 والعمل به

شكرا

محمد بدر

email: tobe_aking@yahoo.com

اخى محمد بدر اشكرك على الكلمات الرقيقه واعذرنى عن عدم تواصلى معك لكثره انشغالى

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

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

الف شكر ليك على الملف 2003

شكرااااااااااااا

الشكر واجب للاستاذ احمد زمان على تحويله الملف الى 2003

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

كالموازنه و صندوق الانفاق وهامش الربح بعد المصروفات

اخى الكريم لماذ لاترفع الملف داخل مرفقات المنتدى خصوصا ان حجم الملف صغير و ذلك لكل تسهل على الاعضاء تنزيل الملف

بدلا من الذهاب و الاشتراك فى موقع الفور شيرد

حتى يتمكن الاخوه من مساعدتك فيجب ان تسهل عليهم تنزيل البرنامج

عمل رائع مليئ بالافكار

سلمت يمينك

موضوع مميز

الاستاذ الكريم عبد الله المجرب شكرا كثيرا على كلمات الرقيقه

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

من اجل اثراء الموضوع ليس اكثر حيث ان كود الفلتره المتقدمه من اشهر الاكواد بل و كثير من البرامج قائمه على عمل هذا الكود

الاخ رجب كود الفلتره مظبوط و لكن لا يعمل بشكل صحيح مع التاريخ حيث لابد من حصر الفلتره بين خانتى التاريخ داخل الكود

وشكرا للمجهود

الرقم السرى لصفحه المخزون 369 لمن يسئل و شكرا للجميع على الردود المشجعه

شكر واجب للاستاذ احمد زمان على وضعه البرنامج داخل المرفقات بالمنتدى

شكرا اخى الكريم و ارجو ان يستقيد مه الجميع

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

شكرا على حسن كلامك

شكر اخى الكريم و انت واحد من اعمده هذا النتدى

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

استاذ احمد زمان شكرا على الكلمات الرقيقه و شكرا على تحويلك البرنامج الى اكسيل 2003 حيث كان هذا طلب لعدد كبير من الاعضاء

ولكن هناك بعض المعادلات الجديده داخل البرنامج لا اعرف هل ستعمل على هذا الاصدار ام لا

اخى الكريم يمكن الان فقط اضافه فئه جديده و ان شاء الله سوف يتم التعديل فى تطوير البرنامج

ولكنك يمكنك عمل ذلك من خلال الذهاب الى صفحه ال data

ومسح البيانات الخاصه بفئه الصنف ثم كتابه اى فئه اخرى يتم عمل هذا داخل ورقه اكسيل

البقاء لله

اللهم ما ادخله فسيح جناته

وثبته عند عذاب القبر

ربما تحناج الى اعاده ضبط اعددات محرر الفيجوال بيسك عن تغيير السكريبت الى عربى او تغيير خط محرر الفيجوال بيسك الى خط يقبل العربى و الانجليزى

تحياتى

اخى عمرو
جزاك الله كل خير
كود مهم ومفيد هل اذا غيرت امتداد الملف بدل xslm الى xls
Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"
تحدث مشكلة ام لا
سعد عابد

من الاكواد الهامه

الرفع للفايده

السلام عليكم

الاخ الفاضل amroomo

ماشاء الله تبارك الله

ملف قيم مليئ بالأفكار

بارك الله فيك وزادك من فضله وعلمه

إلى مزيد من الإبداع

تقبل مروري

اخى ابو نصار اشكرك كل الشكر على مرورك وتعليقك على موضوعى

فلقد استفدت من هذا الصرح كثيرا و انت واحد من هولاء الاخوه التى استفدت منهم كثيرا

تحياتى

أخي العزيز / amroomo

عمل ممتاز ومتقن بارك الله فيك

التفارير من الافضل ان تكون بين تاريخين وليست لعدد ايام وان جمعت بين الاثنين فهو خير

الارصدة السابقة للفترة ان كان مدين فيها او دائن

السؤال المهم جدا بالنسبة لى

اين تخزن البيانات المدخلة فى العمل

وهل التقارير تستدعى البيانات من اكثر من ورقة

لماذا وضعت كلمة سر للمخزون

ناك ملاحظات اخرى ارجو ان ترد عليها لنستفيد من علمك

جزاك الله خيرا

سعد عابد

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

اولا ردا على سؤالك الاول التقارير بالفعل فى صفحه التقارير يتم استدعائها من خلال فتره بالايام انت تحددها او من خلال تاريخين اى اننى جمعت بينهم واعتقد هذا من الافضل مثلما انت ذكرت

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

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

اما السؤال التانى ان البيانات يتم تخزينها فى ورقتين داخل العمل ورقه تحتوى على الاصناف داخل الفواتير

وورقه اخرى تحتوى على حركه المستودع من خلال اسم العميل ونوع فاتوره المستودع سواء كانت مشتريات او البيع او سند او خلافه اى انها قاعده بيانات لحركه الوارد و الصادر

و بالفعل تستدعى تقارير حركه الاصناف من ورقه اما حركه و حساب العميل تستدعى من ورقه اخرى وهذا ردا على سؤالك

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

و انا لازلت فى مرحله تطوير البرنامج ولم يتسنى لى الوقت الكافى لعمل شاشه بصلاحيات مختلفه لمستخدمين اخرين

وانا فى انتظار ملاحظاتك يا اخ سعد للرد عليها

اخوك عمرو

يا ريت يا باشا تعمله على اكسل 2003 للأستفاده منه وجزاك الله خيرا لأنه فعلا من عنوانة برنامج شيق

ان شاء الله سوف احاول ولكن الوقت ضيق حيث اننى فى مرحله تطوير البرنامج و بعض الاضافات الاخرى التى سوف اطور بها هذا البرنامج

كما انه توجد بعض المعادلات الجديده التى استخدمتها وهى لا توجد فى اكسيل 2003

شكرا على مرورك اخى الفاضل

أخي العزيز / amroomo

ماشاء الله عليك عمل متقن ومتميز

هدية غالية مقبولة إن شاء الله

ربنا يبارك فيك وإلى مزيد من الإبداع

جربته على السريع على أوفيس 2007 ولحد الآن الأمور تمام إن شاء الله

لقد استفدت كثيرا من هذا المنتدى وحان الدور على لكى افيد و لو بالقليل مما تعلمته

عمل جميل جدا

يحتاج الى وقت للتجربه

بارك الله جهودك

الشكر متواصل يا اخى و انا فى انتظار تجريتك

اولا احب ان اشكر كل اعضاء و مشرفى هذا المنتدى العظيم الذى تعلمت و لازلت اتعلم منه الكثير و الكثير

و اليوم اقدم الى الجميع برنامج المخزون الشامل حيث قد طلب منى احد الاصدقاء برنامج لضبط حركه مخزون شركته

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

نبذه صغيره عن البرنامج

1-برنامج يحتوى على صفحه فواتير المبيعات و المشتريات و المرتجعات

2-و يحتوى على صفحه كشف حسب العملاء التى توضح المدفوع و المستحق خلال فترات معينه

3- صفحه التقارير وتضم

حركه الاصناف

حركه الفواتير

وتقرير شامل بالمبيعات و المشتريات خلال اى فتره انت تحددها

4- كما يمكنك ادخال اى سند سواء كان صرف او قبض من خلال فورم ادخال السندات

5- حركه المخزون و التى توضح الربح و الخساره لكل صنف على حده

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

ملاحظات

تم عمل البرنامج على اكسيل2010

وتم تجربته بنجاح على اكسيل 2010

الرقم السرى للدخول الى البرنامج هو 123

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

تم رفع البرنامج على موقع الميديا فير حيث ان حجم البرنامج 2 ميجا بايت

كما ارحب براى الاخوه و الخبراء فى البرنامج سواء كان نصيحه او نقد او معلومه جديده

كما انوه باننى جاهز لاى استفسار او تعديل لهذا البرنامج لمن يريد على حسب طبيعه عمله و على حسب وفت فراغى

و اخيرا اشكر كل اعضاء ومشرفى هذا الصرح العظيم الذى تعلمت منه

التحميل من الرابط التالى

http://www.mediafire.com/file/u34hp2c38h6slc7/برنامج المخزون الشامل.rar

برنامج المخزون الشامل.rar

بارك الله فيكم جميعا

اخى ابو نصار اشكرا على هذا الكود كود مختصر وجميل

ولكن هناك فرق فى الكودين بمعنى

الكود اللى حضرتك وضعته يعمل نسخه احتياطيه على درايف انت تحدده و لايقوم بانشاء مجلد جديد وهذا هو الفرق

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

يعنى تستطيع بهذا الكود انشاء مجلد جديد تحدد انت اسمه

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

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

وهذا لكى تعم الفائده

باختصار

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

1-الذهاب الى الدريف المحدد والذى تستطيع تغييره داخل الكود

2-انشاء فولدر جديد انت تستطيع ان تحدد اسمه من داخل الكود ولاحظ كلمه فولدر

3-يقوم بعمل نسخه احتياطيه باسم ملف الاكسيل بتاريخ و الوقت الحاليين ويضعها داخل الفولدر المنشئ فى الخطوه رقم 2

اما كود اخى ابو نصار جزاه الله خير يقوم بالخطوه رقم 1 و 3

ولا يقوم بانشاء فولدر

هذا الكود يقوم بانشاء مجلد جديدعلى اى دريف انت تحدده ويضع بداخله ملف اكسيل كنسخه احتياطيه

يمكن تعديل مسار الحفظ الى d او اى مكان انت تختاره داخل الكود

Sub copy1()

Dim Extension$

Dim savePathName As String

Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"

savePathName = "c:\Amr Inv System Backup 1\"

    On Error Resume Next

    Application.DisplayAlerts = False

    GetAttr (savePathName)

    Select Case Err.Number

    Case Is = 0

	    Application.DisplayAlerts = False

	    ThisWorkbook.SaveCopyAs savePathName & Extension

	    Application.DisplayAlerts = True

    Case Else

	    MkDir savePathName

	    ThisWorkbook.SaveCopyAs savePathName & Extension

    End Select

    On Error GoTo 0

End Sub

الف سلامه عليك يا ابو احمد وتكون بخير يارب على طول

شكرا استاذ يوسف

بس هل يوجد احد من اخوانا فى المنتدى جرب الموضوع ده

السلام عليك ورحمه الله وبركاته

فين الشرح