عبد الله السعيد

بارك الله فيك على تعبك استاذنا الفاضل المحترم

اشكرك شكرا جزيلا كنت اريد للمجلدات ذاتها

السلام عليكم لدي في ملف البيانات الكثير من الفولدارات والتقسيمات هل هناك من طريقة للتلوين للتفرقة بينهم

جزاكم الله خيرا بارك الله فيك تم بالفعل

بارك الله فيك

السلام عليكم لدي ملف عبارة عن عمليات يومية ، ومهم لدي تاريخ العمل ، احيانا يتم كتابة تاريخ غلط في يوم مختلف ، مثلا اليوم 11 ديسمبر يتم كتابة يوم اخر فكما في الملف المرفق التاريخ يكتب في D1 والعمود الذي اسفله D يتم نسخ إليه البيانات يوميا ، فأحيانا بعض الموظفين يكتبون التاريخ غلط فأريد مثل المثال المرفق ، انه اذا رأى في عمود محدد ان التاريخ مختلف عن ماهو في D1 يقوم باحتسابه في مثالي هذا تم كتابة تارخين خطأ فاحتسبهم 2 اعلاه S.xlsx

بالفعل اخي الغالي ربما الملفات لدي فيها مشكلة

D.rar هذا ملفات افتراضية فارغة للتسهيل بارك الله فيك

اخي الغالي انا بالفعل عملت فولدر على سكح المكتب واسمته D ووضعت به كما في الصورة ، وفتحت الملف الفارغ ووضعت به الكود وطبقت الكود وجائت في النهاية رسالة Done ولكن عند فتح المجلد CSV وجدته فاغ ولم يتم تحويل الملفات

هل هناك طريقة سريعة لتحويل العديد من الملفات اكثر من 10 ملفات الى صيغة csv بدلا من فتح كل ملف وتحويله بمفرده

الحمد لله

في انتظارك بارك الله فيك واعانك على مساعدتنا

تمت التجربة اخي الغالي بنجاح ولكني لو سمحت انا اريد التعديل الان في المصطلحات لتكون ( الرقم تم التعاقد عليه ) ( الرقم لم يتم التعاقد عليه ) ( الرقم غير موجود ) وهناك مصطلحات اخرى استخدمها ايضا ( الرقم مؤمن بالفعل ) ( الرقم غير مغطى ) ( الرقم غير متاح ) انا اريد ان اعدل في المعادلة كما اريد ، ولكني لم استطيع التعديل في المعادلات اعلاه

السلام عليكم ، لدي قائمتين من الارقام في عمودين ، اريد عند المقارنة بينهما ان يطلع 3 نتائج ( الرقم موجود ان وجد في العمود الأخر ) ( الرقم غير موجود ان لم يوجد في العمود الثاني ) ( لا يوجد رقم ان لم يتم كتابة رقم في العمود ذاته ) كما في الملف المرفق S1.xlsb

بارك الله فيك اخي محي على الحل الرائع وهل لي افهم معنى الكود باختصار بحيث لو اردت التعديل عليه مستقبلاً واشكرك اخي ابو ايسل على الفكرة الرائعة ايضاً

انا اشتغلت على الكود الثاني ولكني اريد ان اعمل اكثر من صفحة بحيث لو نسخت الصفحة لصفحة اخرى تقبل المعادلات ايضا بارك الله فيك Sub test() Dim count As Long With Sheets(1) count = InputBox("أدخل العدد المطلوب", "دخال") a = Application.Transpose(Array(Application.Transpose(Evaluate("row(1:" & count & ")")) _ , Application.Transpose(.Cells(1, 1).Resize(count)))) With Sheets(2) .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 9).ClearContents r = 1 For i = 0 To count / 3 Step 21 For ii = 1 To 8 Step 3 .Cells(2 + i, ii).Resize(21, 2) = WorksheetFunction.IfError(Application.Index _ (a, Evaluate("row(" & r & ":" & 21 + r & ")"), Array(1, 2)), "") r = r + 21 Next: Next End With End With End Sub

بارك الله فيك اخي الغالي بس انا نزلت الملف اللي ارفقته في اخر مشاركة ، به 3 صفحات ، ماذا عن صفحة الجدول الثاني ؟؟ وعند نسخ الكود الأخير ووضعته لم يعمل معي

جزاكم الله خيرا اخي الغالي محي هل لي ان احدد عدد الارقام فقط اللي اريدها ان تنقل للجدول

السلام عليكم لو سمحتم لدي ملف به ارقام جلوس طلاب ،، الأرقام تأتي لي في شكل عمود واحد فقط اريد ان انقل هذه الأرقام الى جدول مرتب بشكل افقي كما في الملف المرفق ، بحيث عند طباعتهم تكون الارقام مسلسلة خلال الصفحة الواحدة كما في الملف المرفق واريد ان احدد قبل النقل للجدول ماهو الارقام المسموح فقط نقلها الى الجدول ولكم خالص الشكر AA.xlsx

جزاكم الله خيرا

السلام عليكم لدي جدولين بجوار بعضهم البعض ، جدول 1 وهو 10 صفوف وجدول2 وهو 30 صف اريد اضافة صف في جدول 1 دون ان يضاف هذا الصف على جدول 2 كيف اقوم بذلك بارك الله فيكم T.xlsx

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

سلمت يداك يا غالي

اشكرك اخي الفاضل وتمت التجربة على ورقة 2 المرفقة في الملف ادناه ، يعطي النتائج صحيحة في المبالغ كما هو مبين ، ولكن في الاعداد ليس صحيح العمود الاول في العدد لا يعطي مظبوط ولا اعرف السبب على الرغم اني مطبق المعادلات وتم تظليله بالأحمر الأعمدة TT.xlsx

اخي انا اضفت الان لو سمحت فرع 1 و فرع 2 وكل فرع به المنتجات وطبقت الدوال اعلاه مع اضافة شرط الفرع يعطيني ايرور في المعادلة TT.xlsx