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

و عليكم السلام و رحمة الله و بركاته حياك الله أستاذ جمال ملف جميل جدا ما شاء الله شكرا لك

ربما ينفع هذا http://www.officena.net/ib/index.php?showtopic=34743

التحقق من صحة البيانات ضع الشرط التالى =COUNTIF($C$5:$C$64;C5)<2 لاحظ عمود الرقم فى المرفق فاتورة-kemas.rar

تفضل هذا التعديل Example1-kemas99.rar

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

ضع المعادلة التالية فى e4 من الورقة الثانية =ورقة1!E5+ورقة1!F5 و فى e5 =ورقة1!E6+ورقة1!F6

مرحبا أخى قصى شكرا لك

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

بعد تغيير التنسيق يجب إعادة كتابة الأرقام ليأخذ التنسيق الجديد شكله المطلوب

استهوانى السؤال فأغرانى بالمشاركة فأعددت هذا الكود لجمع الخلايا المملوءة بلون أصفر تفضل هذا كود لجمع الخلايا الصفراء باستخدام المصفوفة Dim mysum(1000) As Long Dim myrng As Range Dim myc As Range Dim i As Long Set myrng = Range("a1:a1000") i = 0 For Each myc In myrng If myc.Interior.ColorIndex = 6 Then mysum(i) = myc.Value Total = Total + mysum(i) i = i + 1 End If Next myc Range("b3") = Total Set myrng = Nothing End Sub جمع الخلايا الملونة باستخدام المصفوفاتkemas.zip

تفضل على عجالة جلب البيانات-KEMAS.zip

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

حاجة جميلة يا أستاذى شكرا لك

محاولة أخرى لكنها تظهر عند تصفح الأوراق فى نافذة الطباعة من نافذة إعداد الورقةالثانية تبويب صفحة من أسفل ترقيم الصفحة الأولى اكتب مثلا 5 وهو الرقم التالى لآخر صفحة فى الورقة الأولى

عند اختيار طباعة المصنف بكامله ستأخذ الصفحات التسلسل المذكور

حيا الله الأستاذ سعد بارك الله فيك نحن هنا كلنا نتعلم من بعض شكلك بتذاكر كويس :biggrin2:

نعم فهمتك تم التعديل Example1-kemas.zip

شاهد هذا الفديو

تفضل Example1-kemas.rar

السلام عليكم و رحمة الله

عليكم السلام و رحمة الله يمكنك استخدام الفلترة المتقدمة لعمل ذلك بسهولة جرب المرفق ملحوظة : تم حذف القوائم المنسدلة لأنها تخفى قيمة الخلية و هذا شرح للتصفية المتقدمة الجزء الأول Customers-kemas.rar

هذا ماكرو لجلب مدير الإدارة فقط ابواحمدkemas2.zip

لكن هذا الكود ليس فيه listbox الحمد لله أنك وجدت ضالتك

شكرا للدعوات بارك الله فيك

إبداع سعادة المراقب زادك الله علما ونفع بك