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

ده من ذوقك أخى بارك الله فيك ماذا بعد ؟

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

هذا موضوع مبارك ما أكثر زائريه جزى الله خيرا من قام برفعه أنا متواجد بمنتدى الإكسل أغلب الوقت أما الأكسيس فتركته منذ فترة لدى بعض التساؤلات لمن يجمعون بين الإكسل و الأكسس و هم غير قليلين 1- بم يمتاز أكسيس على إكسل 2 - متى لا يسد أحدهما مسد الآخر 3 - أيهما أسهل شيت إكسل أم قاعدة أكسيس 4 - أيهما أسهل برمجة إكسل أم برمجة أكسيس 5 - برمجة أكسيس هل أستفيد فيها من خبرتى فى برمجة إكسل بحيث تقصر الطريق ؟ 6 - أيهما أكثر مرونة؟ على أساس الإجابات سأبدأ فى دراسة برمجة الأكسيس بعد دراسة قواعد البيانات طبعا أو أصرف النظر و أكتفى بالإكسل جزاكم الله خيرا

تمام أخى أبا أحمد زد فى بداية الكود Application.ScreenUpdating = False وفى نهايته Application.ScreenUpdating =true

استخدمت التصفية المتقدمة المرفقات تقرير شهري kemas.rar

جزيت خيرا بارك الله فيك

السلام عليكم بعد إذن أخى المهندس طارق هذا ترحيل باستخدام التصفية المتقدمة يمكن تغيير التصنيف من الخلية أعلى الجدول فى صفحة ترحيل البيانات voolkub-kemas.rar

يمكن ساعات اليوم؟ - عفوا كتبت هذا لتفعيل متابعة الموضوع

هذه ال page(s) ما هى هل هى نطاقات أم صفحات ؟

عليكم السلام و رحمة الله أخى الفاضل و أستاذى الكبير عماد الحسامى جزاك الله خيرا على التعديل الكود يعطى نتائج صحيحة حسب طلب الأخ السائل لكن المفقود فعلا هى الأوراق الثلاثة الأخيرة التعديل بزيادة 3 إلى أقصى عدد الشيتات Sub ViewAfter4() On Error Resume Next For i = 8 To ThisWorkbook.Sheets.Count + 3 shn = Sheets(i - 3).Name Cells(i, 3) = shn Next i End Sub وفق الله الجميع kemas525.rar

أخى الفاضل أستاذ سعد عندما تضيف شيتا جديدا سيضاف تلقائيا للقائمة عند إعادة تنفيذ الماكرو بالضغط على الزر قيمة المتغير تبدأ من 8 وتصل إلى ThisWorkbook.Sheets.Count و هو عدد الشيتات فى المصنف جرب أن تضيف شيتا آخر ثم أعد تنفيذ الماكرو موفق بإذن الله

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

الأخ جمال شكرا كثيرا لك ولك مثل دعائك لى == الأخ azzam egy منبهر به و هو يسأل و يعلم نفسه أعتقد السؤال الثانى أسهل طب هل فى امكانيه لمسح علامه ْX بعد عملها سيكون التعديل فى جملة if If myc = "" Then تصير If myc = "x" Then myc = "" وفقك الله

عليكم السلام هذا كود لتنفيذ المطلوب Sub MakeX() Dim myrng As Range, myc As Range Set myrng = Range("kemas") For Each myc In myrng If myc = "" Then myc = "X" End If Next myc Set myrng = Nothing End Sub المرفق ابريل2011kemas.rar

مبسوط جدا من اللى يسأل و يتوصل للحل بنفسه

لا عليك يا أخى cat101 ليست المسألة كبيرة لهذه الدرجة بارك الله فيك

السلام عليكم اسمحوا لى بالمساهمة معكم هذا الكود يظهر أسماء كل الشيتات التى هى بعد شيت التقارير Sub ViewAfter4() On Error Resume Next For i = 8 To ThisWorkbook.Sheets.Count shn = Sheets(i - 3).Name Cells(i, 3) = shn Next i End Sub و يلصقها فى الجدول kemas55.rar

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

شكرا للجميع بارك الله فيكم

شكرا لك أخى الفاضل الأستاذ جمال أولا : معادلة ترتيب حسب الدرجات فى a4 بشيت الأسماء وهى من كنوز المعادلات لمعالجة التكرار فى دالة rank =RANK(D4;$D$4:$D$24)+COUNTIF($D$4:D4;D4)-1 ثانيا : معادلة لجلب الاسم حسب الترتيب فى شيت الأوائل باستخدام index - match =INDEX(الاسماء!$A$4:$D$24;MATCH(الاوائل!A7;الاسماء!$A$4:$A$24;0);3) ثالثا : جلب المجموع بنفس طريقة " ثانيا " =INDEX(الاسماء!$A$4:$D$24;MATCH(الاوائل!A7;الاسماء!$A$4:$A$24;0);4) المرفق أوائل - kemas.rar

جزاك الله خيرا

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

أشكرك جدا مهندس طارق بارك الله فيك

أشكرك جزيل الشكر أستاذ سعد عابد

أشكرك أستاذ احمد و هذا تعلمناه فى هذا المنتدى