أحمد فؤاد

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب / ياسر إذا كان الملف بإمتداد xlsx ,xls لن يحتفظ لك بالأكواد لذلك يظهر لك هذه الرسالة أما إذا تم حفظ الملف بإمتداد xlsm , xlsb هما أفضل في الإحتفاظ بالأكواد ولن تظهر لك الرسالة إن شاء الله

أخي الحبيب تفضل المرفق تنقل بين الصفحات2.rar

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

السلام عليكم ورحمة الله وبركاته أخي تفضل الكود Private Sub CommandButton1_Click() Dim Msg As String Dim ans As Integer Dim ans2 As Integer Msg = "هل ترغب بعمل نسخة احتياطية؟" ans = MsgBox(Msg, vbYesNo, "الرجاء الإنتباه") If ans = vbYes Then copy1 ans2 = MsgBox(" تم عمل نسخة إحتياطية ", vbInformation, "الرجاء الإنتباه") Else Exit Sub End If End Sub 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")) & ".xlsb" savePathName = "c:\Test 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

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

شكرا أخي الفاضل فعلا كتاب رائع جاري تصفحه بارك الله فيك

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

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

اللهم صلي وسلم علي سيدنا محمد صلي الله عليه وسلم

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

تسلم أيدك والله ملف رائع بارك الله فيك

السلام عليكم ورحمة الله وبركاته أستاذي حمادة عمر أبو العروسة سما ربنا يخلهالك بسم الله ماشاء الله عليك بارك الله فيك علي أفكارك الرائعة

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

أستاذي الفاضل / عبد الله باقشير بشكرك علي إستجابتك معي ولكن آسف طلبي أعدت توضيحه في الملف المرفق الكميات.rar

أساتذتي أرجو المساعدة محتاج المعادلة ضروري

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

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

السلام عليكم ورحمة الله وبركاته أنا فخور لأن عمالقة المنتدي هم من قاموا بالرد علي موضوعي المتواضع شكر خاص لأستاذي / عبد الله باقشير وشكر خاص لملك المعادلات / جمال عبد السميع شكرا لكم وبارك الله فيكم لكن لي طلب آخر أريد أن يكون كمية الكونتينر ثابته ليس بها كسر ويتم إضافة الكمية للصنف الذي بعده وهكذا لغاية أخر صنف وشكرا الكميات.zip

أستاذي الغالي أشكرك علي سرعة الإستجابة أنا أريد توزيع الكميات بالكرتون وليس بالوحدات

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام أرجو مساعدتي في الملف المرفق إن شاء الله يكون الطلب سهل عليكم وشكرا الكميات.rar

السلام عليكم ورحمة الله وبركاته أستاذي وأخي / ضاحي الغريب كنا ننتظر بفارغ الصبر فعلا أعمالك مشوقة للغاية ونتعلم منعا الكثير ربنا يجعلها في ميزان حسناتك بارك الله فيك

السلام عليكم ورحمة الله وبركاته أخي الغالي ملفك ثقيل جدا ولم أستطع أن أعمل عليه لذلك أرفقت لك ملف به فكرة ربما يكون طلبك Book1.zip

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