Alttear

السلام عليكم اخواني الكرام .. طلب اضافة اعمدة من ملف الى اخر الشرط : نسخ العامود H مثلا و البحث في المجلد . ان وجد ملف اكسيل يساوي الاسم في الخلية الاولى يضاف العامود عليه والا ينشأ ملف جديد باسم اول خلية تقبلو تحياتي Add.rar

بصراحة حاولت و لم انجح بتصحيحعا فضلا لا امرا .. هلا تفضلت بالتعديل عليها و ان امكن جعل النطاق واسع لاكثر من ملف كان نقول الملف الاول 30 الثاني 50 ... و يقوم بخفظها تلقائيا

صحيح استاذي العزيز الملف M هو ملف الكود فقط و يقوم بقرائة الملفات الاخرى و تشغيل الماكرو عليها و عند الانتهاء من كل ملف يجب حفظه و اغلاقه ثم تشغيل الكرة من جديد و لكن على ملف مختلف السطرين في مكانهم الصحيح .. اليس كذلك ؟ و هل من اكواد اضافية تساعد في تسريع عمل الملف ؟ شكرا

السلام عليكم لدي الكود التالي اقوم باستخدتمه لتشغيل اكثر من كود في نفس الوقت Sub new_Change() Application.DisplayAlerts = False Application.ScreenUpdating = False pt = ActiveWorkbook.Path NextFile = Dir(pt & "\") Do While NextFile <> "" If NextFile = "M.xlsb" Then GoTo 10 Workbooks.Open Filename:=pt & "\" & NextFile Application.Run ("Macro01") Application.Run ("Macro1") Application.Run ("Macro2") Application.Run ("Macro3") Application.Run ("Macro4") Application.Run ("Macro5") Application.Run ("Macro6") Application.Run ("Macro7") Application.Run ("Macro8") Application.Run ("Macro9") Application.Run ("Macro10") Application.Run ("Macro11") Application.Run ("Macro12") Application.Run ("Macro13") Application.Run ("Macro14") Application.Run ("Macro15") Application.Run ("Macro16") Application.Run ("Macro17") Application.Run ("Macro18") Application.Run ("Macro19") Application.Run ("Macro20") Application.Run ("Macro21") Application.Run ("Macro22") Application.Run ("Macro23") Application.Run ("Macro24") Application.Run ("Macro25") Application.Run ("Macro26") Application.Run ("Macro27") Application.Run ("Macro28") Application.Run ("Macro29") Application.Run ("Macro30") Application.Run ("Macro31") Application.Run ("Macro32") Application.Run ("Macro33") Application.Run ("Macro34") Application.Run ("Macro35") Application.Run ("Macro36") Application.Run ("Macro37") Application.Run ("Macro38") Application.Run ("Macro39") '========================= ActiveWorkbook.Save ActiveWorkbook.Close 10 NextFile = Dir() Loop Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub العملية باكملها تاخذ كثيرا من الوقت و عندما اقوم بتشغيل الاكواد يدويا واحدا تلو الاخر تصبح العملية اسرع فهل من خطا معين في الكود او من طريقة تقوم بتفريغ الرامات عند تشغيل الكود التالي ,, حيث ان الاكواد ليست مرتبطة ببعضها

تمام استاذي العزيز لكن بعض الملفات تحوي اكثر من عامود واحد هل يمكن جعل Col مساوية لاخر Col مضاف اليها 1 شكرا

تمام استاذي الكريم الفكرة بسيطة تتضمن دمج جميع الملفات التي تحوي نفس الرقم في ملف واحد تفضل الملف المرفق Merge.rar

up

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

السلام عليكم اخواني الكرام .. لدي العديد من الملفات واريد نسخ جميع الخلايا الى ملف واحد ( مع الحفاظ على الكومنت الذي بداخلها ) الملف الاول AAA الملف الثاني AAA (2) الملف الثالث AAA (3) وهكذا اريد دمجها لتصبح في ملف واحد شكرا

السلام عليكم استاذي الكريم ... قمت بتجربة الكود كما تفضلت بادراجه على الملف الاول و لكن ظهرت بعض الخطاء يرجى التفضل و بيان اين المشكلة test comment.rar

بعد تأكيد عمل ملف جيد جدا شكرا

اخواني الكرام الكود التالي من برمجة الاستاذ الكريم ياسر خليل يقوم بقراءة الكومنت و مسح اليوم الموجود فيها و كتابة يوم جديد حسب التاريخ الموجود حيث ان الايام كانت تكتب بطريقة خاطئة .. ارجو من احد الاخوة الكرام التفضل و القيام بالتعديل الازم حسب صيغة الملف التالي Comment Correctıon.rar

لك الحق في ماتقول .. شكرا لك على مجهودك معي

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

بارك الله بك اخي ياسر الفكرة ان نقوم بتصحيح اليوم الموجود في الكومنت ليصبح مساويا للتاريخ الموجود بجانبه شكرا لك على المشاركة الطيبة .. تفضل الملف المرفق يحوي شرحا عما اريد Comment Correctıon.rar

UP UP UP

هل الفكرة صعبة ؟

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

Up up Up

Up

السلام عليكم بعد ان قمت بتشغيل ملف الاكسيل على سيرفر اميركي اصبحت الايام مخالفة للتواريخ الموجودة في الكومنت هل لو سمحتم ملف Vba يقرأ التاريخ الموجود في الكومنت و يعدل على اليوم ليصبح مساويا للتاريخ المقرون به في الملف المرفق صيغة التاريخ الخاظئة و الصحيحة مع الشكر Kitap1.rar Kitap1.rar

up