عبدالله باقشير

احبائي في الله

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

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

السلام عليكم =B2/100 التاريخ اليوم =VALUE(MID(D2;7;2)) الشهر =VALUE(MID(D2;5;2)) السنة =VALUE(MID(D2;1;4)) وهكذا تحياتي

السلام عليكم جرب هذا Sub Macro1() Range("A1:G" & Cells(Rows.Count, "B").End(xlUp).Row).PrintOut End Sub تحياتي

http://www.gulfup.com/

يمكنك الاستعجال بكلمة للرفع وما فيش داعي لهذا الكلام لانه يعد مخالفا لقواعد المشاركة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

اخي الحبيب ضاحي الغريب والى الامام دوماً

اختي الفاضلة أم عبدالله

احبائي في الله

اخي الحبيب دغيدي اخي الحبيب احمد فضيلة

اخي الحبيب حمادة باشا

اخي الحبيب مجدي يونس

اخي الحبيب الخالدي

اخي الفاضل حسين بلال

اخي الفاضل سعيد بيرم

اخي الحبيب جمال عبد السميع

اخي الفاضل سعيد بيرم

اخي الفاضل إبراهيم ابوليله

السلام عليكم مثلا لو اضفت الزر CommandButton1 اعمل الكود كالتالي حدد الخلية التي تريدها مع الكنترول الذي تريد مثلا Private Sub CommandButton1_Click() [c6] = Me.Controls("Textdt1") [c7] = Me.Controls("Textdt2") End Sub وهكذا اكمل الباقي تحياتي

السلام عليكم ورحمة الله وبركاته بعد اذن اخي الحبيب جمال معادلة تاريخ اخر دفعه لكل عميل =SUMPRODUCT(MAX((Table1[العميل]=[@العميل])*(Table1[الدفعات]>0)*(Table1[التاريخ]))) معادلة تاريخ اخر فاتورة لكل عميل =SUMPRODUCT(MAX((Table1[العميل]=[@العميل])*(Table1[[الفواتير ]]>0)*(Table1[التاريخ]))) تحياتي

السلام عليكم ضع هذا السطر بداية الكود If Target.Cells.Count <> 1 Then Exit Sub تحياتي

السلام عليكم استخدم الكود التالي في موديل الورقة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A5:A17")) Is Nothing Then If Target.Value = 1 Then Target.Offset(0, 1).Select ElseIf Target.Value = 0 Then Target.Offset(0, 2).Select End If End If End Sub شاهد المرفق 2010 Sample.rar

السلام عليكم ورحمة الله وبركاته بعد اذن اخي الحبيب رجب هذه المعادلة تعطيك اكبر تاريخ للعميل حتى اذا كانت التواريخ غير مرتبة =SUMPRODUCT(MAX((Table1[العميل]=[@العميل])*(Table1[التاريخ]))) تحياتي

السلام عليكم احسنت اختي الفاضلة ام عبدالله اثراءا للموضوع =SUMPRODUCT(N("الدرجة "&$D$2:$D$11=F2);N($C$2:$C$11=G3)) شاهد المرفق إحصاء الدرجة على حسب النوع.rar