حمادة عمر

السلام عليكم الاخ الكريم / زمزم بارك الله فيك اولاً : نسألك دعاء بظهر الغيب في البيت الحرام في كنف الكعبة المشرفة لي ولوالدي ( رحمه الله ) ثانياً : شاهد هذه المحاولة مني ... بعد اذن اخي الحبيب / محمد أبو البراء ... جزاه الله خيرا علي حسب فهمي للفكرة فقط قم بادخال القيم في الخلية A2 قيمة تلو الاخري وشاهد النتيجة في الخلية C2 سيتم جمع القيم التي تم ادخالها في الخلية المحددة من بداية فتح الملف ارجو ان اكون قد فهمت طلبك كما تريد .. ويفي المرفق بطلبك وفكرتك ويمكن تنفيذها بأفكار اخري !!! تقبل خالص تحياتي جمع القيم المتغيرة في خلية معينة.rar

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

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

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

بالنسبة لهذا الجزء شاهد المرفق التالي فورم3333.rar

مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اخي الكريم / عبد الرحمن شفيق

جزاك الله خيرا بالفعل كتاب مميز ومفيد تقبل خالص تحياتي

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

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

تفضل اخي الكريم Private Sub Workbook_Open() Dim M, pasword pasword = "1234" If Date >= CDate("01/05/2014") Then M = MsgBox("ان كان لديك كلمة المرور فاضغط علي نعم", vbCritical + vbYesNo, "تأكيد") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "ليس لديك الحق في فتح البرنامج", vbCritical, "خطأ" Application.Quit End If: End If: End If: End If 1 End Sub تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك دائما اخي الكريم ... ارفاق ملف يوضح الصورة لمن يريد المساعدة اكثر ولتعديل الكود المذكور ليعمل حتي ( آخر خلية بها بيانات في هذا النطاق ) ... وعلي حسب فهمي لطلبك سيكون تعديل الكود كالتالي Private Sub OptionButton1_click() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Sheet1").Range("B4:D" & LR) End Sub ارجو ان يفي بطلبك تقبل خالص تحياتي كود رسم بياني لآخر صف به بيانات.rar

السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك بالفعل اخي الكريم .. الملف خاصتك والمستخدم فيه اكواد منع فتح الملف في حالة عدم تمكين الماكرو يوجد بهذه الاكواد بعض الحواجز التي تتعارض مع بعض الاكواد الاخري قم بتعديل الاكواد في ملفك كما في الملف المرفق اسم المستخدم : حسام كلمة المرور : حسام تقبل خالص تحياتي HOSAM ABDEL MOHSEN.rar

شاهد اخي الكريم المرفق اولا ... ثم نري ملاحظاتك فورم2222.rar

برجاء ارفاق ملف كمثال لما تريده اخي العزيز ليمكن للجميع مساعدتك ( باذن الله ) تقبل خالص تحياتي

جزاك الله خيرا اخي الحبيب / ۩◊۩ أبو حنين ۩◊۩ تقبل خالص تحياتي

قم باضافة السطر التالي في بداية الكود الخاص بك If Date = CDate("05/08/2014") Then

تقبلوا خالص تحياتي

وحشتنا ووحشنا تواجدك معنا دائما ووحشتنا روعة اعمالك بالفعل انت برنس تقبل خالص تحياتي

شاهد اخي الكريم الرابط التالي http://www.officena.net/ib/index.php?showtopic=52549&hl=2013

السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك لظهور الفورم في بداية تشغيل الملف يجب عليك تعديل الكود في الملف المرفق - السابق - باضافة جزء جديد للكود وهو Else UserForm1.Show والـ UserForm1 هو الفورم المطلوب ظهورة بداية تشغيل الملف ان كان الاسم صحيحاً كما تريد وكما هو مسجل بالكود ليصبح الكود بالكامل كالتالي Private Sub Workbook_Open() Dim MyFlName As String MyFlName = "HOSAM ABDEL MOHSEN.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close Else UserForm1.Show End If End Sub واليك نموذج لذلك بالمرفقات وان شاء الله سأحاول جاهدا علي تحميل ملفك الاساسي ايضا للتطبيق عليه ( كما تريد ) ان لم يمكنك تطبيقها بنفسك تقبل خالص تحياتي HOSAM ABDEL MOHSEN.rar

السلام عليكم الاخ الكريم / tahermohamed بارك الله فيك اولا .. عذرا ع التأخير ... نظرا لضغوط العمل هذه الايام واليك الملف المرفق به طلبك 1- بالنسبة لتسطير الشيت عند اضافة وتسجيل البيانات ... تم التنفيذ 2- بالنسبة لعدم التسجيل الا في حالة اكتمال الجزء العلوي في الفاتورة ... تم التنفيذ 3- بالنسبة لزر التسجيل تم تنفيذه لك كما طلبت 4- بالنسبة لزر حذف في الفورم ... تم تنفيذه لمسح كافة البيانات الموجودة في الفورم 5- بالنسبة لموضوع اكواد الاصناف .. تم تنفيذ طلبك .. وتم اضافة الطريقة لكود لمورد وكود المخزن 6- بالنسبة لحاصل ضرب ( السعر × الكمية ) تم تنفيذه علي اساس الحساب بمجرد الادخال في خانة السعر مباشرة كما طلبت 7- بالنسبة لزر طباعة تم تنفيذه ليتم طباعة الفاتورة ولم يتبق سوي زر التعديل ولكن اولا قم بتجربة الملف حيث تم تنفيذه علي عجل اليوم .. وفي انتظار ردك وملاحظاتك تقبل خالص تحياتي Copy of فورم1111.rar

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

السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك عذرا لا يمكنني تحميل الملف الخاص بك ... نظرا لضعف النت لدي في هذا الوقت ولكن اخي الكريم ما فهمته من طلبك انك تريد ( تشغيل الملف في اي مكان بالجهاز بشرط ان يكون اسم الملف مثلا HOSAM ABDEL MOHSEN ) فاليك اخي الملف في المرفقات به كود بسيط لتنفيذ ذلك ================= قم بفتح الملف بعد التحميل كما هو بالاسم المطلوب والسابق ذكره .... سيفتح معك الملف بشكل عادي في اي مكان علي الجهاز قم بغلق البرنامج ثم قم بتغيير اسم الملف الي اي اسم آخر .......... لن يفتح معك الملف وسيغلق علي الفور ================= شاهد المرفق ... ان شاء الله يفي بطلبك تقبل خالص تحياتي المرفق 2003 HOSAM ABDEL MOHSEN.rar