حمادة عمر

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

والله انتوا اللي وحشتوني بجد وافتقدتكم كثيرا استاذي الحبيب اصبحت بالفعل مدمن لمنتدي اوفيسنا واساتذته واعضاؤه تقبل خالص تحياتي

جزاك الله خيرا جزاك الله خيرا بالفعل راااااااااااااائع

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

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

الاخ الكريم / sayed_2014 بارك الله فيك اخي الكريم ... مرورك وحده يكفيني تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / محمد ع بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الكريم / طلعت محمد حسن بارك الله فيك بعد اذن اخي الحبيب / حمادة باشا ... جزاه الله خيرا وبنفس الكود المستخدم من طرفه في مشاركتة تم تنفيذ طلبك بوضع الكود واستخدامه عن طريق الفورم ... وايضا عن طريق الوقوف داخل اي خلية بالجدول بعد اظهار الفورم ام ان هناك شرط في الفورم كبحث او .... واليك المرفق تقبلوا خالص تحياتي Book1-Delete Row1.rar

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

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

لا الَه إلا َّ الله العَظيم الَحليم، لا اله إلا َّالله ربّ ِ العَرْشِ العظِيم، لا اله إلاَّ الله ربِّ السَّماوات وربِّ الأَرض ِ ربِّ العَرشِ الكَريم

السلام عليكم الأخوة الافاضل بارك الله فيكم النت مقطوع لدي هذه الايام وقمت بالدخول من ع الموبايل لكن ما دعاني للإشتراك و الرد هي هذه الروح الرائعة بينكم و التي تعكس روح المنتدي الرائع العملاق ورغم انه لايمكنني ارفاق ملف اضع محاولتي هذه بين يديكم ليقوم احد الأخوة بتطبيقها علي ملف اكسيل ورفعه ............... قم بوضع تكست بوكس في شيت الاكسيل من ادوات التحكم ثم قم بوضع الأكواد التالية في حدث التكست بوكس كما يلي : Private Sub TextBox1_DblClick (ByVal Cancel As MSForms.ReturnBoolean ) with TextBox1.Font .Name="Wingdings" .Size = 12 End with TextBox1.Text = Chr (252) End Sub '================= Private Sub TextBox1.GotFocus With TextBox1.Font .Name = "Windings" .Size = 12 End With TextBox1.Text = Chr (251) End Sub وبعد تنفيذ ذلك و الخروج من وضع التصميم يكون العمل كالتالي * الضغط كليك واحد علي التكست بوكس سيتم وضع علامة خطأ X * وعند الضغط علي التكست بوكس 2 كليك سيتم وضع علامة صح و يمكن بالطبع تحديد حجم التكست كما تريدون وهي فكرة أولية ارجو التجربة واخباري بالنتيجة تقبلوا خالص تحياتي

الأخ الحبيب : ابراهيم بارك الله فيك قم أخي الحبيب بوضع الكود المقصود والخاص بالاستعلام في الأمر الخاص بالتكست بوكس الذي تريده كالتالي Priavte sub TextBox2_Afterupdate() بدلا من وضعه في الأمر الخاص بالكومبوبكس ComboBox2_Click وسيعمل معك الاستعلام بالشكل المطلوب بعد الادخال في التكست بوكس والضغط علي انتر وعذرا لعدم امكاني ارفاق ملف بسبب انقطاع النت لدي حيث اقوم بكتابة هذا الرد من ع الموبايل حتي لا يتأخر ردي عليك وسأتابع ردك بعد التجربة من ع الموبايل تقبل خالص تحياتي

الاخ الكريم / علاء رسلان بارك الله فيك افضل طريقة للتعلم هنا اخي الكريم اولا متابعة الموضوعات والاستفسار عن اي نقطة غير مفهومة دون ادني مشكلة ويمكن ان تبدأ انت مع نفسك بوضع برنامج مثلا لتنفيذ اي فكرة وتبدأ بطلب الطلبات والاستفسار عن طريقة تنفيذها وان شاء الله واحدة واحدة ستجد انك اصبحت متمكناً من الاكسيل ودواله واكوادة واليك هذا الرابط كبداية للانطلاق ... http://www.officena.net/ib/index.php?showtopic=49910

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

السلام عليكم الاخ الكريم / أنس دروبي بارك الله فيك واهلا وسهلا بك بعد غياب طويل عن المنتدي نورت مكانك مرة ثانية ونود وجودك بيننا دائما تقبل خالص تحياتي ولكن اخي الكريم هل راجعت الروابط التالية اولا http://www.officena.net/ib/index.php?showtopic=43800&hl=الهارد&page=2 http://www.officena.net/ib/index.php?showtopic=28561&hl=%D8%B3%D8%B1%D9%8A%D8%A7%D9%84&fromsearch=1

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك يمكنك وضع الكود التالي في حدث Sheet2 حيث عند اختياره وتنشيطة يعمل الكود تلقائيا Private Sub Worksheet_Activate() Macro2 End Sub ولكن اخي الكريم ياريت لو ترفق ملف كمثال ليتضح الامر اكثر وتكون الاجابة اكثر دقة تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / dah_med بارك الله فيك تفضل اخي طلبك دخول الشيت عن طريق فورم به اسم مستخدم وكلمة مرور اسم المستخدم للملف والفورم : SAMA كلمة المرور للملف والفورم : 12345 ارجو ان يفي ذلك بطلبك واي استفسار معك دائما باذن الله تفبل خالص تحياتي فتح شيت معين بفورم باسم مستخدم ورقم سري .rar

جزاك الله خيرا اخي العزيز تقبل خالص تحياتي

الاخ الكريم / رائد اولا : كنت بصدد كتابة هذا الشرح التالي فعلا قبل طلبك ... ثانيا : بارك الله فيك وجزيل الشكر علي كلماتك الجميلة قمت بتنفيذ طلبك بطريقة سهلة جدا ... هيا معي !! ضع المعادلة التالية في الخلية C1 مثلا .. وهي موجودة بالملف ولكن تم تنسيقها علي ان لا تظهر او ضعها في اي خلية تريدها غير مستخدمة =SUBTOTAL(9;A2:A100) ثم قم بوضع الكود التالي في حدث تكست بوكس 1 في الفورم كما يلي Private Sub TextBox2_AfterUpdate() Dim SAMA_Date As Date Dim LastR As Long Application.ScreenUpdating = False SAMA_Date = TextBox2.Value LastR = Sheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row '============== Sheets("Sheet2").Range("A1:B" & LastR).AutoFilter Field:=2, _ Criteria1:="<=" & Format(SAMA_Date, "mm/dd/yyyy"), Operator:=xlAnd '============== TextBox1.Value = [C1].Value Sheets("Sheet2").Range("A1:B1").AutoFilter Application.ScreenUpdating = True End Sub ولكن يجب الآخذ في الاعتبار هذا السطر في الكود TextBox1.Value = [C1].Value حيث عند تغييرك للخلية الموجود فيها المعادلة يجب عليك وضع اسم الخلية الجديدة هنا في السطر السابق بدلا من [C1] الموجودة في الكود ارجو ان اكون وفقت في شرح الطريقة ويمكنك تنفيذها بسلاسة تقبل خالص تحياتي

الاخ الكريم / رائد تفضل المرفق به المطلوب ان شاء الله تقبل خالص تحياتي Book15-SAMA.rar

وايضا للعلم هذه الخاصية موجودة في 2007 وذلك من خلال الخيار ( تعقب التغييرات ) او ( Track Changes ) كما في الصورة التالية

السلام عليكم الاخ الكريم / ريان أحمد بارك الله فيك شاهد الملف المرفق ... جرب التعديل في الجدول في الشيت dd وشاهد النتيجة في شيت ( التعديلات ) تقبل خالص تحياتي Nouveau Feuille de calcul Microsoft Exce1l.rar