اسكندراني قام بنشر يونيو 23, 2016 قام بنشر يونيو 23, 2016 السلام عليكم ورحمه الله وبركاته كل عام والاساتذة الكرام وجميع اعضاء المنتدي الكريم بالصحه والعافيه بمناسبه شهر رمضان المبارك وجعلنا الله واياكم من عتقائه من النار ارجو من الاساتذه الافاضل المساعدة في الكود المرفق والذي حصلت عليه من خلال اليوتيوب في الانترنت لعمل بعض التعديلات عليه فكره عامه عن الكود فانه يقوم بتجميع البيانات من عدة ملفات الي ملف واحد رئيسي ولكن احتاج بعض الاتي الكود لا يعمل الا اذا كانت الملفات مفتوحه ارجو تعديله ليقوم هو بفتح وغلق الملف بعد نسخ البيانات منه كذلك ان يتم اضافه اسم الملف بجوار البيانات التي تم نسخها من كل ملف الي الملف الرئيسي Sub compin_data() For i = 2 To 17 Workbooks(i).Activate Workbooks(i).Sheets("sheet1").Range("a1:b" & Cells(Rows.Count, "a").End(xlUp).Row).Copy Workbooks("book1.xlsm").Sheets("sheet1").Activate Workbooks("book1.xlsm").Sheets("sheet1").Range("a" & Rows.Count).End(xlUp).Rows.Offset(2, 0).Select Selection.PasteSpecial xlPasteValues Next i Application.CutCopyMode = False Workbooks("book1.xlsm").Sheets("sheet1").Activate End Sub
ياسر خليل أبو البراء قام بنشر يونيو 25, 2016 قام بنشر يونيو 25, 2016 أخي الكريم الأفضل على الدوام إرفاق نموذج للملفات للعمل عليها أو قم بالبحث في المنتدى ستجد موضوعات مشابهة ..
صلاح الصغير قام بنشر يونيو 25, 2016 قام بنشر يونيو 25, 2016 (معدل) لعله المطلوب ترحيل من ملف الى ملف مغلق من اعمال ا / ياسر خليل Transfer Data To Closed Workbook YasserKhalil.rar ترحيل من ملفات مغلقة الى ملف مجمع مع تعرف اسم الملف المرحل منه نقل بيانات من ملفات مغلقة و نقل الاعمدة الى صفوف.rar Collect Data From Multiple CSV Workbooks Mokhtar V1.rar تم تعديل يونيو 25, 2016 بواسطه صلاح الصغير
اسكندراني قام بنشر يونيو 29, 2016 الكاتب قام بنشر يونيو 29, 2016 السلام عليكم ورحمه الله وبركاته الاستاذ الفاضل / ياسر خليل كل الشكر لمرورك الكريم مرفق ملف للعمل عليه وارجو منكم وضع شرح بسيط مع الكود لسهوله التعديل عليه حسب المتغريات المطلوبه وجزاكم الله خيرا الاستاذ الفاضل / صلاح الصغير اشكر ل اهتما مك بالرد ولكن المثال يتم النقل فيه لملف واحد وقد ارفقت ملف يحتوى على مجموعه ملفات يكون الملف الاساسي مثلا book1 وباقى الملفات المرفقه معه ومطلوب نسخ جميع البيانات من الملفات الاخرى الى المف الرئيسي وهى ملغقه New folder.rar
ياسر خليل أبو البراء قام بنشر يونيو 29, 2016 قام بنشر يونيو 29, 2016 أخي الكريم اسكندراني حاول تدرس الكود وركز على الأسطر المطلوب شرحها لنفيدك .. استخدم مفتاح F8 أثناء تشغيل الكود لتنفيذ الكود سطر بسطر لتتعرف على كل سطر على حدا تقبل تحياتي
اسكندراني قام بنشر يونيو 30, 2016 الكاتب قام بنشر يونيو 30, 2016 الاستاذ الفاضل - ياسر بالنسبه للكود الذى ارفقته فى اعلى المشاركه هو واضح لى ولكى قمت بوضع مرفق لتعديل هذا الكود ليقوم بنفس المهمه ولكن والملفات التى يجلب منها البيانات تكون مغلقه لانه حاليا حتى يقوم هذا الكود بعمله لابد من فتح جميع الملفات اولا ثم تشغيله ولكنى اريد تعديله ليقوم بنفس المهمه ولكن والملفات التى يجلب منها البيانات تكون مغلقه ويكون فقط الملف book1 هو المفتوح على ان يتم وضع اسم الملف الذى تم احضار البيانات منه فى خانه العمود المجاور للبيانات المنسوخه منه لا ادرى هل استطعت توصيل الفكرة ام لا بمعني يوجد عندي تقريبا 15 ملف باسم من test1 الى test 15 فيتم نسخ البيانات من الملف الاولى الى ملف book1 ولكي يتم التعرف من اى ملف وردت تلك البيانات يتم وضع اسم ملف test1 مثلا بجوار بياناته فى العمود المجاور لها وهكذا لجميع المفات معذرة للاطاله
صلاح الصغير قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 (معدل) اخى الفاضل جرب هذا الملف حدد النطاق فى الخانة الاولى DataCollector5.0.rar انظر الملف المرفق New folder (2).rar تم تعديل يونيو 30, 2016 بواسطه صلاح الصغير
اسكندراني قام بنشر يونيو 30, 2016 الكاتب قام بنشر يونيو 30, 2016 الاستاذ الفاضل / صلاح الصغير كل الشكر والتقدير لاهتامك بالموضوع والحقيقه الملف المرفق اكثر من رائع لكن به مشكله واحدة انه لابد من تحديد النطاق وهذا الامر يختلف من ملف الى اخر فبعض الملفات بها 100 صف والاخرى 150 والاخرى 50 مثلا فاذا تم تحديد نظاق معين ممكن ان يكون اقل او اكثر من البيانات الموجودة فى الملف لذلك ارجو فقط التعديل على الكود المرفق او عمل كود جديد يقوم فقط بالمهمه المطلوبه وذلك لحين قيام الاستاذ الفاضل محمد طاهر باصدار الجزء السادس من برنامج مجمع البيانات ويقوم بحل مشكل تحديد النظاقات فيه وارجو ان لا اكون قد اثقلت عليكم وكل عام وانتم بخير 1
صلاح الصغير قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 (معدل) اخى / اسكندرانى لا شكر على واجب انا فقط احاول المساعدة فعلا الكود يعمل على نطاق محدد و يمكن زيادة النطاق و لكن هذا يتطلب معرفة اكبر نطاق جربت اضحك على الكود و اقوله من a1:a اعطانى هذه الرسالة بالصورة البرنامج مهم فعلا و يحتاج الى اهتمام و تعديلات فى انتظار المساعدة من الاخوة الكرام تم تعديل يوليو 1, 2016 بواسطه صلاح الصغير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.