طارق محمود

تفضل المرفق كشف رواتب2.rar

السلام عليكم أخي الفاضل / بن علية مرورك شرف عظيم ومشاركتك وسام علي صدر أي موضوع أخي العزيز / محمد تفضل الملف مضاف إليه كود للطباعة بدون سطور فارغة توزيع الارباح3.rar

السلام عليكم لغيت الأعمدة المساعدة وقللت طول المعادلات قليلا وهذا هو الكود بعد التعديل Private Sub CommandButton1_Click() On Error Resume Next For i = 3 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i Sheet1.[B1].Value = ComboBox1.Value Application.ScreenUpdating = False mnth = Sheet1.[B1].Value ' تسجيل إسم الشهر ' حلقة للورقتين 3،4 أي ' ta3lem,Amnn For sh = 3 To 4 With Sheets(sh) .Columns("B:U").EntireColumn.Hidden = False ' لاظهار كافة الاعمدة اولا 'اكواد لاخفاء الاعمدة حسب الشهر المطلوب For cc = 3 To 16 ' أرقام أعمدة الشهور If .Cells(5, cc) = mnth Or cc = 15 Then GoTo 10 Cells(5, cc).EntireColumn.Hidden = True. 10 Next cc End With Next sh '**************************************** On Error Resume Next For i = 4 To Sheets.Count Sheets(i).Select [c6:n3285].Locked = False ActiveSheet.Protect "1", True, True Next i '============= Application.ScreenUpdating = True Sheet1.Select Me.Hide End Sub وهذا المرفق ، تفضل sssssss.rar

السلام عليكم تفضل المرفق توزيع الارباح2.rar

السلام عليكم أخي الكريم الرد علي 1،2،3 نعم ولفهم معادلة المعدل (مثلا للطالب الأول) =((MAX(E6,H6)*$E$2)+(MAX(N6,K6)*$K$2))/($E$2+$K$2) فلنجزئها أي كالتالي = (A+B)/C حيث: A (الدور الاول) يساوي MAX(E6,H6)*$E$2) أي الرقم الأكبر من E6,H6 فإذا كان H6 فارغا (لاترجيح) فيكون الفيصل E6 وإلا سيكون مرجحا وستأخذ المعادلة H6 ، B (الدور الثاني ) يساوي MAX(N6,K6)*$K$2) تماما مثل السابقة ، C = $E$2+$K$2 الرد علي (4) عندك حق وأنت الآن فهمت المعادلة ، فلنضيف العمود G للجزء A السابق شرحه ولنضيف العمود M للجزء B بنفس الطريقة لتصبح المعادلة =((MAX(E6,H6,G6)*$E$2)+(MAX(N6,K6,M6)*$K$2))/($E$2+$K$2) وعند نسخها للأسفل ستجد الطالب الثالث = 55.5 الرد علي (5) من التنسيق تسطيع تظلل درجات المعدل بالماوس ثم بجوار علامة (,) وعلامة (%) الموجودين في أعلي قائمة الإكسل ستجد مربع به سهم لليسار مع 0.00 حاول أولا تعدل بنفسك علي الملف عندك إن لم تسطع فهذا المرفق به التعديل معدل طالب2.rar

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

السلام عليكم اخي العزيز أضفت كود يجمع البيانات كلها في شيت واحد اسمه Summary تفضل المرفق الشاحنات المتوقفة عن العمل2.rar

السلام عليكم بعد إذن أساتذتنا في الأكسس أخي الكريم إذا بحثت في منتدي الإكسل عن " قطع غيار" ستجد مواضيع قد تفيدك ، مثل: قطع غيار الموتسيكلات http://www.officena.net/ib/index.php?showtopic=44988&hl=%2B%D9%82%D8%B7%D8%B9+%2B%D8%BA%D9%8A%D8%A7%D8%B1 أو قطع غيار السيارات (شديد الشبه بما تريد) http://www.officena.net/ib/index.php?showtopic=12358&hl=%2B%D9%82%D8%B7%D8%B9+%2B%D8%BA%D9%8A%D8%A7%D8%B1 أو موضوع شامل للمخازن بأنواعها وتشمل قطع غيار السيارات http://www.officena.net/ib/index.php?showtopic=46059&hl=%2B%D9%82%D8%B7%D8%B9+%2B%D8%BA%D9%8A%D8%A7%D8%B1#entry273865

أخي السائل أرجو الإفادة : هل هذا كاف؟ أم تريد شيء آخر

السلام عليكم أخي العزيز راجع الموضوع التالي للأخ الغالي الأستاذ / عبدالله المجرب (أبوأحمد) http://www.officena.net/ib/index.php?showtopic=47534

السلام عليكم أخي العزيز تفضل المرفق المعادلات بالأعمدة الصفراء معدل طالب.rar

الحمد لله الذي بنعمته تتم الصالحات

السلام عليكم تفضل أخي المرفق به ماطلبت وزيادة زر لطباعة الكل مرة واحدة الحافز-نهائى2.rar

السلام عليكم أخي العزيز / يوسف السيد الموضوع بسيط يمكنك عملها بدون أكواد فقط لابد ان تكون متصل بالنت أولا إبحث علي النت (خارج الإكسل) عن الصفحة أو الموقع الذي عليه البيانات المراد استدعاؤها ثم سجل أو إحفظ أو إنسخ عنوان الموقع ثانيا من الإكسل - بيانات Data ثم Get External Data ثم From Web وفي أعلي القائمة ستجد المكان اللي تضع به هذا العنوان الذي سجلته في الخطوة السابقة ثم Go ثالثا بعد زمن قليل (قد يطول حسب سرعة النت وثقل الصفحة المرادة) ستتحمل الصفحة المطلوبة داخل القائمة وستجد معها أسهم صفراء صغيرة يزداد عددها حسب تعدد البيانات بالصفحة المطلوبة فتضغط علي الأسهم الملاصقة لجدول البيانات المرادة وتضغط Import في حالتنا هذه هنوان الصفحة المطلوبة هو http://www.cbe.org.eg/English/ وسيرتبط هذا الجدول من البيانات المستدعاة من النت بالخلية التي تقف عندها ويمكنك عمل الخطوات السابقة (فيما عدا الأولي) مع تشغيل تسجيل الماكرو أو بلا ماكرو ، فقط للتحديث في المستقبل كليك بيمين الماوس علي نفس الخلية واختر Refresh

السلام عليكم أخي العزيز قبل البدء في العملية لابد أنك تلاحظ أن كل كارت مطبوع في 28صف بالضبط خطوات التغيير في الورقة الأولي "ارقام الصنف" إتبع الخطوات التالية 01 ضع الأصناف الجديدة بنفس نظام القديمة 02 إن كان الرمز (كود الصنف) متسلسل فببساطة ضع الأرقام الجديدة في العمود L أسفل القديمة لأن الكود يستخدمها من هذا العمود وإلا فلتنقلها فالتصفية المتقدمة في الورقة الثانية إتبع الخطوات التالية 03 نسخ الـ 150 كارت (يعني من صف1 إلي صف 4200) واللصق بداية من الصف 4201 04 تحديد نطاق الطباعة الجديد A1:Q8400 05 تغير رقم الكارت الأخير في الكود الأول بدلا من 150 ليكون 300 06 لعمل فواصل صفحات لكل كارت (كل 28 سطر) تشغيل الكود الأول (لابد أن تكون بالورقة الثانية أثناء التشغيل) 07 تغير رقم الكارت الأخير في الكود الثاني بدلا من 150 ليكون 300 08 لتغيير عناوين الكروت (ليطابق الرمز بالورقة الأولي) : تشغيل الكود الثاني (لابد أن تكون بالورقة الثانية أثناء التشغيل) إرجع للورقة الأولي "ارقام الصنف" ثم إتبع الخطوات التالية 09 في السطر الأول من الكود الثالث غير رقم آخر صف من 162 إلي الرقم الحقيقي للآخر صف بالورة الأولي (في المثال المرفق 319) 10 لعمل اللينكات تشغيل الكود الثالث (لابد أن تكون بالورقة الأولي أثناء التشغيل) مرفق المثال وبه أصناف فرضية حتي 300 وتم إجراء تلك الخطوات عليه لو محتمل تغييرات قليلة في المستقبل يمكنك اتباع نفس الخطوات ولكن لو محتمل تغييرات كثيرة فيمكننا التفكير بتغيير نظام الملف والكود تفضل المرفق مبيعات ومخازن2013_3.zip

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

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

أول نوع xlsx ولكن لن يتم تفعيل مميزاته (اللي منها عدد الصفوف والأعمدة) قبل أن تقفل الملف وتعيد فتحه أنظر المرفق Save_AS_Excel2010.rar

السلام عليكم أخي العزيز حيث انك تشكو فلابد انك تقصد الموضوع http://www.officena.net/ib/index.php?showtopic=46684&hl= ولقد راسلتني وراسلتك علي الخاص وشرحت لك ظروفي ولم تقدر انشغالي طبعا انا تابعت الموضوع معك منذ مايقرب من شهرين ولو راجعت الفارق بين اول ملف (غير الخطأ اللي في اول مشاركة) وبين آخر ملف لاكتشفت كم الجهد والوقت المبذول في الموضوع ولو نظرت ايضا لعدم تحديد طلباتك من الاول لعلمت كم من الوقت كان ممكن يتوفر تذكر: صافي الكمية ثم صافي الكمية آخر حاجة ثم صافي الكمية آخر حاجة2 ثم صافي الكمية آخر حاجة3 ثم صافي الكمية آخر تعديل ثم صافي الكمية آخر تعديل3هاني ثم صافي الكمية آخر تعديل4هاني ثم صافي الكمية آخر تعديل5هاني ثم صافي الكمية الجديد ثم انظر جيدا ردي بالمشاركة 25 وكيف رددت انت بمشاركتك 26 ، 27 أخي الحبيب / لله الفضل والمنة علي كل عمل يعمله أي من الأعضاء لمساعدة الآخر ولندعوا الله ان يكون لوجهه الكريم ولكننا في النهاية بشر (أنا وأنت) وليس وقتنا ملكنا المهم دعنا لانبحث عن الأخطاء ولكن فلنبحث عن العلاج عليك بتحديد وفهم ماتريد بالضبط ولتطرحه في موضوع جديد ولاتوجهه لشخص محدد والله ياأخي ليس الموضوع شخصي ولكني مشغول وانت لاتساعد بتحديد ماتريد اعذرني مرة أخري وتقبل ودي واحترامي

الحمد لله ولاتنسي أن تحفظه بصيغة xlsm وليس xlsx حتي يحتفظ بالكود الامتداد xlsx لايحتفظ بالكود

ارسل الملف

عند الحفظ (F12) يظهر لك بالأسفل سطرين الأول به إسم الملف file name الثاني نوع الملف Save As Type إضغط السهم اللي بالسطر الثاني لتظهر لك الأنواع اللي ممكن تحفظ بها الملف

الأخت الفاضلة إرفقي ملف

حيث أنك تعمل علي 2010 وبصيغة xlsm فيمكنك ببساطة تغيير السطر LR = [C65536].End(xlUp).Row إلي LR = [C99999].End(xlUp).Row وتنتهي المشكلة هذا الرقم 99999 يعني رقم السطر اللي انت ضامن انه فاضي في آخر الشيت ومنه يتحرك المؤشر قافزا للأعلي حتي يجد خلية بها بيانات فيسجل رقم صفها في المتغير LR

المعادلات تعمل بنجاح فقط لابد أن يكون بالعمود السابق لكل معادلة أحد المدخلات المطلوبة لتظهر النتيجة أنظر المرفق General Ledger MRF Mar...rar