احمدزمان

انا منساك لو تنسا = = = = = = = اخي الكريم المهم نتعلم طريقة ادخال التاريخ الهجري جرب التالي مثلا تاريخ 18/10/1431 اكتب قبله حرف A فقط ثم التاريخ بدون مسافات تلاقية اتحول الى تاريخ ميلادي اذا الإكسل استطاع ان يقرأة = = = = = = = من السهل تحويل التاريخ الميلادي الى هجري بسبب سهولة ادخال التاريخ الميلادي

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

أخي المحاسب بعد اذن الأستاذ الفاضل هشام وكما ذكر الأستاذ الفاضل عادل مرفق لرفع ملف اضغطة اولا بــ Zip ---- Rar اما للجمع استخدم الدالة Sumif مع التحية aymz.rar

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

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

السلام عليكم اخى الزير الف الف مبروك والى الامام دمتم بخير

وهذه صيغة اخرى للحل ولكن الأولى افضل Book1-.rar

السلام عليكم و رحمة الله تفضل Book1-.rar

طيب الحمد لله وشكرا لك

السلام عليكم شكرا لك اخي خالد عمل رائع وانجاز فعلا ومتعوب عليه جدا جزاك الله كل خير = = = = = وهذه نسخة بـ 2003 KHALED-2011.rar

بسم الله ماشاء اعمال رائعة ابداع × ابداع جزاكم الله كل خير

السلام عليكم و رحمة الله اخي الفاضل ابو نصار ارجو ان تسمحلي ان اسجل اعتراضي على هذا الجزؤ من الكود Range("b15000").End(xlUp).Select Range("aq1").Copy Range("A" & ":AZ").PasteSpecial Paste:=xlPasteFormats طيب ليه قلتلي لية في هذه الحالة انته سوف تنسخ لكامل الأعمدة من الأول لللآخر صف وهذا سوف يسبب كبر حجم الملف و ثقل الملف في التعامل و الحساب و الأفضل ان تضعه في السطر بعد تحديد القيمة X وقبل وضع تنسيق صف المجموع وتكون صيغته كـ التالي Range("aq1").Copy Range("A1:AZ" & X).PasteSpecial Paste:=xlPasteFormats وهكذا سوف يتم وضع التنسيق للمساحة المستخدمة فقط نع التحية و التقدير

السلام عليكم اخي المبدع مصطفى جزاك الله كل خير

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

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

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

السلام عليكم و رحمة الله وبركاته اخي الكريم هذا موجود في الملف اكتب في ورقة البحث خانة البحث عن - اكتب كلمة لا تقل عن 5 حروف تظهر لك النتائج آمل التجربة الفعلية وعليكم السلام و رحمة الله وبركاته وجعل هذا الدعاء لنا ولك و لجميع المسلمين الموضوع بدأهكذا يشعرني بالحماس المهم نحنة ممكن نحول صيغة التاريخ في الملف الى صيغة نص ميلادي بدل الهجري وكدة ممكن نبحث عن تاريخ محدد بطريقة محددة أرجو المعذرة ولكن فضلا اتحملني شوية وبدون زعل واضح من ردودك انك متعجل ولم تجرب الملف تجربة كافية - وهذه مشكلة لازم تعرف اولا امكانيات الحاجة الي عندك بالتجربة الفعلية طبعا عندنا رقم الصادر او رقم الوارد دائما يجب ان يكون متسلسل بالتوالي يعني من 1 وانته ماشي علشان كدة هوه هنا بيأخذ اخر رقم صادر في ورقة البيانات ويضيف علية 1 يعني انته لمن تحفظ رقم الصادر 100 بخطاب صادر رقم كذا المرة الي بعدها رايح يعطيك رقم 101 وهكذا ولاحظ الخانة الي فوقة تقدر تكتب رقم الصادر الى تبغاه ويجبلك بياناته اذا كان صدر من السابق اما اذاكنت تقصد عمل تقسيم للصادر مثل 100-01-925 فهذا موضوع آخر ويطول شرحة ويعتمد على تحديد انواع التقسيم و مسمياتها وغير ذلك يعني حاجة رايح تدوخنا وتحتاج تغيير في الملف من اساسة - يعني نبدأمن اول وجديد هذا الكلام مش فاهمة وانته طلبت ملف مفتوح علشان تغير فية زي ما انته عاوز الملف عندك مفتوح ضيف ماتريد و اربطة كما تشاء مع البيانات حسب احتياجاتك و متطلبات العمل لديك أما بالنسبة للرسالة فهذا التحقق من صحة DATA VALEDATION يمكنك الغائها من قوائم الإكسل وانا في انتظار اي استفسار آخر مع التحية

السلام عليكم Private Sub ComboBox2_Change() Range("a3:az" & Rows.Count).ClearContents 'ClearContents Application.ScreenUpdating = False [a3: ax2000].ClearContents shtMain.[a3:az3].AutoFilter shtMain.[a3:az3].AutoFilter Field:=6, Criteria1:=ComboBox2 shtMain.Range("A4:Az2000").SpecialCells(xlCellTypeVisible).Copy Range("a3").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False shtMain.[a3:az3].AutoFilter X = Range("b15000").End(xlUp).Row + 1 Range("IU2").Copy Range("A" & X & ":AZ" & X).PasteSpecial Paste:=xlPasteFormats Cells(X, "b") = "المجمـــــوع" Cells(X, "c") = Application.WorksheetFunction.SUM(Range([c3], Cells(X, "c"))) Cells(X, "an") = Application.WorksheetFunction.SUM(Range([an3], Cells(X, "an"))) Cells(X, "ao") = Application.WorksheetFunction.SUM(Range([ao3], Cells(X, "ao"))) Cells(X, "aq") = Application.WorksheetFunction.SUM(Range([aq3], Cells(X, "aq"))) Cells(X, "aw") = Application.WorksheetFunction.SUM(Range([aw3], Cells(X, "aw"))) [ba1].Select end sub نظرا لأنني وجدتك مستخدم الورقة كلها حتى آخر خليةIV لذلك تكون الخطة كـ التالي تروح للخلية IU2 تظبط تنسيقاتها كلها كما تريد من ارقام و الوان وخط وحدود ثم تستخدم هذا الكود رايح ينسخلك التنسيق الي سويته الى كامل الخلايا من A الى AZ لصف المجموع آمل التجربة و اخباري بانتيجة اهم شيء لاتنسى تنسيق الخلية IU2 مع التحية

السلام عليكم اخي ابو نصار ارجو المعذرة لم انتبه انك صاحب الطلب و اعتقدت انك تضع حل لصاحب الطلب بالكود المرفق اعذرني على تعجلي حددلي اين الكود الطلوب الإضافة له وسوف اعمل لك الفكرة باذن الله الفكرة التي ذكرتها لك سابقا وسوف تكون سريعة ومكونة من كود صغير اكرر :wub: اعتذاري :wub: مع التحية

جزاك الله كل خير يا ابتاه ابو احمد :biggrin:

اللهم لك الحمد و الشكر طمنك الله على من تحب

السلام عليكم اخي الفاضل عملتلك جزء منها وممكن تكمل الباقي بنفس الطريقة نسخة من Xl0000004.rar

اللهم انت تعلم كم تفضل علي هذا الرجل من علمة فأدعوك يا الله بكل اعماله الصالحة التي انت اعلم بها مني ان توفقه لكل خير وتمنع عنه وعن من يحب كل شر فانك تقدر و لا نقدر وتعلم ولا نعلم انك على كل شيء قدير وصلي اللهم على نبينا محمد و على آله وصحبه = = = = (ستأتى فتن على امتى كقطع الليل المظلم يصبح الحليم فيها حيران فيصبح فيها الرجل مؤمنا و يمسى كافرا ويصبح الرجل كافرا ويمسى مؤمنا يبيع دينه بعرض من الدنيا) حدثنا ‏ ‏عبد الرزاق ‏ ‏قال أخبرنا ‏ ‏معمر ‏ ‏عن ‏ ‏رجل ‏ ‏عن ‏ ‏عمرو بن وابصة الأسدي ‏ ‏عن ‏ ‏أبيه ‏ ‏قال ‏ ‏ ‏إني ‏بالكوفة ‏ ‏في داري إذ سمعت على باب الدار السلام عليكم أألج قلت عليكم السلام فلج فلما دخل فإذا هو ‏ ‏عبد الله بن مسعود ‏ ‏قلت يا ‏ ‏أبا عبد الرحمن ‏ ‏أية ساعة زيارة هذه وذلك في ‏ ‏نحر الظهيرة ‏ ‏قال طال علي النهار فذكرت من أتحدث إليه قال فجعل يحدثني عن رسول الله ‏ ‏صلى الله عليه وسلم ‏ ‏وأحدثه قال ثم ‏ ‏أنشأ ‏ ‏يحدثني قال سمعت رسول الله ‏ ‏صلى الله عليه وسلم ‏ ‏يقول ‏ ‏تكون ‏‏ فتنة ‏‏ النائم فيها خير من المضطجع والمضطجع فيها خير من القاعد والقاعد فيها خير من القائم والقائم فيها خير من الماشي والماشي خير من الراكب والراكب خير من المجري قتلاها كلها في النار قال قلت يا رسول الله ومتى ذلك قال ذلك أيام ‏ ‏الهرج ‏ ‏قلت ومتى أيام ‏ ‏الهرج ‏ ‏قال حين لا يأمن الرجل جليسه قال قلت فما تأمرني ‏ ‏إن أدركت ذلك قال ‏ ‏اكفف ‏ ‏نفسك ويدك وادخل دارك قال قلت يا رسول الله أرأيت إن دخل رجل علي داري قال فادخل بيتك قال قلت أفرأيت إن دخل علي بيتي قال فادخل مسجدك واصنع هكذا وقبض بيمينه على الكوع وقل ‏ ‏ربي الله حتى تموت على ذلك

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

النسخة المفتوحة موجودة في المشاركة رقم 11 من_هنا_للمشاركة المفتوحة عدل عليها ما تريد واضف ماتريد