السلام عليكم ورحمة الله وبركاته
......................................
اخى سليم
اسمح لى بالمشاركه
...............................
اخى احمد
هل تقصد هكذا
جرب المرفق
...................
تقبل تحياتى
مثال 1.rar
السلام عليكم
أستاذى الفاضل / محمد يوسف
تفضل ما تريد
يمكنك ذلك من خلال الكود التالى
Sub ragab()
Range("S14").Copy
Application.ScreenUpdating = False
For I = 16 To 1012 Step 2
Range("S" & I).PasteSpecial xlPasteFormulas
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
سحب المعادلات.rar
السلام عليكم ورحمة الله وبركاته
الى جميع اعضاء منتديات اوفيسنا الصرح التعليمى العظيم
كل عام وانتم بخير بمناسبة عيد الفطر المبارك اعاده الله علينا وعليكم بالخير واليمن والبركات
واود ان ارسل تهنئتى بالعيد الى :
العالم عبدالله باقشير
المهندس طارق محمود
العبقرى جمال عبدالسميع
الاستاذ محمود الشريف
الاستاذ ابراهيم ابوليله
الاستاذ محمد ابوالبراء
الاستاذ بن عليه حاجى
والاستاذه ام عبدالله
والاستاذ ضاحى الغريب
استفدت منكم كثيرا وحتى ان لم اكن قد شرفت بالتعامل معك ولكن اتعلم منكم دائما
وجميع من لهم فضل علي فى هذا المنتدى كل عام وانتم بخير
وبهذه المناسبه اقدم لكم
=======================================
دفتر حضور بالاكسيل 2010
الفكره ماخوذه من مواقع اجنبيه وقد تم تعريب الملف وعمل تعديلات على الصيغ والمعادلات والتنسيقات
ويعرض تقرير للموظف
======================================
وارجو من الاعضاء من تصحيح اى خطا ان وجد
=====================================
لاتنسونا بصالح دعاؤكم
دفتر الحضور.rar
الخطأ الأول تم تصحيحه بتعديل مضمون الخلية M6 في أوراق الصفوف من الثاني إلى السادس من 2013 إلى معادلة تجلب العام من ورقة البيانات... أما خطأ عدم احتساب عدد المسيحيين في كل الصفوف فقد تم تصحيح المعادلات الخاصة باحتساب المسيحيين... تجد كل ذلك في الملف المرفق..
المرفق : برنامج قوائم 2015الفصول.rar
أخى الحبيب" محمد "
جميعنا قلنا ذلك سابقا ، لكثرة المشاغل من ناحية ، وعدم توفير الوقت لتلبية إحتياجات الزملاء من ناحية أخرى ولكن سرعان مانعود ولو بالقليل من الوقت
وذلك لأن المنتدى بمن فية أصبحوا جزئا لايتجزأ من الشخص
لذلك أعرف جيدا أنك ستعود ألينا ، ولكن أتمنى أن تكون هذه العودة سريعة
وفقك الله أخى الحبيب لما تحب وترضى
فأنت أصبحت لكل زملائك ملأ السمع والبصر
تقبل تحيات أخيك
السلام عليكم
بارك الله فيك لانك تخصنى بشرف المساعده فى هذه المنتدى
وارجو منك عدم ذكر اسماء معينه حتى تستفيد باكثر من حل من استاذتى فى المنتدى
تفضل اليك الحل ارجو ان يكون المطلوب
ساعات العمل(2).rar
الاستاذ الفاضل الاخ العزيز // مهتدى
السلام عليكم ورحمته الله وبركاته
السبب الحقيقى وراء هذا الاختلاف ان 99.9% فيما يعرض
من موضوعات متعلقه بموضوع المرتبات هى إجتهادات غير مدروسه
من السادة الزملاء الافاضل وجميعهم مدرسون لغرض فى نفس يعقوب
هذا الغرض هو الوقوف على صحة مايتم صرفه ومن هنا يأتى الاختلاف
تقبل وافر احترامى وتقديرى
بعد أذن أخى الحبيب ( إبراهيم )
يمكن عن طريق "DATA VALIDATION " أيضا تحقيق ماتريد بهذه المعادلة
1- من قائمة " DATA" إختر " VALIDATION " ثم " SETTINGS " ثم " ALLOW " ثم " CUSTOM " ثم فى " FORMULA "
2- ضع هذه المعادلة
=ISNUMBER(A1+0)*(LEN(A1)=14)
ونلاحظ أن المعادلة تمنع دخول النصوص ، وتكتفى بالأرقام فقط
3 - وفى "ERROR ALERT " ضع التحذير الذى تريده
تقبل تحياتى
السلام عليكم ورحمة الله وبركاته
الاستاذ الفاضل محمد رزق
داخل الكود هتلاقي السطر ده
For i = 2 To Sheets.Count
وده معناه انه بيعد من الورقة التانية الي اخر ورقة عندك
فممكن تخلي الاوراق المطلوب تنفيذ الكود فيها جنب بعضها وغير وخلي السطر ده مثلا
For i = 2 To 6
وده معناه انه هينفذ الكود على الاوراق اللي رقمها من 2 الي ورقة 6
اتمني ان اكون وصلتلك الفكرة
تحياتي لك
السلام عليكم ورحمة الله وبركاته
بعد اذن الاستاذ سليم حاصبيا
لاثراء الموضوع وعلى حسب فهمي لطلب الاستاذ محمد رزق اتفضل الملف المرفق
تحياتي لك
Book12_W.rar