Ali994m قام بنشر سبتمبر 9, 2020 مشاركة قام بنشر سبتمبر 9, 2020 السلام عليكم أرجو المساعدة في اظهار اخر عشر خلايا تحوي بيانات من عمود في جدول في صفحة اخرى وجزاكم الله كل خير TEST.xlsx رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر سبتمبر 9, 2020 مشاركة قام بنشر سبتمبر 9, 2020 يمكنك تجربة هذا الماكرو البسيط غير اسماء الشيتات بالانجليزي حتى لا يحدث خطا Sub copy() sheet1.Range("a16:b25").copy sheet2.Range("h11:i20") End Sub 2 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر سبتمبر 9, 2020 الكاتب مشاركة قام بنشر سبتمبر 9, 2020 جزاك الله كل خير أخي لكن هذا الكود يعمل على نسخ خلايا محددة ثابتة المطلوب نسخ اخر خلايا تحوي بيانات أي أن الخلايا متغيرة . على حد علمي يجب ادخال End(xlUp) لكن لا أعرف طريقة اضافتها الى الكود رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 9, 2020 مشاركة قام بنشر سبتمبر 9, 2020 جرب هذا الملف (معادلات مطاطة حتى 100 صف و يمكن الزيادة) مع حرية احتيار عدد الصفوف المطلوبة ( 10 أكثر اقل ) Ali_m.xlsx 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر سبتمبر 9, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 9, 2020 اعتقد هذا يفي بالغرض 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان