محمود أبوسيف

الأخ الفاضل ياسر خليل . عفواً مازلت المشكلة قائمة والمطلوب كما ذكرت لحضرتك في المشاركة رقم 18 هو عدم تكرار أي رقم موجود في صفحة المستبعدين مهما كان صفه يحتوي علي أي بيانات

للـــرفــــع

أخي الحبيب ( الطلحي ) لقد قمت بتنفيذ الخطوات كما ذكرتها بالضبط ولكن عندما أقوم بكتابة النص الذي قمت بحفظه في الأجزاء السريعة ( وليكن بسم الله الرحمن الرحيم ) لايقوم البرنامج بإدراج أي شئ فما هو الخطأ ....؟

الأخ الفاضل hat شكراً لمشاركتك ولكني كنت أعرف الطريقة الأولي وجربت الطريقة الثانية ولكنها لم تلبي طلبي ولكن الأخ طلحي قام بإرفاق صوره عليك الإطلاع عليها فهذه التي أريد التطبيق مثلها

الأخ الفاضل أعذرني لكثرة أسئلتي ولكن ماهي خطوات إدراج النص التلقائي لتظهر كما هو مبين في الصورة التي أرفقتها

للرفع

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

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

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

الأخ الكريم ياسر جزاك الله كل خير علي إهتمامك ومجهودك الرائع ولكن توجد بعض الملاحظات الصغيرة 1- الكود يقوم بتكرار الأسماء والأرقام التي تم ترحيلها إلي صفحة المستبعدين . والمطلوب ( أنه مهما تكرر الرقم والإسم معاً في صفحة الأساسيين أن يقوم الكود بمسحه من صفحة الأساسيين ولكن لايقوم بتكراره في صفحة المستبعدين ) ( أما إذا تكرر الإسم مع رقم مختلف يقوم الكود بنقله إلي صفحة المستبعدين في صف جديد ) ( معني ذلك أنه لايتم تكرار أي رقم موجود في صفحة المستبعدين مهما كان صفه يحتتوي علي أي بيانات ) Families Data-3.rar

للرفع

أخي الكريم ياسر الملف به بعض الملاحظات أولا .وجدت أن الكود كان يقوم بمسح الصفوف التي تم ترحيلها في شيت الأساسيين والمستبعدين أيضاً وذلك عند ترحيل صفوف أخري . ولقد قمت بالتعديل على الكود ليقوم بترك الصفوف المرحلة في شيت المستبعدين ولكن الكود لايقوم بترحيل أكثر من ثلاث صفوف وبعدها لايقوم بترحيل أي صف آخر Families Data-2.rar

المطلوب مسح محتويات الصف الذي تم ترحيله فقط والإبقاء على الصف كما هو

الأخ الحبيب Yasser Khalil جزاك الله كل خير علي هذا المجهود وسأعمل بنصائحك وهذا هو الطلب الثاني * كيفية ترحيل بيانات الصف الذي نقوم بكتابة أمامه نعم إلي صفحة المستبعدين ومسحه من صفحة الأساسيين .

للرفع للأهمية رجاءاً من الأخوة الأعضاء الكرام

ألا يوجد في هذا المنتدي من يستطيع الإجابة .......؟

للرفع

الأخ الكريم Yasser Khalil هذا هو الملف المطلوب التعديل عليه بيانات الأسر بالجمعية.rar

الأخ الكريم عبدالله بولنوار هذا هو المطلوب فعلا ولكن هل من الممكن Sub ÍÓÈ_ÇáÇÎÊíÇÑ() Application.ScreenUpdating = False Dim c As Range Sheet2.Range("b7:d300") = Empty For Each c In Sheet1.Range("chose") If c.Value = "äÚã" Then ' Z = Z + 1 lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1 Sheet2.Range(Sheet2.Cells(lstrow, "b"), Sheet2.Cells(lstrow, "i")) = _ Sheet1.Range(Sheet1.Cells(c.Row, "b"), Sheet1.Cells(c.Row, "i")).Value 'Sheet2.Cells(lstrow, "a") = Z: Sheets("ÇáÃÓÇÓííä").Select Range("b7").Select End If Next c MsgBox ("Êã ÊÑÍíá ÇáÕÝæÝ ÇáãÍÏÏÉ ÈäÌÇÍ"), vbDefaultButton1, " ÊÍíÇÊí à / ãÍÜãÜæÏ ÌÜãÜÚÜå " If b Then cel.EntireRow.Delete Set cel = Nothing End Sub 1- شرح لهذا الكود المرفق بالملف والخاص بترحيل البيانات مع شرح لخطوات تصميمه وذلك حتي أستطيع ويستطيع غيري كيفية القيام بعمل مثل هذا الكود . 2- مطلوب التعديل علي هذا الكود ليقوم بالآتي أ- ترحيل بيانات الصف الذي نقوم بكتابة أمامه نعم إلي صفحة المستبعدين ومسحه من صفحة الأساسيين . 3- طلب أخر هل من الممكن عند الترحيل يظهر مربع حواري لكتابة سبب حذف هذه الأسرة 4- وأخيراً عمل كود لعدم ترك الخلايا B:i فارغة وعند ترك خلية فارغة والقيام بإختيار كلمة نعم أو إجراء عملية الترحيل تظهر رسالة بذلك مع تحديد الخلية الفارغة .

الرابط لايعمل

كيف يمكنني رفع أي كود علي المنتدى من خلال موضوع جديد أو مشاركة ولكن بنفس طريقة عرضه داخل محرر الأكواد يعني مايبقاش Copy ، Past

للــــرفــع

للــــرفــع

للرفــع

لـلــــرفـــــــــع