اظهار اخر عشر خلية من العمود في صفحة أخرى

[Ali994m]

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

في اظهار اخر عشر خلايا  تحوي بيانات من عمود  في جدول في صفحة اخرى  

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

TEST.xlsx

[عبدالفتاح في بي اكسيل]

يمكنك تجربة هذا الماكرو البسيط  غير اسماء الشيتات بالانجليزي حتى لا يحدث خطا 

Sub copy()
sheet1.Range("a16:b25").copy sheet2.Range("h11:i20")
End Sub

 

[Ali994m]

جزاك الله كل خير أخي 

لكن هذا الكود يعمل على نسخ خلايا محددة ثابتة المطلوب نسخ اخر خلايا تحوي بيانات 

أي أن الخلايا متغيرة .

على حد علمي يجب ادخال End(xlUp) لكن لا أعرف طريقة اضافتها الى الكود

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

جرب هذا الملف (معادلات مطاطة حتى 100 صف و يمكن الزيادة)
مع حرية احتيار عدد الصفوف المطلوبة ( 10  أكثر  اقل )

Ali_m.xlsx

[عبدالفتاح في بي اكسيل]

اعتقد  هذا يفي بالغرض 

Sub Copy()
    Dim LastRow As Long
    LastRow = Sheets("Sheet1").Cells(Rows.Count, "b").End(xlUp).Row
     Sheets("Sheet1").Range("A" & LastRow - 9 & ":B" & LastRow).Copy Sheets("Sheet2").Range("h11")

End Sub