فضلا مطلوب / كود نسخ اخر صف ولصقه في صفحة اخرى

[ابو راكان العودة]

السلام عليكم المطلوب كود يعمل بالضغط على زر امر يقوم بنسخ بيانات الخلايا في اخر صف فقط ولصقها في مكان معين في صفحة رقم 2 علما ان الصف الأخير متغير حسب ادخال البيانات وشكرا لكم

try.rar

[سليم حاصبيا]

جرب هذا الكود

Sub copy()
Sheets("ورقة2").Range("b12").Resize(, 7).Value = _
Sheets("ورقة1").Range("B" & Rows.Count).End(xlUp).Rows.Resize(, 7).Value
End Sub

 

[ابو راكان العودة]

جزاك الله خير اخ سليم

الكود ممتاز شكرا لك