عبد الفتاح كيرة

أخى habibsss الملف يعمل عندى بصورة جيدة وندوز 7 وأوفيس 2007 محاولة أخيرة حسب ما فهمت من رسائل الخطأ التى أوردتها عليك إضافة أداة النتيجة يدويا اذهب لمحرر الأكواد alt+f11 انقر userform1 ثم كليك يمين على شريط أدوات التحكم اتبع الصورة ثم http://posterous.com/getfile/files.posterous.com/mennah/z3hUmvsOfBZOITZYa1BNkY5j9ea3tFGL4fCKytT1ik6LNjbylvHKzMdGro1I/2.jpg

شكرا أخانا عبد الله على مساعداتك

أحد الحلول الشائعة دالة لتجميع النصوص =CONCATENATE(IF(B4<B3;B1;"");" ";IF(C4<C3;C1;"");" ";IF(D4<D3;D1;"");" ";IF(E4<E3;E1;"");" ";IF(F4<F3;F1;"");" ";IF(G4<G3;G1;"");" ";IF(H4<H3;H1;"");" ";IF(I4<I3;I1;"");" ";IF(J4<J3;J1;"");" ";IF(K4<K3;K1;"")) هذه عشر مواد شاهد المرفق دالة if 10-kemas.rar

الأخ منتصر حفظك الله كيف يمكن حساب الفارق بالأيام بين تاريخين أقصد باقى الأيام بعد حذف الشهور و السنين مكتملة كما فى إكسل بدالة datediff مثلا تاريخ أول 5 نوفمبر 66 الثانى 3 نوفمبر 2000 فارق الأيام أربده = 28 يوما و الشهور = 11 و السنوات = 13 هل يمكن تنفيذ ذلك فى معايير الاستعلام لحساب سن الطالب فى أول أكتوبر باليوم و الشهر و السنة جزاك الله خيرا

أخى abouelhssan بارك الله فيك

أخى الفاضل لعل الأستاذ خبور صاحب الملف الأصلى أجدر بمساعدتك وفقك الله

إذن جرب هذا نسخة من delet-kemas233.rar

أضفت سطرين للصق قبل الحذف عليك التأكد من عمل الكود delet-kemas.rar

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

فهمت ماكرو وليس وحدة نمطية فى الإكسل ماكرو يكون بالوحدة النمطية شكرا لكم

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

هذا عن الاسم فماذا عن المكان أين نضع هذا الكود؟

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

و جزاك الله خيرا - و شكرا لك

سؤال مهم ننتظر إجابات الخبراء

و الله سؤال مهم ننتظر الإجابة

راجعت الموضوع وجدت أن الأستاذ خبور حاول كثيرا فى هذا الأمر المشكلة ناتجة من أن خاصية البحث مخصصة أصلا للنصوص حتى لو بحثنا عن رقم فإنها تبحث عنه كسلسلة نصية سلسلة تبدأ من اليمين حرفا حرفا و التاريخ أصلا لا يعرفه إكسل كما هو عندنا بهذا الشكل بل يعرفه كرقممسلسل يبدأ من سنة 1900 فلو حولنا مثلا 18/9/2001 إلى رقم مسلسل سنجده 37152 من هنا تبدأ المشكلات و أنت لا تضمن هذا الملف أن يعمل معك أو أن يعمل على كل الأجهزة لذلك لا أحبذ التصميم على حل مشكلة كهذه و فوق كل ذى علم عليم و لعل أحد الإخوة يكون لديه حل شاف

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

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

تفضل Range("a1").Select Dim mySearch As Variant mySearch = InputBox("ÇßÊÈ ãÇ ÊÑíÏ ÇáÈÍË Úäå ") ' On Error GoTo 1 Cells.Find(What:=mySearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate If MsgBox("åá ÊÑíÏ ÍÐÝ ÇáÕÝ ÇáãæÌæÏ Èå ÇáßáãÉ ¿", vbYesNo, "ÊÃßíÏ ÍÐÝ") = vbYes Then ActiveCell.EntireRow.Delete Else Exit Sub End If 1 End Sub كود البحث عن كلمة فى الصفحة ثم حذف صفها.rar

ملف به استخدام 4 دوال مع تصفية متقدمة وفرز وقد اختصرت الدالة قليلا =RANK(F5;INDIRECT("$F$"&MATCH(E5;E:E;0)&":$F$"&MATCH(E5;E:E;0)+SUMPRODUCT(--($E$5:$E$144=E5))-1))+COUNTIF(INDIRECT("$F$"&MATCH(E5;E:E;0)&":$F"&(ROW()));F5)-1

ربما نسختك إنجليزية غير "ورقة1 إلى sheet1

مشكور جدا يا أخ وائل

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

السلام عليكم أخى الفاضل الأستاذ جمال الآن عرفت أنك لا تسأل عن شىء تافه بفضل الله اقتربنا من الحل الديناميكى معادلة تستخرج الترتيب لكل مدرسة على حدة بطريقة أوتوماتيكية ثم نقل البيانات الأول و الثانى لكل مدرسة للجدول المشكلة الباقية أن المعادلة الديناميكية أعادت التكرار مرة أخرى لدالة rank , و قد حاولت علاجها فلم أوفق لو ضبطنا الترتيب مرة أخرى فلا مشكلة فى الترحيل اطلع على الملف ولاحظ عودة التكرار فى دالة rank أخى الفاضل عبد الله وفقك الله وشكرا لثنائك الطيب جزاكم الله خيرا وهذه هى المعادلة الديناميكية =RANK(F5;INDIRECT("$F$"&MATCH(E5;E:E;0)&":$F$"&(MATCH(E5;E:E;0)+SUMPRODUCT(--($E$5:$E$144=E5)))))+COUNTIF(INDIRECT("$F$"&MATCH(E5;E:E;0)&":$F$"&(MATCH(E5;E:E;0)+SUMPRODUCT(--($E$5:$E$144=E5))));F5)-1 لو تمكنا من التغلب على التكرار فسيكون ملفا عظيما الأول والثانى-kemas2-منتظر.rar