Ali Mohamed Ali

أوضحت لك من قبل هذا الكود يمسح فقط البيانات المتشابهة ولا يمسح الصف بأكمله اذا لم يشابه أو يساوى باقى البيانات

كيف لا يظهر وهذه هى المعادلة كما تريد ؟!!!!!!

اليك ما تريد كشف حضور.xls

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

تمام تفضل بس الناتج كده هيكون بالسالب krimo.xlsx

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

هو بالفعل فى أخر ملف أرسلته اليك فيه هذه المعادلة من فضلك شوف الملف E-H

عايز ايه الحرف الأول فى معادلة J

وعليكم السلام ممكن تجرب هذا اذا تشابه قيمة العمود (DH) مع العمود (JW).xlsm

أهلا وسهلا بك غة منتدانا الكريم تفضل لك ما طلبت كشــف حضور وغياب الطلاب أو موظف-.xls

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

تفضل نعم اسحب المعادلة الى الأسفل كما تشاء krimo.xlsx

السلام عليكم وبعد اذن الأستاذ محمد الدسوقى هذا حل بالمعادلات والأكواد تقسيم.xls

وعليكم السلام من الأفضل أن تقوم بإرسال الملف

ان شاء الله تفضل أخى krimo.xlsx

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

وعليكم السلام ممكن تجرب هذا التعديل-قبل-الاخير.xls

رائـــــــع جزاك الله كل خير وبارك الله فيك الى الأمام دائما أستاذى

وعليكم السلام هل تقصد هكذا krimo.xlsx

تفضل وهذا بالتنسيقات المصنف2.xlsx المصنف2.xlsx

وعليكم السلام تفضل أخى المصنف2.xlsx

وعليكم السلام أستاذى لقد أبدعت حقا كود رائع بارك الله فيك ولإثراء الموضوع هذا كود اخر-ولتفعيله: من قائمة Devloper ثم Macros وبعد ذلك تضغط على RUN فيخرج لك مربع حوارى تكتب فيه الإسم الذى تريده أن يكون صفحة جديدة change sheets name.xlsm

وعليكم السلام أخى الكريم من الأفضل أن ترسل ملف

هناك مشكلة فى تحميل الملف ممكن تجرب هذا الكود Option Explicit Sub HideEmptyRowsAndColumns() Dim X As Long, LR As Long With Application .ScreenUpdating = False Columns.Hidden = False: Columns.Hidden = True For X = 1 To Columns.Count If .WorksheetFunction.CountA(Columns(X)) > 0 Then Columns(X).Hidden = False Next X LR = Cells.SpecialCells(xlCellTypeLastCell).Row Rows(LR + 1 & ":" & Rows.Count).Hidden = True For X = 1 To LR If .WorksheetFunction.CountA(Rows(X)) = 0 Then Rows(X).Hidden = True Next X Application.Goto Range("A1"), True .ScreenUpdating = True End With End Sub

ممكن تجرب هذا ملف 1 & ملف 2.rar