رجب جاويش

أخى الفاضل / nash60 جزاك الله كل خير على هذه الكلمات الطيبة

أخى الحبيب / حمادة عمر شكرا جزيلا أخى الحبيب على كلماتك الطيبة ومهما طال الغياب لابد من العودة الى منتدانا الحبيب ( منتدى أوفيسنا )

تفضل أخى هذا الكود فى حدث الورقة كما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then On Error Resume Next If Target = "" Then Target.Offset(0, 7) = "" Else Target.Offset(0, 7) = ActiveSheet.Name End If End If End Sub نسخ اسم الورقة1.rar

أخى الفاضل / أبو ردينه ألف مليون مبروك هذه الترقية المستحقة ومن نجاح الى نجاح ومن تقدم الى تقدم

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

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

أخى الفاضل / أحمد تم تصحيح الخطأ الخاص بيوم الجمعة جرب وأخبرنى بالنتيجة SCHEDUEL- 2012-2013.rar

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

وهذا حل عن طريق معادلة رابعة ( معادلة صفيف) النشاط جديد4.rar

وهذا حل عن طريق معادلة ثالثة النشاط جديد3.rar

وهذا حل عن طريق معادلة أخرى النشاط جديد2.rar

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

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

أخى الفاضل / خالد القدس سلمت لنا أخى الفاضل وسلم أهل السودان جميعا جزاك الله كل خير

أخى الحبيب / أبو محمود جزاك الله كل خير أخى الحبيب وزادك الله علما ورفعه

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

أخى الفاضل / aspiran جزاك الله كل خير

أخى الحبيب / أبو حنين شكرا جزيلا أخى الحبيب على كلماتك الرقيقة ومرورك العطر

أخى الفاضل / أبو محمد أشرف جزاك الله كل خير

وهذا حل آخر عن طريق كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, x As Integer Dim sh As Worksheet Set sh = Sheets("ورقة3") LR = sh.[F10000].End(xlUp).Row If Target.Address = [G2].Address Then [E5:G1000].ClearContents x = 5 For Each cl In sh.Range("G6:G" & LR) If cl = [G2] Then Range("F" & [F10000].End(xlUp).Row + 1) = cl.Offset(0, -1) Range("E" & [E10000].End(xlUp).Row + 1) = x - 4 x = x + 1 End If Next End If Set sh = Nothing End Sub يعمل عند اختيار المادة من القائمة المنسدلة النشاط2.rar

أخى الحبيب / عباس السماوي شكرا جزيلا أخى الحبيب على كلماتك الرقيقة ومرورك العطر

تفضل أخى النشاط.rar

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

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

أخى الفاضل عمل data validation ليس الزاميا لكى تعمل المعادلة ولكنه فقط لضمان ادخال المقاس صحيح بدون الخطأ الذى تسبب فى عدم عمل الدالة وهذا السبب هو عدم تطابق المقاس المكتوب مع المقاس الموجود فى صفحة ( sheet4 ) حيث تجد أن المقاس 100x100 بعده مسافة زائدة تسبب عم التطابق فيظهر الخطأ فى المعادلة وهذا شكل المقاس مع وجود المسافة " 100×100" والمفروض أن يكون هكذا "100×100"