ضاحي الغريب

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

أخي الكريم // حيدر أبا علي جزاك الله خيرا علي دعائك اليك التعديل بالمرفقات عند استخدام مفتاح انتر سوف يتم النقل للتكست بوكس التالي بالتوالي بالترتيب الفورم (( الي - عدد - التاريخ - نؤيد لكم - محله - زقاق / شارع - دار - السبب - امين محلة - اسم الامين - ثم مفتاح الادخال )) ان كان هناك اي تعديلات اخري لا تتردد اخي الكريم في طلبها ووفقنا الله واياك الي الخير تقبل تحياتي حيدر استمارة تاييد 5.rar

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

أخي الكريم ///ابونادر السلام عليكم ورحمة الله الكود مضبوط عند تكرار رقم الموظف يقوم بمسح بيانات الصف من A:G ولا انت تريد ان يمسح الرقم المكرر والاصلي معا

أخي الكريم // حيدر السلام عليكم ورحمة الله وبركاته تم عمل المطلوب باضافة كود من اعمال أستاذنا // عبدالله المجرب (أبوأحمد) جزاه الله خيرا عنا ولحفظ نسخة من التأييد فقط اضغط علي زر حفظ نسخة من التاييد وسوف يضاف شيت جديد باسم التأييد الموجود بالخلية (E7) بالنسبة لعدد التاييدات هو 10000 تأييد ويمكنك تغيرها من الاسم المعرف (Data) كيفا تشاء تم اضافة التعديلات لملف الاخير كما طلبت والله ولي التوفيق حيدر استمارة تاييد 5.rar

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

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

أخي الكريم // لاضافة صفوف مع نسخة معادلة استخدم الكود التالي Sub InSert_Row() ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown End Sub ولا ضافة صفوف مع نسخ القيم استخدم الكود التالي Sub Insert_Row_2() R = ActiveCell.Row ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown Range("O" & R + 1 & ":AA" & R + 1).Formula = Range("O" & R & ":AA" & R).Formula Range("AN" & R + 1 & ":AO" & R + 1).Formula = Range("AN" & R & ":AO" & R).Formula Range("AQ" & R + 1 & ":AR" & R + 1).Formula = Range("AQ" & R & ":AR" & R).Formula End Sub

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

أخي الكريم الرائع / رجب جاويش

أخي الكريم /// أبو نادر تمت الأجابة علي نفس الموضوع باسم (( طلب تعديل كود رسالة ) علي الرابط http://www.officena.net/ib/index.php?showtopic=46427 وعلي اية حال تعديل الكود ليقوم بمسح الصف باكمله Private Sub Worksheet_Change(ByVal Target As Range) If Val(Cells(Target.Row, "I")) > 1 Then MsgBox ("رقم هذا الموظف : " & Target.Value & " موجود مسبقا") Cells(Target.Row, Target.Column).Select Selection = "" Selection.EntireRow.Delete Exit Sub End If End Sub

أخي الكريم // أبونادر تم تعديل الكود حسب طلبك ليحذف الصف بالكامل عند تكرار رقم الموظف الملف بالــمرفقات بيانات موظفين.rar

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

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

أخي الحبيب // جمال أبو محمود رائع مثل كل اعمالك الرائعة

تفضل أخي الكريم اختيار التاريخ من روائع الأستاذ محمد صالح حفظه الله أيام الشهر من بداية ذات الشهر - سعيد بيرم.rar

جزاك الله خيرا اخي الكريم

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

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

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

أخي // حيدر تفضل الملف بعد التعديل بالمرفقات جرب واعلمني بالنتيجة حيدر استمارة تاييد4.rar

هلاااااا ومرحبا فيك اخي MEMO2008 يسعدنا ويشرفنا انك تكون بينا وان شاء الله تلاقي منا وبينا كل اللي يسعدك ويحوز على رضاك واحنا بانتظار جديدك المفيد ان شاء الله وجزاك الله خيرا علي موضوعك متعوب عليه بارك الله لك لك دعوة طيبة منا علي الرابط التالي http://www.officena....showtopic=41520

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

اخي الكريم / محمد الحمد لله الذي وفقك للوصول الي ما مبتغاك راجع المرفق بدون ظهور الرسالة class12010tt VV2d.rar

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