حمادة عمر

السلام عليكم الاخ الكريم / احمد 2014 بارك الله فيك بالنسبة للجزئية السابقة ... شاهد الرابط التالي .. به شرح كامل وبالتفصيل الممل لكل جزئية في الكود المستخدم طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة وبالنسبة لهذه الجزئية .. شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=50458&hl= فيوجد به جميع الفروق بين امتدادات الملفات واي طريقة تصلح لحفظ الاكواد بها وبخصوص سؤالك تحديدا فان excel macro-enabled worksheet ... هو حفظ الملف علي اكسيل 2007 - 2010 .. بامتداد xlsm ليمكن حفظ الاكواد واليوزفورم بها و excel 97-2003 ........ هو حفظ الملف علي الاصدار 2003 بامتداد XLS تقبل خالص تحياتي

بارك الله فيك اخي العزيز / احمد 2014 واسمك منور بالعربي ... ايوه كدة ياعم ... تقبل خالص تحياتي

شاهد اخي الكريم الروابط التالية دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / سليم حاصبيا بارك الله فيك كود جميل وفكرة جميلة لنسخ التعديلات والقيم في شيت آخر ولاثراء الموضوع .. يمكن تقديم هذا الكود البسيط لتنفيذ نفس الفكرة ولكن بشكل ابسط لمن لا يعرفها ويمكن الاستفادة بها باي طريقة ... مشاركة مني فقط في فكرتك الراائعة الكود التالي لاظهار المعادلات في الشيت نفسه Sub Formulas() ActiveSheet.Select ActiveWindow.DisplayFormulas = True ActiveSheet.DisplayRightToLeft = True End Sub والكود التالي لاخفاء المعادلات واظهار القيم مرة اخري في نفس الشيت Sub not_Formulas() ActiveSheet.Select ActiveWindow.DisplayFormulas = False ActiveSheet.DisplayRightToLeft = True End Sub تقبل خلص تحياتي list formula-ss.rar

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

السلام عليكم الاخ الكريم / ACCOUNTANT_AHMED بارك الله فيك واهلا وسهلا بك بين اخوانك في هذا المنتدي العملاق وان شاء الله ستسعد بالانضمام الي اسره هذا الصرح العملاق استبدل الكود الخاص بزر الترحيل بالكود التالي Private Sub CommandButton2_Click() Dim iR As Long Dim sh As Worksheet Set sh = Worksheets("ترحيل بيانات") iR = sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row sh.Cells(iR, 1).Value = Me.TextBox1.Value sh.Cells(iR, 2).Value = Me.TextBox2.Value sh.Cells(iR, 3).Value = Me.TextBox3.Value sh.Cells(iR, 4).Value = Me.ComboBox1.Value If OptionButton1 = True Then sh.Cells(iR, 5).Value = Me.OptionButton1.Caption If OptionButton2 = True Then sh.Cells(iR, 5).Value = Me.OptionButton2.Caption TextBox1.Value = "": TextBox2.Value = "" TextBox3.Value = "": ComboBox1.Value = "" OptionButton1.Value = False: OptionButton2.Value = False MsgBox " تم الترحيل بنجاح" End Sub واليك الكود بالمرفقات تقبل خالص تحياتي Book11111111.rar

قم بارفاق ملف اخي الكريم او صورة الرسالة التي تظهر لك وعلي الاغلب فالحل لديك يكمن في تخفيض مستوي الامان لتشغيل الماكرو .. ان هذا ما تقصده شاهد الرابط التالي ... في المشاركة رقم 241 http://www.officena.net/ib/index.php?showtopic=45637&page=13&hl=%2B%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1%D8%A7%D8%AA+%2B%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%8A%D9%84#entry283497 تقبل خالص تحياتي

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

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

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

ولاثراء الموضوع شاهد الملف المرفقة علي الورد Doc1.rar علي الاكسيل BBB.rar

الأستاذ / جلال الجمال أبو أدهم السلام عليكم ورحمة الله وبركاته ألف مليون مبروك على الترقية وإلى الأمام دائماً.

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

السلام عليكم لاثراء الموضوع .... الاخ الكريم / محمد الخازمي اليك الرابط التالي به ( ان شاء الله ما تريد ) فيوجد به * اما ان تجعل الملف يفتح لعدد مرات معينة ( تحددها انت ) * اما ن تجعل الملف ينتحر بعد مدة من تشغيله تلقائيا اي يحذف نفسه او بعد عدد من مرات فتحه تحدده انت ايضا * اما ان تجعل الملف لا يفتح بعد عدد من مرات معينة من بداية فتحه الا برقم سري تحدده انت واليك رابط موضوع به هذه الاكواد التي تقوم بعمل ذلك http://www.officena....رات#entry269362 جزاك الله خيرا

ويمكن ايض الجمع للصفوف المفلترة بنفس الدالة ولكن بتغيير الرقم 109 الي الرقم 9 كالتالي وذلك علي اسا س ان النطاق المراد التجميع فيه هومن الخلية D3 وحتي الخلية D16 =SUBTOTAL(9;D3:D16)   تقبلوا خالص تحياتي 

ع السريع .. شاهد هذا التعديل البيسط جدا علي الزر في الصفحة الرئيسية mohammed.rar

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

السلام عليكم الاخ الكريم / ابوبادي بارك الله فيك واهلا وسهلا بك وسط اخوانك بهذا المنتدي وستسعد ان شاء الله كثيرا بالانضمام الي اسره هذا الصرح العملاق اما بخصوص ملفك وطلبك فلايمكنك النسخ واللصق للاعمدة المذكورة حيث ان الكتابة الموجودة فيها لاتوجد في خلايا عادية ولكنها موجودة في ما يسمي بالكونترولات ( تكستات بوكس - كومبوبكس ) وبالتالي لا يمكن نسخها كما تريد بالنسخ واللصق ولي استفسار ما هي الفائدة من استخدام هذه الطريقة في جدول من الواضح انه جدول عادي ويمكن تنفيذه بشكل افضل باستخدام الخلايا العادية والقوائم المنسدلة علي سبيل المثال تقبل خالص تحياتي

السلام عليكم الاخ الكريم / وائل ناجي بارك الله فيك اظن ان طلبك ( صعب شوية ) حيث انه من عيوب الاكسيل انه يمكن كسر الحماية للاوراق المحمية ببرامج كسر الحماية واظن ان ذلك ايضا يسهل مع الخبراء في هذا المجال ولكن يمكنك وضع كلمة سر صعبة وطويلة بعض الشئ وتكون مكونة من حروف وارقام ورموز لتكون صعبة علي بعض البرامج والله اعلم تقبل خالص تحياتي