طارق محمود

السلام عليكم أخي العزيز تفضل المرفق المتواضع لكنه يؤدي الغرض أنصحك بإستخدام الأوتلوك (وليس الأوتلوك إكسبريس) فإمكانياته في هذا المجال كبيرة وبه كالندر (نتيجة) مميزة Reminder.rar

اخي العزيز sabri يمكنك عمل هذا بسهولة إذا كانت ملفاتك علي شكل جداول محورية Pivot Table كنت تعرضت لموضوع مماثل مع أخونا زياد مرفق ملف علي شكل جداول محورية Pivot Table وتلخيصا له فإن الورقة الأولي بها الحسابات يومية عادية ثم باقي الورقات الأربعة (غير الأولي) ، هي جداول محورية Pivot Table وبها توضيح الحسابات المنفصلة بأشكال مختلفة كلها معتمده علي الورقة الأولي للتجربة إذهب إلي أي من الورقات الأربعة (غير الأولي) ثم إعمل دبل كليك علي أي من أرقام الجدول لاحظ أنه سيتكون ورقة جديدة Sheet1 مثلا بها تفاصيل الرقم الذي ضغطت عليه طبعا تستطيع طباعتها ثم إلغاء الورقة الجديدة كليا لأن البيانات الأصلية موجودة بالورقة الأولي وموجود أيضا تلاخيص لها بالورقات التالية جربها Accounts_TEST.rar

السلام عليكم تفضل المرفق أخي معتز للعلم تم تفصيل الماكرو علي هذه الحالة فقط test2.rar

السلام عليكم مرفق ملف إكسل به شرح مبسط لعلامة الدولار أرجو أن ينال رضاكم Dolar_Sign.rar

السلام عليكم ستقتصر مساعدتي الآن فقط في تنزيل الملف لباقي الأعضاء آسف لضيق وقتي مرفق الملف retirment.rar

السلام عليكم رجاء إرسال الملف علي إميلي الشخصي tarekmahmoud_2@hotmail.com

السلام عليكم أخي يحي جزاك الله خيرا دائما للإمام بإذن الله

في المنتدي أخي خالد إبحث قليلا وإن لم توفق سأشرحها لك إن شاء الله غدا

السلام عليكم أخي الكريم أسرع طريق هو عمل عمود علي يسار الجدول به عدد البيانات في الصف ثم عن طريق التصفية تختار 5 أي أن جميع بيانات بالصف موجودة وستختفي باقي الصفوف وتطبع أو تختار <> 5 أي جميع الإحتمالات الأخري وتطبع أنظر المرفق والصورة ______________2.rar

السلام عليكم أخي خالد / أخي أحمد بارك الله فيكما لاسحر ولاشيء كل الموضوع أن معظم مستخدمي التنسيق الشرطي سيتخدمون فقط صيغته البسيطة Cell Value is لكن إذا نقرت السهم بجوارها سيظهر لك خيار آخر وهو Formula is ومعناه أنك تربط تحقيق الشرط بفورمة (أو معادلة) أي أن المجال كذا مرتبط بالتغير الناتج من المعادلة وفي مثالنا أي خلية في العمود H (العدد) إذ زادت قيمتها أو قلت عن كذا ولضمان إرتباط امجال كله بما يناظره في العمود H فقط تم وضع علامة الدولار قبله في عنوان الخلية مما يجعل الخلية B8 ترتبط بـ H8 ثم C8 ترتبط بـ H8 وليس I8 راجع فوائد وضع علامة الدولار في عنوان الخلايا أنظر الصورة

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

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

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

السلام عليكم أخي أبوعاصم تفضل المرفق غير كما تحب في العدد وأنظر النتيجة Cond_Format2.zip

السلام عليكم أخي أسامة : أخي يحي جزاكما الله خيرا بس تعقيب بسيط علي حل أخي يحي فالحل يناسب المثال المضروب ولكن لو أن الخلية تحتوي علي أكثر من مقطعين مثل "AHMED 677 63636" أو لا تحتوي علي مسافات مثل"AHMED6727" لكانت النتيجة غير صحيحة لأن الحل يعتمد علي وجود مسافة في نص الخلية

أخي العزيز السلام عليكم كثير من أعضاء المنتدي ليسوا محاسبين ولايعلمون عن ضرائب الخصم من المنبع شيئا نرجو التوضيح لو سمحت

أخي العزيز new4a لو اردنا أن نزيد ورقة ثالثة :أسهل طريق أن تزيدها أولا يدويا وليكن إسمها EXCELENT لكي يتم ترحيل لهذه الورقة بشرط ثالث في الشيت الرئيسي فلنغير في العمودين L، M في الشيت الرئيسي ليتضمنا حالة الامتياز في النتيجة (3) علي سبيل المثال في نفس الورقة من يزيد عن 560 يكون إمتياز ثم تضيف هذا الجزء التالي للكود قبل نهايته ' New Sheets("Total").Select Selection.AutoFilter Field:=12, Criteria1:="3" Range("B3").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("EXCELENT").Select Range("B2").Select ActiveSheet.Paste Selection.End(xlToRight).Select ActiveCell.Columns("A:A").EntireColumn.Select Selection.Delete Shift:=xlToLeft Cells(1, 1).Select ' End New أنظر المرفق ملحوظة : هذا الرد أيضا يصلح لأخونا : الحديثة حيث يمكن إضافة مايشاء من شروط وورقات العمل FALL_SUC2.rar

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

السلام عليكم أخي العزيز asneet أخي العزيز سالم الشيباني بارك الله فيكما وجزاكما كل الخير

السلام عليكم أخي العزيز وأستاذي العظيم / أبو أسامة حل رائع ومبدع كعادتك كل ماتخطه والله ينال رضاي جزاك الله كل خير

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

السلام عليكم إخواني الأعزاء عذرا إنشغلت عنكم لم أتوقع كل هذه الردود سأرد عليكم بالترتيب أخي: samnaj00 لو رجعت للسطر الذي قبل هذا السطر لوجدت أنه Selection.End(xlToRight).Select أي أخر إختيار كنت فيه إذهب منه لآخر خليه لليمين يتغير فيها الحال والمقصود أنه إذا كنت في خلية فارغة فسيذهب لليمين .End(xlToRight) حتي أول خليه غير فارغة وإن كنت في خلية غير فارغة فسيذهب لليمين حتي آخر خليه غير فارغة أي أن التالية لهذه الأخيرة فارغة وعلي هذا في حالتنا كنا عند الخلية B2 وحيث أن تنسيق الشيت من اليمين لليسار فإن الحركة سيكون لليسار وليس لليمين أي من الخلية B2 إلي C2 ثم .... حتي آخر خلية غير فارغة M2 وهنا ستكون هي الخلية النشطة ActiveCell ويكون الأمر التالي إلغاء العمود الذي به ActiveCell

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

السلام عليكم تفضل أخي المرفق ______2.rar

السلام عليكم أخي الفاضل :أيسم الأخ الكريم : الحديثة مرفق ملف به المطلوب أخي: الحديثة لفهم خطوات العمل إفتح محرر الفيجيوال بيزيك (ALT-F11) ثم صغر شاشته بقدر الإمكان ثم إجعل الماكرو خطوة بخطوة عن طريق F8 فستري نتيجة كل خطوة علي شيت الإكسل كما بالصورة التالية FALL_SUC.rar