طارق_طلعت قام بنشر مارس 10, 2019 مشاركة قام بنشر مارس 10, 2019 السادة الأفاضل برجاء التكرم بمساعدتى لعمل كود للملف المرفق يقوم بالأتى الدخول على كل شيت و عمل Copy لأخر صف فى الشيت (من A حتى H كما هو ملون باللون الأصفر) ثم عمل paste لأول خلية بالشيت (A16 حتى H16) ثم تفريغ البيانات المنسوخة فى الصف الأخير تنفيذ هذة المهمة فى جميع شيتات الملف و التى تزيد عن 1000 شيت فى الملف الأصلى - اى نقل الصف الأخير بكل شيت الى الصف الأول مع العلم ان الصف الأخير يختلف فى كل شيت عن الأخر و شكرا جزيلا للمساعدة اصناف.xls رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 السلام عليكم ورحمة الله أخي الكريم تفضل جرب الكود التالي Sub nn() For sh = 1 To Sheets.Count With Sheets(sh) LR = .[C9999].End(xlUp).Row .Range("A" & LR & ":H" & LR).Copy .[A17].PasteSpecial xlPasteValues With .Range("A18:H" & LR) .ClearContents .Interior.ColorIndex = xlNone End With End With Next sh End Sub ومرفق أيضا الملف وبه الكود اصناف2.xlsm 3 رابط هذا التعليق شارك More sharing options...
طارق_طلعت قام بنشر مارس 11, 2019 الكاتب مشاركة قام بنشر مارس 11, 2019 استاذ طارق شكرا جزيلا على الكود الجميل ده ارجوا عمل تعديل بسيط بأن يتم تفريغ اخر صف فقط فى الشيت و الذى تم نسخه فى اول صف فى الجدول من البيانات و ترك باقى الأسطر كما هى و شكرا مقدما رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 12, 2019 مشاركة قام بنشر مارس 12, 2019 تفضل أخي اصناف3.xlsm 1 رابط هذا التعليق شارك More sharing options...
طارق_طلعت قام بنشر مارس 13, 2019 الكاتب مشاركة قام بنشر مارس 13, 2019 شكرا جزيل استاذ طارق هو دى المطلوب بالضبط رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.