احمد_محمود

لو تفضلت بالتوضيح اكثر بارك الله بك

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

UP

السلام عليكم لدي العديد من الملفات اريد دمجها جميعا في ملف واحد Sheet 1 فقط ,, هل هذا ممكن ؟

UP

تفضل اخي الكريم Copy.rar

UP

صديقي ,, ليس هذا المطلوب المسألة عملية نسخ للأعمدة من الملف الاول و الثاني و الثالث ,,,,,,,,,, الى الملف الاخير و لصقها في ملف جديد الاعمدة المطلوبة من كل ملف هي من G و حتى BT

ملف اكثر من رائع ,, جزاك الله خيرا لكن اريد عملية تجميع للملفات ملف واحد يحوي عشرات الملفات و بداخله الاعمدة من G حتى BT لكافة الملفات

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

السلام عليكم ارغب بدمج عدة ملفات في ملف واحد بحيث تنسخ الأعمدة من G حتى BT فقط هل من طريقة بسيطة ؟!

السلام عليكم اريد استخراج الكومنت من عدة خلايا و ادخالها على انها كومنت IF(AND(A1=1,A2=1),INSERTCOMMENT(A1+A2),notequal) هل هذا ممكن ؟!

شكرا لك من القلب استاذ طارق وفرت عليي الكثير من الوقت و الجهد لك مني خالص الامتنان و التقدير

لك مني خالص الامتنان و التقدير قصدت بتغير الاحقة ان نحفظ الملفات بصيغية جديدة مع الحفاظ على الاسم الاصلي اي باستعمال ActiveWorkbook.Saveas

للأسف لدي مايقارب ال 300000 سطر و على مايبدو ان الملف يحتاج ما يقارب ال 4 دقائق ليتم العملية هل علي ان افعل شيئ ما لجعله اسرع ؟ و سؤال اخر من بعد اذنك ,, هل يمكن تغير لاحقة الملفات ايضا الى .xlsb

شكرا لك استاذ طارق ملف اكثر من رائع و يعمل بصورة جميلة هل من الممكن جعله يقرأ حتى اخر سطر ؟ حاولت تغير قيمة LR الى LR = [b999999].End(xlUp).Row و لكن الملف "يجمد" عند العمل

السلام عليكم لدي العديد من الملفات و احتاج الى تعديلها جميعها وفق هذه الخطوات 1- حذف الاعمدة D,E 2- خلايا العامود D = B - C مع الحفاظ على القيم دون المعادلة 3- ضرب العامود C ب 100000 4- حذف العامود B هل من طريقة لجعل جميع الملفات تتعدل بشكل ألي ؟

شرح مبسط قيم متغيرة تعديل.rar

UP

و عليكم السلام بارك الله بك أخي الكريم اعذرني ان كان شرحي غير واضح , الملف رائع و لكن سنضيف عليه شرط المتتالية سنأخذ القيمة الاولى B2 = 50 و نضعها في متتالية باضافة القيمة المطلوبة ليصبح لدينا 10 - 20 - 30 - 40 - 50 - 60 - 70 - 80 - .... فان كانت B3 اكبر او تجاوزت B2 على الشكل 50+10 = 60 عندها نضع "اكبر" و تصبح القيمة الأولية الجديدة هي 60 حسب المتتالية الان ننظر الى القيمة B4 فاذا كانت اكبر من B3 على الشكل 60+10 = 70 نضع اكبر و تصبح القيمة الأولية الجديدة 70 اما اذا كانت B4 هي ناتج طرح 60-10 = 50 عندها نكتب "اصغر" و تصبح القيمة الاولية الجديدة هي 50

السلام عليكم اخواني احتاج الى ملف بسيط لمعرفة ما اذا كانت الارقام تتجه أعلى او اسفل قيمة ثابتة على الشكل التالي : لدينا قيمة و لتكن 10 , المطلوب : ننظر الى القيمة B2 و نضيف و نطرح منها هذه القيمة "10" فاذا كانت B3 ( اكبر من أو تجاوزت ) B2 مضاف اليها +10 نكتب اكبر وان كانت B3 ( اصغر من أو تجاوزت ) B2 مطروح منها -10 نكتب اصغر ---------------------------------------------------------------------------- بعد البدء سنضيف ثلاث اضافات باذن الله , لم اضعها لسهولة الشرح مرفق ملف يوضح المطلوب قيم متغيرة.rar