ناصرالمصرى

السلام عليكم ورحمة الله وبركاته تحياتى للجميع وكل عام وحضراتكم بخير لديّ هذا الكود الذي ينسخ نطاقًا محددا من الأعمدة مع جميع التنسيقات من ورقة العمل الرئيسية إلى ورقة العمل الجديدة التي سيتم نسخ نطاق البيانات إليها مع إدراج خمسة صفوف فارغة بعد كل 25 صفًا لكنني أواجه صعوبة في إضافة بعض الاكواد التي يجب تضمينها فى هذا الكود للحصول على النتائج المرجوة في الصفوف الخمسة التي تم إدراجها حيث توقف تركيزى وتفكيرى عند هذا الحد من كتابة هذا الكود الذى يعمل بشكل جيد جدا عند هذة المرحلة لذلك أطلب من حضراتكم المساعدة فى إستكمال ما أريد تحقيقة فى هذا الموضوع حيث أحتاج الى **** إضافة صيغ الإجماليات بعد كل 25 صفًا في الصف الأول المدرج **** إضافة بعض السلاسل النصية كتوقيعات المسؤولين مثل ( أوفسينا - أوفسينا 1 - أوفسينا 2 - أوفسينا 3 - أوفسينا 4 ) في أسفل الجداول مباشرة في الصف الثاني المدرج . **** إضافة صيغ الإجماليات السابقة ( جملة ماقبله ) في الصف الخامس المدرج . أعلم جيدا أن كتابة كود يحتاج الى تركيز غالى وينبغى رفع موضوع لكل نقطة من النقاط الثلاثة المطلوب تحقيقها ولكن لكى تكمتل فكرة الموضوع أردت أن يكونوا فى موضوع واحد ... آمل أن أحصل على مساعدة حضراتكم فى هذا الموضوع لقد أرفقت عينة من المصنف تبين بوضوح ما أحاول تحقيقه في ورقة الإخراج المطلوب بعد إضافة الأكواد المتوقعة من حضراتكم شاكر فضل حضراتكم وجزاكم الله خيرا. Example.xlsb.xlsm

وعليكم السلام ورحمة الله وبركاته نعم هو كذلك جزاكم الله تعالى عنى خير الجزاء

السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم تعديل المعادلة المبينة بالخلية E2 على النحو المبين بالمرفق التالى شاكر فضل حضراتكم *** وجزاكم الله خيرا اوفسينا.xlsx

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

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

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

أخى الفاضل الاستاذ / فضل حسين بداية جزاكم الله خيرا وبارك فيكم ولا داعى إطلاقا على تقديم أى إعتذار العكس تماما أنا من يجب تقديم الاعتذار لأخذ جزء من وقتكم الثمين فجزاكم الله تعالى عنى خير الجزاء اعتقد أن هناك حلقة تكرارية بهذا السطر من الكود من بداية الصف الثامن وحتى الصف الــ 500 For i = 8 To 500 كيف يمكن تغيير هذا السطر لنجعله الى أخر صف به بيانات أو ماهى الجملة التى يجب تغييرها أو ماهو المقصود بالرقم 500 أعتذر لجهلى فى هذه النقطة ***** شاكر فضل حضرتك وجزاكم الله خيرا

للرفع

للرفع

شاكر فضل حضرتك أستاذى الفاضل / فضل على إهتمامكم البالغ لمشاركتى فى هذا الموضوع فجزاكم الله تعالى خير الجزاء **** نعم بالتأكيد هو المطلوب من حيث النتائج ولكن هناك بعض الامور الفنية التى حاولت العمل عليها دون جدوى لعدم خبرتى فى مجال الــ VBA ألا وهى من الضرورى وعلى حد علمى أنه يجب الاعلان عن المتغيرات Option Explicit فضلا عن جزئية اهتزاز الشاشة فى بداية ونهاية الكود النقطة الاخيرة وهى أننى لا أريد إستخدام أية Buttons لتنفيذ تلك العمليات الحسابية بقدر ما أريد أن تتم هذة العمليات تلقائيا فكيف يمكن تحقيق ذلك . أضفت فى هذا المرفق شرطا أخر مع أختلاف نطاق الجمع ولحالتيين فقط وهما يعملان بطريقة ممتازة من حيث النتائج لكنى فى حاجة الى ضبط النقاط التى نوهت عنها بعاليه هذا بعد طلب الإذن فضلا لا أمرا شاكر فضل حضرتك وجزاكم الله خيرا محاولة بالكود +1111.xlsm

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

السلام عليكم ورحمة الله وبركاته أحاول إنشاء معادلة لأكثر من خمسة عشر شرط بإستخدام الدالتين IF و AND لكنها بعد تنفيذ هذا العدد من الشروط ستكون طويلة جدا جدا وسأكتفى بعد طلب الاذن من حضراتكم بعرض ثلاثة شروط على النحو التالى **** لو الخلية 8A تحتوى على كلمة الاول وجملة النطاق من الــ B8 الى E8 أكبر من أويساوى 10000 لا تعطى شيئا أى فراغ وان لم يكن كذلك ( أقل من الـ 10000 ) فسيتم طرح مبلغ الــ 10000.00 من جملة النطاق من الــ B8 الى E8 **** لو الخلية A8 تحتوى على كلمة الثانى وجملة نفس النطاق أكبر من أويساوى 8000 لا تعطى شيئا أى فراغ وان لم يكن كذلك ( أقل من الـ 8000 ) فسيتم طرح مبلغ الــ 8000 من نفس النطاق . ***** لو الخلية 8A تحتوى على كلمة الثالث وجملة نفس النطاق أكبر من أويساوى 6000 لا تعطى شيئا أى فراغ وان لم يكن كذلك ( أقل من الـ 6000 ) فسيتم طرح مبلغ الــ 6000 من نفس النطاق . كيف يمكن تحقيق هذه المسألة بمعادلة مختصرة بطريفة أخرى **** أو كود برمجى يفوم بتفيذ هذة الشروط **** برجاء الاطلاع على المرفق التالى شاكر فضل حضراتكم وجزاكم الله خيرا محاولة.xlsx

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

السلام عليكم **** يبدو أننى لم أوضح جيدا لذلك أعتذر عن هذا الخلل برجاء الاطلاع على المرفق التالى لانىى أريد ضرب المبلغ المدون بالخلية G3 فى 25% ولكن بحد أقصى إذن لو المبلغ المدون بالخلية G3 أكبر من أو يساوى 1750.00 سيكون الناتج 437.50 وان لم يكن كذلك فسيتم ضرب القيمة فى 25 % وإظهار النتائج فى خليتين أحدهما للجنيهات والاخرى للقروش لذا أرجو الافادة وجزاكم الله خيرا فصل الجنيهات1111.xlsx

السلام عليكم ورحمة الله وبركاته أود مساعدتكم الكريمة فى الحصول على معادلتين بالخليتن H5 و G5 بشرط لو أن القيمة المبينة بالخلية I7 أكبر من أو يساوى 1750.00 جنيها أعطى 175.00 جنيها على خليتين أحدهما للجنيهات والأخرى للقروش غير ذلك يتم قسمة القيمة ÷ 100 ثم ضربها × 25% على خليتين أحدهما للجنيهات والأخرى للقروش برجاء الاطلاع على المرفق التالى **** شاكر فضل حضراتكم وجزاكم الله خيرا Book1.xlsx

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

السلام عليكم ورحمة الله وبركاته فى المرفق التالى عمودين فى "ورقة البيانات" أحدهما لكود مندوبى الشركة ومحله العمود A والثانى قائمة بأسماء مندوبى الشركة ومحله العمود G أرغب بعد إذن حضراتكم فى الحصول على معادلة بديلا عن دالة VLOOKUP لاستدعاء بيانات مندوبى الشركة فى "ورقة النهائى" اعتمادا على رقم الكود الذى يتم تسجيله يدويا فى الخلية C7 على أن توضع فضلا المعادلة المطلوبة فى الخلية E1 أو ربما لحضراتكم رأى أخر فى إستخدام دالة VLOOKUP لتحقيق هذة المسألة **** شاكر فضل حضراتكم وجزاكم الله خيرا VLOOKUP.xlsx

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

السلام عليكم ورحمتة الله وبركاته وكل عام انتم بخير بمناسبة عيد الفطر المبارك اعاده الله عليكم باليمن والبركات فى هذا الملف المرفق ورقتان الاولى هى " البيانات" والثانية هى " النهائى " في ورقة البيانات يحتوي العمود "A" على رقم كود لمندوبى الشركة أما فى ورقة النهائى يتم تسجيل رقم كود المندوب يدويًا في الخلية "B7" لاستدعاء بياناته المالية وكذا الاسم ورقم السيارة ورقم الهاتف الى أخره من البيانات بإستخدام الدالة VLOOKUP ومحلها الخلية C1 فى ورقة النهائى =VLOOKUP(B7;البيانات!$A$1:$B$11;2;0) وباستخدام الدالة INDEX و MATCH لاستدعاء البيانات المالية على هذا النحو =IF(INDEX(mayrange;MATCH(C1;mynames;0);11)="";"";INDEX(mayrange;MATCH(C1;mynames;0);11)) المشكلة التى تواجهنى هى كيف يمكن إستدعاء القيم على خانتين احدهما للقرش والاخرى للجنيهات مع استدعاء البيانات الخاصة بكل مندوب برجاء الاطلاع على ورقة النتيجة المطلوبة بالمرفق التالى فكيف يمكن تعديل هذه المعادلة أو ربما تغييرها أو كما تروه حضراتكم مناسبا ** شاكر فضل حضراتكم وجزاكم الله خيرا INDEX - MATCH.xlsx

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك نطمع فى اضافة أكواد الحذف والإضافة ( حذف طالب - إضافة طالب ) وجزاكم الله خيرا

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

نعم أخى ال 72 قرش هم منازل عشرية نتيجة جمع المبالغ التى أمام كل شرط من الشروط ومن ثم ضرب نتيجة هذا الجمع فى النسبة المئوية جمع الشروط الثلاثة = 8717.32 × 33% = 2876.72 والمطلوب هنا بعد طلب الاذن تعديل المعادلة بخلية القروش لتصبح دون منازل عشرية أو ربما هناك رأى أخر شاكر فضل حضراتكم وجزاكم الله خيرا

للرفع

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

للرفع