أبو عبدالإله

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

أشكرك على مرورك العطر أستاذي القدير أبو البراء عندما وضعتها ظهرت لي رسالة خطأ في الصيغة

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

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

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

أعتذر وهذا هو الملف مرة أخرى : بيانات.rar

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

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

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

العذر فقد نسيت أنه محمي كلمة السر 98789 وهذا هو هنا بدون حماية بحث.rar

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

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

كل الشكر لكما على مشاركتكما وجهودكما . أسأل الله أن يكتب ذلك في ميزان حسناتكما .

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

أستاذي ياسر وضعت الكود وظهرت لي رسالة خطأ :

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

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

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

بارك الله فيك هذا النموذج 1.rar

السلام عليكم ورحمة الله وبركاته تحملوني أحبتي فالتلميذ لا غنى له عن أساتذته هل يمكن إضافة أمر وهو ( الاحتفاظ بنفس تنسيقات ومعادلات الصف السابق ) في هذا الكود وهو لإضافة صف : Sub CommandButton1_Click() Dim ws As Worksheet Dim lr As Long Set ws = ActiveSheet lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).EntireRow.Insert End Sub وفقكم الله ورعاك .

سهل الله لك صعب ويسر لك عسير ألف شكر لك ياغالي

السلام عليكم ورحمة الله وبركاته : يوجد كود رائع جدا لإضافة صف وآخر لحذف صف . ( استفدت منه بجهود الإخوان الأفاضل في هذا المنتدى ) حاولت أن أغير فيهما بحيث يكون كود اضافة صف يصبح لإظهار الصف ، وكود حذف الصف يكون لإخفاء الصف . ولكن لم أستطع فهل هذا ممكن أم لا ؟ وأتمنى أن كان ممكنا تعديلها ولكم كل الشكر والتقدير كود إضافة صف : Sub CommandButton1_Click() Dim ws As Worksheet Dim lr As Long Set ws = ActiveSheet lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).EntireRow.Insert End Sub كود حذف صف Sub CommandButton2_Click() Dim ws As Worksheet Dim lr As Long Set ws = ActiveSheet lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).Offset(-1, 0).EntireRow.Delete End Sub

مشاركة مميزة جدا هل من الممكن أن يتم التعديل على المعادلة ليكون اختيار العمود BC بدلا من العمود BG مع كل الشكر والتقدير

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

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