MOURADIYAT

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

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

بسم الله الرحمن الرحيم كيف الحال أخي طارق أحببت أن أكتب لك اليوم لأبشرك بأنني إستطعت أن أفك لغز بلانامج الإجازات فالإشكال كان موجودا في الأمر التالي: range ("a").select وأنت كنت قد كتبتها بين عارضتين لذلك كانت تأتيني رسالة الخطأ تلك على كل حال شكرا لإهتمامك والى الملتقى في موضوع أخر وفي ساعة خير ان شاء الله

كيف الحال أخي طارق لقد قمت بمراسلتك قبل قليل على بريدك الإلكتروني وقد قمت كذلك بتتبع كل الطرق التي أمليتها عليا ولكن دائما نفس الإشكال قائم أمر حذف الجميع يعمل ولكن الفرز الأول والثاني لا يعمل وبعطيني هذا: Sub Filter50() ' Sheets("50day").Select Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents Sheets("Feuil1").Select Sheets("Feuil1").Unprotect (123) Range("A8:L529").Select Selection.AutoFilter ActiveSheet.Range("$A$8:$L$529").AutoFilter Field:=12, Criteria1:=">49", Operator:=xlAnd, Criteria2:="<100" Range("A8:L529").Select Selection.Copy Sheets("50day").Select [A1].Select << عندما أقوم بالنقر على فرز الأفراد ال\ين تجاوزو 50 يوما تظهر نافذة الأوامر وتكون هذه ملونة ActiveSheet.Paste Application.CutCopyMode = False Range("C3").Select Sheets("Feuil1").Select Selection.AutoFilter Range("E9").Select MsgBox ("&Ecirc;&atilde; &auml;&THORN;&aacute; &Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &atilde;&Ecirc;&Igrave;&Ccedil;&aelig;&Ograve;&iacute; &Ccedil;&aacute;&Uuml; 50 &iacute;&aelig;&atilde; &Aring;&aacute;&iacute; &aelig;&Ntilde;&THORN;&Ecirc;&aring;&atilde;")

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

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

أضن أن الإشكال لا زال قائما أخي طارق وقد حاولت إرفاق الملف برسالة الخطأ ولكنني لم أنجح رسالة الخطأ.rar

شكرا لك الأحبة الذين زادو من حماسي وإرادتي لإنجاز وإنجاح هذا العمل شكرا لكم

أخي طارق أضن أن البرنامج فيه خطأ فأرجو أن تقوم ب|إلقاء نظرة عليه لاتفتح النسخة التي معك بل التي وضعتها للتحميل على الموقع

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

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

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

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

بسم الله الرحمن الرحيم كيف الحال أحبتي الكرام أستاذي طارق كيف حالك وحال أهلك وأحبتك والله إستقنا للتواصل معكم وللكتابة اليكم ولكن أنت أدرى بالضروف الراهنة العسيرة أحببت أن أكتب لك اليوم بخصوص موصوع الإجازات الرائع هذا فبد أن أدخلته للخدمة وأثبت فعاليته الرائعة والعالية جدا إستنتجت بعض الأمور الناقصة فيه وبما أن هذا الجهاز لايحتوي على الأوفيس لكي أشرح لك من البرنامج مباشرة فإنني سأكتفي بسرد المحتوى هنا فقط: 01- البرنامج لا يدعم عملية الإنتقال للأشخاص ال\ين تجاوزو المدة المطلوبة فهو ينقل الأفراد الأوائل فقط ولنفرض أن القائمة بها حوالي 300 شخص فالأكيد أن المتواجدين في ذيل القائمة معنيون بالترحيل إن تجاوزو المدة المسموحة وقد قمت بالتغيير في الكودa8:l29 وعملت كل المطلوب إلا أن النتيجة لم تكن إيجابية 02- الإشكال الثاني هو عند وضع حماية للورقة وعند التنفيذ تأتي رسالة تخبر أنه تعذر نقل البيانات لأن المعني بالترحيل محمي أضن أنالتجربة كفيلة بكشف ما أريد قوله لك فأعذرني لأنني كنت أحاول أن أرفق الملف إلا أن الفلاش ميموري غير متواجد معي والجهاز لا يدعم الأوفيس وهو غير منصب فيه شكرا لتفهمك أخوك أبو حسام الدين

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