عبدالله المجرب

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

اذاً ارفق ملف بنفس ترتيب ملفك وسيتم عمل اللازم بإذن الله

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

السلام عليكم هل السبب عدم عمل المعادلة لتطلب عمل كود ام انك تريد الحل بالاكواد == ان كنت تريد عمل المعادلة على ملفك فضع ترتيب الجداول في ملفك في ملف وارفقه ولا تنسى ان المعادلة صفيف اي لابد ان تضغط على Ctrl+Shift + Enter والله الموفق

الاخوة الافاضل الدوسي 1 سعد عابد احمد فضيلة ياسر الحافظ شكراً لمروركم === الاخراج في هذا العدد والمقدمة من اعداد الاستاذ محمد طاهر فكل الشكر له على هذا العمل الرائع

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

السلام عليكم أكواد تحفة تسلم يداك استاذ سعد ابواحمد

الاخ ابو آلاء جاري تجربة البرنامج مع ان الصور تبين انه شغل متعوب عليه ابواحمد

شكراً اخي ابو الحسن وما اقدمة ويقدمة الاخوة هو واجب علينا وزكاة العلم إخراجه === سيتم نقل الموضوع الى المنتدى الاجتماعي

السلام عليكم بعد اذن الاخ مجدي يونس المرفق به البرنامج SCREXESetup.rar

السلام عليكم الاستاذ الفاضل / جمال دغيدي عميد منتدانا تم إضافة الملف المفتوح الى المشاركة الاولى

الاخ مجدي شرح جميل وحركة جميلة

السلام عليكم اخي الفاضل جرب المرفق تم إضافة معادلة صفيف لترتيب الاسماء دون تكرار Book1 (2).rar

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

أخي أحمد سأقوم بفصل الموضوع == العميد دغيدي وحبب الله فيك خلقه بارك الله فيك وكل عام وانت بخير

لا تستعجل اخي ذيب اليمن == بالنسبة لسبب عدم اكمال التوزيع قم بالاتي 1. ازالة الدمج عن الخليتين G45 و H45 ثم اجعل هذه المعادلة في الخلية H45 وليس G45 =VLOOKUP($B$7;ورقة2!B9:AL56;37;FALSE) في الكود قم بتعديل هذا السطر فقط من r = Range("G45").Value الى r = Range("H45").Value وسيعمل الكود بشكل صحيح === بالنسبة للمطلوب الثاني نرجو المزيد من التوضيح (لانه يمكنك من استثناء ايام الجمع بإضافة حرف A او اي حرف في خانات ايام الجمع في الورقة 2) وبذلك لا يتم التوزيع في هذه الخلايا === بخصوص الحفظ بصيغة 2003 يمكنك ذلك من حفظ باسم واختر 2003-97 وسيم الحفظ

الاخ جمال الفار شكراً لك ولي الشرف في زيارة أم الدنيا والتشرف بلقياكم

الطريقة في المعادلة الموجودة في الخلية i1 قم بتعديل الاسماء ولكن قبل هذا قم يحذف هذا الجزء من الكود لازالة صيغة المعادلة Target.Offset(-1, 1).FormulaR1C1 = _ "=IF(OR(R[3]C[-1]=""لودر رقم 1"",R[3]C[-1]=""حفارة رقم 1"",R[3]C[-1]=""سيارة رقم 1""),""I"",IF(OR(R[3]C[-1]=""لودر رقم 2"",R[3]C[-1]=""حفارة رقم 2"",R[3]C[-1]=""سيارة رقم 2""),""S"",IF(OR(R[3]C[-1]=""لودر رقم 3"",R[3]C[-1]=""حفارة رقم 3"",R[3]C[-1]=""سيارة رقم 3""),""AC"",IF(OR(R[3]C[-1]=""لودر رقم 4"",R[3]C[-1]=""حفارة رقم 4"",R[3]C[-1]=""سيارة رقم 4""),""AM"",""""))))" ليصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub If Target.Row <> 2 Then Exit Sub Target.Offset(2, 0).ClearContents End Sub واذا لم تستطع التعديل اعطني اسماء الاليات وساقوم بالتعديل

اخي انت لم تجب على التساؤل هل تريد اكسل ام وورد ام ماذا!!!

الاخت الفاضلة بسنت العمري امسحي هذ السطر من الكود If Target.Row <> 4 Then Exit Sub ليصبح الكود هكذا Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Value <> "" Then x = Target.Value Sheets(x).Visible = True Sheets(x).Select End If End Sub

السلام عليكم تم عمل التعديل (لو تقارن بين الملف هذا والملف السابق ستعرف اين حدث التغيير) واي جزئية في الكود لم تفهمها فان في الخدمة 555+++.rar

اخي ذيب اليمن تابع هذا الرابط من هنا

السلام عليكم الاخت الفاضلة باسنت العمري تم عمل اللازم على ملف العيدروس تم تعديل الكود ليقوم بإخفاء جميع الاوراق حتى المضاف منها كما ان اي ورقة جديدة تضتف الى الملف ستجدها في الورقة الاولى وبالضغط عليها ستنقلك الى هذه الورقة. جرب واعلمني هل هذا هو المطلوب صفحة تنقل.rar

الحمدلله انه تم التوصل الى ما تريده اخي ميدو ابواحمد

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