احمدزمان

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

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

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

السلام عليكم AYMZ077.rar

الله يغفر لهم ويرحمهم

السلام عليكم هذه فكرة اخرى هذا الكود يفتح ملف الإكسل 3 مرات فقط يمكنك التعديل عليه كماتريد وهو منقول Private Sub Workbook_Open() Option Explicit Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج") Unload Me End If End Sub

السلام عليكم و رحمة الله وبركاته بعد الشكر للأخوة الأفاضل ابو احمد و بن علية اود ان اوضح لك أخي ZOMO ان النتائج الناقصة لديك هي بسبب اختلاف تنسيق الخلايا و الحل في الورقة a2 حدد العمود A اختار تنسيق الخلايا ثم رقم ثم اختار تنسيق رقم ثم موافق سوف تظهر لك كل النتائج السبب وجود ارقام في العمود A موضوعة بتنسيق نص مع التحية للجميع

المرفق Save_Copy_As.rar

السلام عليكم و رحمة الله و بركاته أخي الكريم HaNcOcK جزاك الله كل خير على روحك الجميلة و على متابعتك بعد البحث وجدت هذا الكود المختصر و المفيد Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.SaveCopyAs "D:\ماجد.xls" MsgBox ("تم الحفظ نسخة في D") End Sub آمل ان يكون به الفائدة دمتم بخير

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

السلام عليكم و رحمة الله وبركاته شاهد المرفق باستخدام التنسيق الشرطي ll.rar

السلام عليكم و رحمة الله وبركاته اخي هانكوك جزاك الله كل خير على هذا العمل الجميل اتمنى ان تسمحلي بتعديل بسيط وهذا ليس تقليل من عملك الرائع ولكن يجب حفظ الملف في الفلاش قبل حفظة في الدريف دي لأنه اذا تم حفظ الملف في الدرايف دي لن يتم حفظ التعديلات على الملف في الفلاش هذا ما لاحظته بعد التجربة للكود الرائع الذي اضفته Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:= "D:\ماجد.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=True MsgBox ("تم الحفظ نسخة في D") End Sub مع تحياتي وتقديري للجميع

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

وهذه روابط اخرى سوف تفيدك في طلبك من اعداد عمالقة هذا المنتدى http://www.officena.net/ib/index.php?showtopic=36524&view=findpost&p=193395 http://www.officena.net/ib/index.php?showtopic=30017

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

السلام عليكم و رحمة الله انته شايف يالحبيب ان عالمنا غريب لكن ظروفي غريبة وهذه الدنيا عجيبة سررت جدا بمرورك الكريم اخي الحسامي

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

اخواني ياسر الحافظ و زين و سعد عابد أشكركم على كريم مروركم

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

السلام عليكم و رحمة الله نستخدم التالي و السابق للتنقل بين اوراق الملف كما في الكود المرفق AYMZ077السابق_التالي.rar

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

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

السلام عليكم اخي zine pef شكرا لك على مرورك الكريم اخي الفاضل HaNcOcK شكرا لك ايضا

‏الاربعاء‏، 17‏ جمادى الأولى‏، 1432 السلام عليكم و رحمة الله و بركاته بناء على طلب احد الإخوة على الرابط http://www.officena.net/ib/index.php?showtopic=36359 وبعد الشكر لأخي Hancock على الإبداع الجميل الذي قدمة حول الموضوع و كذلك الشكرلأخي ابو احمد/ ولدمجرب -=-=-=- ارفق لكم اليوم ملف من احد ابداعات الأستاذ الفاضل / حسام نور و الذي وضع كود يقوم باخفاء جميع اشرطة الأدوات في اكسل و يقوم باعادة اظهارها ايا كان اسم هذا الشريط او اياكان عددها == == == == وننتهذ هذه الفرصة بالدعاء له في ظهر الغيب و ذلك بسبب طول غيابه الطويل عن المنتدى فـ جزاه الله كل خير [font="Franklin Gothic Medium"][size="4"][b]Dim MyCommandBars_Name() As String Sub HideCommandBars() On Error GoTo OutOfRange Dim cd As CommandBar With Application .DisplayFormulaBar = False .DisplayStatusBar = False For Each cb In .CommandBars If cb.Visible = True Then ReDim Preserve MyCommandBars_Name(UBound(MyCommandBars_Name) + 1) MyCommandBars_Name(UBound(MyCommandBars_Name)) = cb.Name If cb.Name = "Worksheet Menu Bar" Then cb.Enabled = False Else cb.Visible = False End If End If Next cb End With Exit Sub OutOfRange: If Err = 9 Then ReDim MyCommandBars_Name(0) Resume Next Else MsgBox Err.Description End If End Sub Sub UnhideCommandBars() With Application .DisplayFormulaBar = True .DisplayStatusBar = True For i = 0 To UBound(MyCommandBars_Name) If MyCommandBars_Name(i) = "Worksheet Menu Bar" Then .CommandBars(MyCommandBars_Name(i)).Enabled = True Else .CommandBars(MyCommandBars_Name(i)).Visible = True End If Next i End With End Sub [/b][/size][/font] Book122.rar

السلام عليكم اخي HaNcOcK جزاك الله كل خير عمل رائع اتمنى لك التوفيق الدائم