عبدالله المجرب

كل عام وأنتم جميعا بخير

السلام عليكم و رحمة الله و بركاته كل عام و انتم بخير ================ يرجى الالتزام بقواعد المشاركة (العنوان المناسب) سيتم تعديل عنوان الطلب ============================ ضع مرفقك وتصورك وستجد من يساعدك فهذا اسهل واسرع لتجد الاجابة وشكراً

كل عام وانتي بخير أختي الفاضلة أم عبدالله بالعكس ان ينعكس ما تعلمته في المنتدى على عملك فهذا هو التميز وانا أشد على يدك في الاستمرار فعلامات الاحتراف بدات وان شاء الله ان تكون بييننا العضوة المحترفة الخبيرة وشكراً

السلام عليكم اختي الفاضلة أم عبدالله عمل مميز قمت بإضافة خاصية في ورقة بيانات الطالبات انه بالضغط دبل كليك في الخلية يتم كتابة (غ) وبالضغط مرة أخرى يتم مسحها جربي المرفق غياب الطالبات1.rar

السلام عليكم قمت بالتعديل على كود الاستاذ ابو حنين لإضافة رسائل تنبيهية واستخدمت مربع الأدخال للبحث عن الأسم بدل الخلية الصفراء جرب الكود واخبرني عن النتيجة Private Sub CommandButton2_Click() Dim Last As Long, i As Long, Lr As Long, ii As Long MySrchVal = Application.InputBox("بحث", "حذف", "ضع أسم البحث هنا") T = Application.CountIf(Range("C2:C" & Cells(Rows.Count, "A").End(xlUp).Row), MySrchVal) If T = 0 Then MsgBox "لأيوجد أسم مشابه": Exit Sub Else MyMsg = MsgBox(" هل ترغب بالحذف علماً بأنه لا يمكن إسترجاع البيانات بعد الحذف", 4, "تم العثور على الأسم") If MyMsg = 6 Then For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(i, 3) = MySrchVal Then Range(Cells(i, 1), Cells(i, 4)).Delete Shift:=xlUp: Exit For Next With Sheets("Sheet2") For ii = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If .Cells(ii, 2) = MySrchVal Then .Range(.Cells(ii, 1), .Cells(i, 3)).Delete Shift:=xlUp: Exit For Next End With End If End Sub

اعتقد بانه لا توجدجماية كاملة في الاكسل والله اعلم كل الشكر للاخوة الكرام على الافادة في هذا الموضوع

الصراحة كان بودي المشاركة لكني للاسف لم افهم طريقة استخلاص النتائج

اعتقد بأنه يقصد دالة VLOOKUP والله اعلم

ما شاء الله ما اروع مشاركاتك استاذ عبدالله

معادلة قوية من الاستاذ جمال ذكرتني لحل لنفس الفكرة بنفس الاسلوب للاستاذ الكبير يحيى حسين بارك الله فيك اخي جمال

تابعي هذا المنتدى وقومي بمتابعة الحلول التي ترد على الطلبات ولا تستعجلي الاحتراف ============ تمت الاجابة

السلام عليكم اليك الملف بعد تفعيل الحساب التلقائي وهو الحل الذي اشار اليه الاستاذان عباس السماوي وعباد error.rar

مبروك الترقية ومنها للاعلى وشكراً على الهدية

اعتقد بأنه كود والله اعلم

بارك الله فيكم فعلاً هذا المنتدى افضل منتدى بأعضاءه الذين يتفانون في تقديم كل ما لديهم شكرا

بارك الله فيك استاذ دغيدي

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

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

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

السلام عليكم هل ممكن شرح باللغة العربية لما تريده وخطوة خطوة وان شاء الله ستجد الحل

الاخوة الكرام goodcople سماء ملك قنديل الصياد zmzm شكراً لكم

ان شاء الله سيتم الوصول الى هذه المرحلة من الترحيل

شكراً لك اخي خالد وان شاء الله كلما توفر الوقت سارفع درس

بارك الله اخي مجدي

حياك الله اخي الفاضل تمت الاجابة