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

الى الغد بإذن الله == ستبداء الدورة عصر الغد

بصراحة انا فتحت الاكواد واطلعت على الحل فلم يعد للمحاولة جدوى ههههه الغاز جميلة جداً (لو كان الملف محمي برقم سري ) كان افضل من الفورم لان طريقة فتح الاكواد بسيطة جداً اذا ظهر الفورم

السلام عليكم هل تقصد هكذا مرتبات البنك 2.rar

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

تفضل المرفق التنسيق الشرطى.rar

لحل هذه المشكلة شاهد هذا الموضوع http://www.officena.net/ib/index.php?showtopic=31250

جرب هذا المرفق عله ينفعك حساب السن في اكتوبر.rar

ضع مرفق ليسهل فهم المطلوب

تقرر جعل المرجع الاول هو مرجع الدورة بعد ان حصل على نسبة 72% من الاصوات وسيتم حذف المرجع الثاني == قبل بدء الدورة (إعتباراً من يوم الاحد بمشيئة الله 2 محرم 1433 هجرية ) نرجو من الاساتذة المشاركين في الدورة بالتعليق بنعم او بلا بخصوص المشاركة والى الان الموافقين على المشاركة 4 وهم الاستاذ ابو عبدالله الاستاذ محمد يحياوي الاستاذ عبدالله المجرب الاستاذ معتصم محمد الاستاذ محمود فوكس مان ونرجو من باقي الاساتذة تحديد الموقف من المشاركة بالايجاب والقبول او الاعتذار عن المشاركة وجميع الاعذار مقبولة وكان الله في عون الجميع == حسب ماهو مقرر الان هو ان نشترك جميعنا في الشرح (فصل فصل) بدل مجموعة فصول لكل استاذ وبانتظار راي الاخوين يحياوي ومعتصم بهذا الخصوص والله ولي التوفيق

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

السلام عليكم لن يكون هناك داعي لكود حذف المكرر جرب المرفق test (2).rar

هناك حل اخي الفاضل وانا اعمل عليه فامهلني

على حد علمي لا يوجد

بإمكانك مراجعة هذا الموضوع http://www.officena.net/ib/index.php?showtopic=39159

نرجو الايضاح اكثر هل تريد عند فتح الملف يتم الفتح على ورقة الشاشىة الافتتاحيو ام ماذا

السلام عليكم لا بد من إرفاق ملف ليتم العمل عليه

بعد إذن اخي ابو نصار تفضل المرفق (سيتم جلب البيانات من عدة شيتات الى شيت مرتبات البنك ) جرب ان شاء الله يكون هذا طلبك Sub Abu_Ahmed() Dim sh As Worksheet, cl As Range, c As Range For i = 1 To 3 For Each c In Sheets(i).Range("B3:B6") For Each cl In Range("B3:B11") If cl.Value = c.Value Then cl.Offset(0, 1).Value = c.Offset(0, 3).Value End If Next Next Next End Sub مرتبات البنك.rar

نرجو ان يتم ايضاح طريقة عمل مثل هذا التنسيق الجميل للفائدة

السلام عليكم تم عمل اللازم في المطلوبين المتبقيين == يمكنك الان حفظ الافادة بصيغة PDF (تم نقل الاكواد من ملف من ابداع الاستاذ ابوعبدالله حفظه الله) افادة 5.rar

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

الاخوة الكرام انس دروبي مجدي يونس العميد دغيدي شكراً لدعنكم وتشجيعكم

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

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

نعم اخي يوسف لم يتم تغيير جوهري في الكود تم تغيير هذه الجزئية فقط FileFormat:=xlNormal وانا جربت الكود والكود يعمل عندي (ارجو ممن جرب ان يعلمنا بالنتيجة) والله اعلم

اخي يوسف هل جربي الملف (انا قمت باعادة رفعه)