تحياتي للجميع:
وبادئ الأمر أتفضل بالشكر للأخ: عماد خالد الحسامي على درسه الجميل فيما يخص "الترحيل بالأكواد"
ولكن ينقضني بعض التوضيح فيما يتعلق بالترحيل إلى ورقة أخرى/:
مثال- فيما يتعلق بالترحيل بنقل الخلايا دفعة واحدة،
Sub exam22()
Dim lastrow As Integer
lastrow = Range("j10000").End(xlUp).Row + 1
Range(Cells(lastrow, 10), Cells(lastrow + 2, 12)).Value = Range("n6:p8").Value
End Sub
ما هو التغيير الذي نجريه للنقل مثلا إلى الورقة المسماة "أرشيف"
وشكراً