طلب من السادة الخبراء لعمل كود بسيط

[طارق_طلعت]

السادة الأفاضل

 

برجاء التكرم بمساعدتى لعمل كود للملف المرفق يقوم بالأتى 

الدخول على كل شيت و عمل Copy لأخر صف فى الشيت (من A حتى H كما هو ملون باللون الأصفر) ثم عمل paste لأول خلية بالشيت (A16 حتى H16)  ثم تفريغ البيانات المنسوخة فى الصف الأخير

تنفيذ هذة المهمة فى جميع شيتات الملف و التى تزيد عن 1000 شيت فى الملف الأصلى - اى نقل الصف الأخير بكل شيت الى الصف الأول مع العلم ان الصف الأخير يختلف فى كل شيت عن الأخر

 

و شكرا جزيلا للمساعدة

اصناف.xls

[طارق محمود]

السلام عليكم ورحمة الله

أخي الكريم

تفضل جرب الكود التالي

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.xlsm

[طارق_طلعت]

شكرا جزيل استاذ طارق

هو دى المطلوب بالضبط