نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب ووافني بالنتيجة :: تحياتي Waz-Fram12.rar

اولا احب ان اشكر كل اعضاء و مشرفى هذا المنتدى العظيم الذى تعلمت و لازلت اتعلم منه الكثير و الكثير و اليوم اقدم الى الجميع برنامج المخزون الشامل حيث قد طلب منى احد الاصدقاء برنامج لضبط حركه مخزون شركته وهى شركه مستحضرات تجميل فقد قمت بعمل هذا البرنامج الذى يصلح لكل انواع المخزون مع بعض التعديلات البسيطه نبذه صغيره عن البرنامج 1-برنامج يحتوى على صفحه فواتير المبيعات و المشتريات و المرتجعات 2-و يحتوى على صفحه كشف حسب العملاء التى توضح المدفوع و المستحق خلال فترات معينه 3- صفحه التقارير وتضم حركه الاصناف حركه الفواتير وتقرير شامل بالمبيعات و المشتريات خلال اى فتره انت تحددها 4- كما يمكنك ادخال اى سند سواء كان صرف او قبض من خلال فورم ادخال السندات 5- حركه المخزون و التى توضح الربح و الخساره لكل صنف على حده و المزيد و المزيد من المزايا الاخرى التى سوف تكتشفها بنفسك ملاحظات تم عمل البرنامج على اكسيل2010 وتم تجربته بنجاح على اكسيل 2010 الرقم السرى للدخول الى البرنامج هو 123 وانصح جميع الاخوه الذين يجربون البرنامج ان يتم تجريبه على نفس الاصدار تجنبا لحدوث اى مشاكل تم رفع البرنامج على موقع الميديا فير حيث ان حجم البرنامج 2 ميجا بايت كما ارحب براى الاخوه و الخبراء فى البرنامج سواء كان نصيحه او نقد او معلومه جديده كما انوه باننى جاهز لاى استفسار او تعديل لهذا البرنامج لمن يريد على حسب طبيعه عمله و على حسب وفت فراغى و اخيرا اشكر كل اعضاء ومشرفى هذا الصرح العظيم الذى تعلمت منه التحميل من الرابط التالى http://www.mediafire.com/file/u34hp2c38h6slc7/برنامج المخزون الشامل.rar برنامج المخزون الشامل.rar

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

كل عام و انتم بخير ايام مباركه و عيد فطر سعيد على الجميع لا تنسونا من صالح الدعاء مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_ العاب الاكسيل الترفيهى مجموعة ألعاب 1.zip

بعد اذن اخب ابو عبد الباري نفس الحل لكن بواسطة الكود (Private Sub Worksheet_Change(ByVal Target As Range) Weekly_Programm salim.rar

اثراءاً للموضوع جرب المرفق التالى abo_abary_جمع بشرط.rar

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

جربت الكود عندي واشتغل 100% لا تستخدمه في حدث On load جرب المرفق ولاحظ الصور فيه :: تحياتي waz-Fram12 (2).rar

جرب هذا الملف Aziz1 salim.rar

جرب هذا النموذج cond_dif.rar

الأخ الكريمعامر ياسر جرب المرفق التالى لعلة يفى بالغرض abo_abary_كود يحدد عدد حصص كل مادة خلال فترة اسبوع.rar

الحمد لله الذى وفقنا لهذا العمل حل مشكلة الفراغات الزائده مع الارقام المحوله من قواعد البيانات وعدم امكانية اجراء عمليات حسابية عليها بسهوله ان شاء الله نقدم اليكم هذا الحل ازالة الفراغات من الارقام.rar

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

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

تم معالحة الخطأ و كل شيء تمام التمام و ذلك باضافة سطرين الى الكود( انظر الى الكود من جديد) If r1 = 65536 Then r1 = r If r1 - r = 2 Then r1 = r + 1 لو اردت استعمال الكود على 2010 استبدل الرقم 65536 بالرقم 1048576 Fatoura-Final-1 2003.rar

الاخ محمد شاهد المرفق Omar_1.rar

أخي الكريم حسين جرب الكود التالي عله يكون المطلوب إن شاء الله Sub Test() Dim Cel As Range If Not Intersect(ActiveCell, Range("A2:A100")) Is Nothing Then For Each Cel In Selection If IsEmpty(Cel) Then Cel.Value = Cel.Offset(, 1).Value Cel.Offset(, 1).ClearContents Cel.Offset(, 2).Value = Date End If Next Cel End If End Sub تقبل تحياتي

أخي الحبيب محمد الريفي بارك الله فيك وجزاكم الله خيراً .. موضوعاتك دائماً في تألق وبهاء

السلام عليكم من روائع الاستاذ محمد الريفي بارك الله وجُزيت خيراً

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

هل هذا ما تقصده recorder.rar