ياسر خليل أبو البراء

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

الأخ الكريم إسلام أهلا بك ومرحبا في المنتدى بين إخوانك يرجى إرفاق ملف للعمل عليه ولتسهيل الوصول لحل سريع وصحيح إن شاء الله ... حاول أن توفر الوقت والجهد على إخوانك الذين يريدون تقديم المساعدة ..حيث أن تصميم الملف قد يستغرق بعض الوقت هذا من ناحية ، وقد لا يطابق الملف المصمم ما يدور بخلدك ..فرجاءً إرفاق ملف .. ومش معقولة هتتعامل مع الموبايل حتى لو فيه حد قدم مساعدة!!

جرب .. رغم إني مش مقتنع بالطلب بهذا الشكل ..لأن رقم الأسرة ممكن يتكرر لتعدد أفراد الأسرة الواحدة (هذا مجرد تخمين)..أنت أدرى بالملف مني عموما جرب Sub حسب_الاختيار() Application.ScreenUpdating = False Dim c As Range, Cell As Range For Each c In Sheet1.Range("K7:K" & Cells(Rows.Count, 2).End(xlUp).Row) If c.Value = "نعم" Then lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1 For Each Cell In Sheet2.Range("B16:C" & lstrow - 1) If Sheet1.Cells(c.Row, "B") = Cell Then Sheet1.Range(Sheet1.Cells(c.Row, "B"), Sheet1.Cells(c.Row, "K")).ClearContents: GoTo 1 Next Cell Sheet2.Range(Sheet2.Cells(lstrow, "B"), Sheet2.Cells(lstrow, "I")) = _ Sheet1.Range(Sheet1.Cells(c.Row, "B"), Sheet1.Cells(c.Row, "I")).Value Sheet1.Range(Sheet1.Cells(c.Row, "B"), Sheet1.Cells(c.Row, "K")).ClearContents Sheets("الأساسيين").Select Range("b7").Select End If 1 Next c MsgBox ("تم ترحيل الصفوف المحددة بنجاح"), vbDefaultButton1, " تحياتي أ / محـمـود جـمـعـه " Application.ScreenUpdating = True End Sub

جرب الملف التالي AutoFilter Criteria.rar

الشرط اللي أنت طلبته على الرقم والاسم معا إنت قلت ممكن الرقم يتكرر لكن مع اسم آخر !!!!!!!!!!!!!!!

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

يا عم والله حرام عليك تعبتني معاك اكتب كلمة نعم في العمود K ليتم استبعاده مش دا شرط الاستبعاااااااااااااااااااااااااااااد ....!! هاصرخ في وشك دلوقتي وأقولك إنت حبيبي والله

أولاً قم بالدخول لمحرر الأكواد واضغط على Reset من قائمة RUN لوقف عمل الكود حدد كل خلايا ورقة العمل ثم كليك يمين ثم التبويب Protection ثم علم علامة صح على الخيار Locked حدد الخلية التي بها النص المتحرك وكليك يمين والتبويب Protection وشيل علامة الصح من الخيار Locked قم بحماية الورقة .... انتهى

ألا يوجد متابعين ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!

أنا جربت الكود ويعمل معي كما طلبت تماما فلا يتم الترحيل إذا كان الاسم والرقم مطتابقين أو تم استبعادهما من قبل .......!!

تفضل أخي الحبيب ياسر الموضوع أبسط مما تتخيل فقط قمت بالغاء خاصية Locked من الخلية التي بها النص المتحرك كلمة السر 1 Moving Text During Protection.rar

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

أخي الحبيب محمود تفضل المرفق التالي Families Data V3.rar

الملف لا يحوي سوى صورة أخي ياسر

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

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

قبل عمل حماية للملف حدد كل الخلايا .. وعلم علامة صح على Locked .. وبعدين حدد الخلايا التي تريد التعامل معها فقط وشيل علامة الصح من الخيار Locked هذا حسب تحليلي للموقف

من المفترض أن تعمل الدالة في وجود الحماية .........!! ولذلك أطلب إرفاق ملفك للإطلاع عليه

في رأيي الشخصي هذا النوع من الأكواد يسبب ثقل في التعامل مع الملف وأنصح بعدم استخدامه مجرد رأي .. تقبل تحياتي

تفضل أخي الحبيب جرب الملف التالي به حلين : بالمعادلات وبالأكواد Find Multiple Strings.rar

أخي الحبيب ياسر ارفق الملف للتوضيح أكثر (ماذا تقصد بالتجميد)

الأخ الكريم جرب الملف التالي .. Remove Dupicates Based On Dates.rar

تفضل أخي الفاضل الملف التالي Validation List With No Blanks.rar

ارفق مثال أخي الفاضل لتتضح فكرة طلبك

الأخ الفاضل يوسف تفضل الملف التالي .. Muliply Two Columns.rar