حمادة عمر

السلام عليكم الاخ الكريم / hoorabie ربيع بارك الله فيك عمل جميل وواضح انك غاوي اكسيل بس بالنت اوووي ... وفقك الله جزاك الله خيرا

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

السلام عليكم الاخ الكريم / krimo145 بارك الله فيك اخي الكريم ونريد ان نراك دائما معنا فلا تغب عنا كثيرا جزاك الله خيرا الآن : اكسيل 2003 ( 16 ) صوت اكسيل 2007 ( 12 ) صوت اكسيل 2010 ( 6 ) صوت اكسيل 2013 ( 3 ) صوت

السلام عليكم اخي العزيز / إسلام الشيمي بارك الله فيك وشرفتني بمرورك وردك علي الموضوع جزاك الله خيرا الآن : اكسيل 2003 ( 15 ) صوت اكسيل 2007 ( 12 ) صوت اكسيل 2010 ( 6 ) صوت اكسيل 2013 ( 3 ) صوت

السلام عليكم الاخ الكريم / hoorabie ربيع اسعدني مرورك جزاك الله خيرا الآن : اكسيل 2003 ( 15 ) صوت اكسيل 2007 ( 12 ) صوت اكسيل 2010 ( 6 ) صوت اكسيل 2013 ( 2 ) صوت

السلام عليكم الاخ الكريم / ذيب اليمن لكم مني ارق التحيات والاماني جزاك الله خيرا الآن : اكسيل 2003 ( 15 ) صوت اكسيل 2007 ( 11 ) صوت اكسيل 2010 ( 6 ) صوت اكسيل 2013 ( 2 ) صوت

السلام عليكم الاخ الكريم / MONEER111 بارك الله فيك جزاك الله خيرا الآن : اكسيل 2003 ( 15 ) صوت اكسيل 2007 ( 10 ) صوت اكسيل 2010 ( 6 ) صوت اكسيل 2013 ( 2 ) صوت

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك وحفظك من كل سوء وهذه القيم هي ما غرسته انت فينا استاذنا جزاك الله خيرا

السلام عليكم الاستاذ والاخ العزيز / سعيد بيرم بداية اعتذر عن الاطاله القادمة بارك الله فيك وجزاك الله خيرا .... ولكن اخي متزعلش اخونا ( كود ) احسن زعله وحش قوي ... ههه الاستاذ القدير / عبدالله باقشير .... جزاك الله خيرا الاستاذ الحبيب / أبو حنين .... جزاك الله خيرا الاستاذ العميد / دغيدى .... جزاك الله خيرا وتقبلوا تحياتي جميعا .... واليكم وبعد اذن الاستاذ / سعيد بيرم ...... واذن الاستاذ الحبيب / ابو حنين ... حيث هو صاحب الفكرة في الموضوع الاصلي والذي اشار اليه اخونا / سعيد في المشاركة الاولي باضافة صورة الموظف للفورم عن اختيار الرقم القومي جرب المرفق التالي كل ما عليك هو الضغط علي زر ( فتح الشاشة ) ثم اختيار شاشة ( السادة الموجهون ) حيث لم يتم العمل الا علي هذه الشاشة الخاصة بالموجهون (( للتجربه )) واختار الرقم القومي وشاهد النتيجة في صورة الموظف ملحوظة : الصور الموجودة مع الملف ويجب ان تبقي معه والصور الموجود للاساتذة الافاضل من 1-10 والباقي لا يوجد لهم صور وفي حاله عدم وجود صورة يظهر ذلك مكان الصورة ارجو ان يعجبكم هذا العمل البسيط وينال رضاكم وهو اهداء لاخونا العزيز / سعيد بيرم .... والاستاذ الحبيب / ابو حنين جزاكم الله خيرا

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

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

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

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

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

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

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

السلام عليكم الاخ الكريم / smsmman اولا شكرا جزيلا لك ثانياً : هم ليسوا سطرين وانما سطر واحد حيث تم وضعهم بهذا الشكل حتي لا يكون السطر طويلا في الكود فقط وهو من الاساس بهذا الشكل التالي : iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row فهو سطر بسيط للعثور علي آخر صف فارغ ليتم تسجيل البيانات الجديده به في الشيت المختار الترحيل او التسجيل فيه ومعناه جزء جزء كما يلي : قمنا في بداية هذا الكود بوضع بعض التعريفات او المتغيرات فكان iRow هكذا ( في بداية الكود ) وضعه كمتغير بالشكل التالي : Dim iRow As Long ويجب علينا بعد ذلك ( بطريقة بسيطة ) تعريف هذا المتغير ليفهم الكود المقصود منه ألا وهو ( آخر صف به بيانات ) ونقوم فيه بشرح ذلك لمحرر الاكواد vba ليقوم الكود بعمله حيث نقول ان : آخر صف به بيانات يساوي .... او نعريفه علي انه .... كذا وهو في هذا السطر تم كما يلي ( خطوة .. خطوة ) : ws. هذا الجزء السابق من السطر المقصود يعني الشيت المحدد الذي تم تعريفه في بدايه الكود كمتغير ايضا وتم وضع معناه بعد ذلك علي انه شيت 2 .Cells(Rows.Count, 1) وهذا الجزء السابق من السطر المقصود يعني تحديد العمود رقم 1 في الشيت اي العمود A .End(xlUp).Offset(1, 0).Row وهذا الجزء السابق من السطر المقصود يعني الي نهاية صفحة الاكسيل ( شيت 2 ) مع استخدام داله Offset وبذلك يكون هذا السطر معناه كاملا المتغير المقصود = آخر صف به بيانات في العمود الاول A ملاحظة : لعمل هذا السطر عدة طرق وبصيغ مختلفه ولكني كما ذكرت في جميع الدروس اخترت اسهل الاكواد لتنفيذ المطلوب ارجو ان اكون قد وفقت في الشرح ... ومعك دائما في اي استفسار في اي وقت اعتذر عن الاطاله .... ولكني اردت ايضاح الشرح جزاك الله خيرا

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

السلام عليكم الاخ الكريم / احمد مجدى اليك المرفق التالي ( تم اضافة اسم المستشفي وكود الطبيب واسم الطبيب ) في الايصال رقم 1 ويتم ترحيلهم ام انك لا تريد ترحيلهم ؟؟ قبل يوم الجمعه .... هههههه جزاك الله خيرا الايصالات 10+.rar

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

السلام عليكم الاخ الكريم / وليد زقزوق جرب الملف المرفق وقم بفتحه وشاهد الرسالة علي الفورم ثم قم باغلاقه وشاهد تغيير الرسالة ارجو ان يفي طلبك ... جزاك الله خيرا Book2.rar

السلام عليكم اخي العزيز / aspiran بارك الله فيك وكلنا في هذا الصرح طلاب علم ونخدم بعضنا البعض لوجه الله جزاك الله خيرا

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

السلام عليكم اخي العزيز / عباس السماوي لك مني اجمل تحيه جزاك الله خيرا

السلام عليكم الاستاذ القدير / mahmoud-lee الاستاذ القدير / رجب جاويش دائما سباقين للخير جزاكم الله خيرا