ماجدجلال

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

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

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

بارك الله فيك اخي العزيز اريد ان تظهر الرسالة عند اضافة بيانات جديدة ، لانه من المفترض عدم تكرار الاسم مرتين ، الله يوفقك و يسعدك ، ردك بعث الامل فيني شكرا لك

شكرا لك أخي عبد الله على مساعدتك الملف ممتاز جدا ولكن عند تعديله لإضافة دمج أكثر من خلية لم يعمل، حيث أن الفكرة تقوم علي دمج أكثر من خلية (الاسم الأول + اسم الأب + اسم الجد + اسم العائلة) في خلية واحدة. أشكرك من قلبي على إضافتك، وأرجو منك المساعدة أو من بقية الأساتذة الكرام... ‫التنبيه في حالة التكرار - نسخة.xls

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Exit Sub ' IF ITS A HEADER, DO NOTHING. On Error GoTo ErrHandler Application.ScreenUpdating = False Dim myDataRng As Range Dim cell As Range ' WE WILL SET THE RANGE (SECOND COLUMN). Set myDataRng = Range("F1:F" & Cells(Rows.Count, "F").End(xlUp).Row) For Each cell In myDataRng cell.Offset(0, 0).Font.Color = vbBlack ' DEFAULT COLOR. '-----------------------------------------MsgBox "áÏíß ÇÓã ãßÑÑ" ' LOCATE DUPLICATE VALUE(S) IN THE SPECIFIED. If Application.Evaluate("COUNTIF(" & myDataRng.Address & "," & cell.Address & ")") > 1 Then cell.Offset(0, 0).Font.Color = vbRed ' CHANGE COLOR TO RED. '------------------------ MsgBox "áÏíß ÇÓã ãßÑÑ" End If '---------------------------- MsgBox "áÏíß ÇÓã ãßÑÑ" Next cell '------------------------------ MsgBox "áÏíß ÇÓã ãßÑÑ" Set myDataRng = Nothing '------------------------------ MsgBox "áÏíß ÇÓã ãßÑÑ" ErrHandler: Application.EnableEvents = True Application.ScreenUpdating = True End Sub خلال الايام الماضية حاولت الاعتماد علي نفسي , و جربت وضع الرسالة في مواقع مختلفة و لكنها فشلت ,, ارجو منكم المساعدة , ربما يحتاج الي صياغة الكود من جديد

السلام عليكم ورحمة الله وبركاتة في الملف المرفق وجدت كود من موقع اجنبي يقوم بتلوين الخلايا التي يتكرر في الاسم اكثر من مرة , و ارغب في اضافة رسالة تنبية للمستخدم تفيد بوجود اسم مكرر , ولقد حاولت وضع الرسالة في الكود و لكني لم انجح , فقد كانت تتكر الرسالة مع كل عملية تحرير في الشيت , وهذا خطاء و ايضا تتكرر مع ادخال كل اسم و هذا خطاء المفروض انها تظهر فقط في حالة قيام الكود بتلوين الخلية فقط ,,, ارجو المساعدة وشكرا لكم Book1.xls

الف الف شكرا لك اخي العزيز بارك الله فيك

السلام عليكم ورحمة الله وبركاتة ,,, اخواني الاعزاء بارك الله فيكم جمعيا , في المرفق ملف بة الاسم مفصلة ( الاول و اسم الاب و اسم الجد و اسم العائلة ) كل اسم في خلية و خلية بها دالة CONCATENATE لتجميع الاسماء الاربعة في خلية واحدة , المشكلة انني وضعت خاصية ( التحقق من صحة البيانات ) وهي من هذا المنتدي وهي تعمل بشكل صحيح , الا انها في العمود الحالي لتجميع الاسماء لا تعمل ,, ارجو المساعدة اذا كان هناك حل افضل و شكرا لكم Book1.xls

تمام يادكتور ,,, ممتاز الله ينور عليك , هذا المطلوب و اكثر , واكثر منكذا روحك العالية واخلاقك الكريمة اذ تحملتني و علمتني , الف الف مليون شكرا

السلام عليكم ورحمة الله وبركاتة استاذي العزيز سليم من خلال مساعدتك الكثير لي و من خلال ما تعلمته منك استطعت اجراء تعديلات بيسطة في البرنانج السابق و عجزت من حل مشكلة كبيرة ارجو منك كرما التدخل , الملف المرفق به شرح اكثر وضوحا ارجو من معاليكم المساعدة و الف الف شكرا لك جزاك الله عني كل الخير 1520.xlsm

السلام عليكم ورحمة الله وبركاتة استاذ سليم ممكن تتحملني شوية , استطعت عمل تعديل واحدة فقط و هو مسح الاربع السطور و التي تقوم بحذف خلايا البحث الثلاثة عند القيام بالبحث في خلية واحدة , وهذا السطر هو Union(Range("D5"), Range("E5"), Range("F5")).ClearContents لانة عند البحث عن اسم وليكن مثلا محمد علي احمد هلال , فمن الطبيعي انك تبدا اولا بادخال اسم محمد فيتم عرض كل الاسماء التي اولاها محمد فقط , ثم يتم الانتقال الي الخلية المجاورة لادخال اسم الاب و هو علي فيتم عرض الاسماء التي هي فقط محمد علي , وعند الانتقال الي الخلية المجاورة لادخال اسم الجد وهو احمد فيتم عرض فقط الاسماء التي هي محمد علي احمد و اخيرا الانتقال الي الخلية المجاورة وادخال اسم العائلة وهو هلال فيتم فقط عرض الاسم الوحيد وهو محمد علي احمد هلال ,,,, الملاحظة الثانية : عندما قمت بحذف الصفحة الاولي وهي ( قبل البحث ) ظهر الخطاء التالي Set RGs = Source.Range("B8").CurrentRegion فتاكدت ان الاسماء تعتمد كليا علي الصفحة الاولي و لا نستطيع حذفها , وان الاضافة او التعديل يكون فقط في الصفحة الاولي , الملاحظة الثالثة : و قد عجزت ايضا عن حلها او اكتشافة سببها وهي ظهور اكثر من خلية نشطة في نفس الصفحة ارجو النظر الي الصورة , الخلية الاساسية هي E5 طبعا يظهر هذا الشكل عند كتابة اي اسم في مربعات البحث ثم خذفها و الذهاب الي خلايا اخري ,, معليش و الله حاولت الاعتماد علي نفسي للتعديل حتي لا ازعجكم و لكن ضاع اليوم باكلمة دون جدوي ,,, ارجو المساعدة و لكم جزيل الشكر و الامتنان

شكرا لك استاذ سليم الف الف شكرا

بارك الله فيك استاذ سليم لقد حاولت التغير في الكود بحيث يتم دمج الصفحتين في صفحة واحدة , يعني يكون عندنا جدول واحد فقط بحيث عندما تكون مربعات البحث الاربعه فارغة تظهر جميع البيانات , ارجو المساعدة .. حاولت الاعتماد علي نفسي حتي لا اثقل عليك و لكن دون جدوي

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

السلام عليكم ورحمة الله وبركاته الفكرة باختصار هي وضع عنوان الخلية كقيمة في متغير , و عند الذهاب الي خلية اخري . نقوم بتشغيل الماكروا فيقوم بالذهاب الي الخلية التي كان فيها سابقا ,, مثال : لنفرض اننا حاليا في الخلية ( A1 ) يتم حفظ عنوان هذة الخلية في الماكروا وعند الذهاب الي الخلية ( K35 ) يتم تشغيل الماكروا ليعيدنا الي الخلية السابقة وهي ( A1 ) ,,, ارجوا المساعدة ولكم جزيل الشكر و الامتنان المصنف1.xlsx

استاذي الفاضل الف الف شكرا لك , هذا ما اريد واكثر الله يبارك فيك ويسعدك ويوفقك الف الف شكرا

ماشاء الله تبارك الله وربي انك استاذ , الله يبارك فيك و يمتعك بالصحة و العافية و يزيدك من فضلة و علمة شكرا لك الف الف شكرا هذا هو المطلوب

استاذ احمد معليش استسمحك طلبا , كنت اعتقد ان الاكواد و البرمجة سهلة جدا لدرجة انني استطيع تعديل شي ما اذا اردت استبدال الاسم برقم الهوية , ليكون البحث برقم الهوية بدلا من الاسم , و الله انني حاولت و لكني فشلت مرارا و تكرار , ما حبت اني اتعبك و لكن ارجو المعذرة , الملف المرفق للتوضيح اظهار قيمة خلية في الفورم2 (1) (1).xls

الف الف شكرا يا استاذ احمد بارك الله فيك , و زادك من علمة وفضلة الف الف شكرا

السلام عليكم ورحمة الله وبركاتة استاذن من الاخوان و بالخصوص من الاخ العزيز ( احمد مزهر ) و الذي لة مشاركة او استفسار سابق , فقد عجزت عن التعديل في الكود , ليكون البحث في الفوورم علي اساس الاسم و ليس الرقم ,, رابط المشاركة السابقة : تعبت من فهم الكود و تعديله ليناسب حاجتي , ارجو منكم المساعدة و جزاكم الله كل الخير , هذا الملف المرفق و به شرح اضافي اظهار قيمة خلية في الفورم2 (1).xls

هذا ملف مرفق فية الشرح المطلوب , و اتمني ان يكون الشرح واضح . و اعتذر مرة اخري عن عدم ارفاق الملف .. المصنف1.xlsm

السلام عليكم ورحمة الله وبركاته ,,, بعد يوم وليلة من البحث و القراءة عجزت عن فهم الموضوع وارجو منكم المساعدة ,, اين يتم الاعلان عن المتغير العام في الاكسيل , طبعا نستخدم للاعلان عنة العبارة Public لكي يتم تنفيذة هذا الاجراء علي مستوي المصنف و ليس في وحدة نمطية محددة حاولت وضعة في الصفحة ThisWorkbook و لم ينجح و ضعته في Module و لم ينجح ارجو التوضيح وشكرا لكم

ممتاز الان نجحت الف الف شكرا بارك الله فيك

شكرا لك اخ سليم ولكني جربت كلا المعادلتين و كانت النتيجة في كلا الحالتين هي , هذة العبارة #VALUE! ممكن اخوي تطبقة علي الملف المرفق , وشكرا لك