كيف أنسخ التغييرات من ملف إكسل لآخر بشكل تلقائي؟

يمكن استعمال المثال التالي كنموذج، وأظنه يصب في نفس ما تصبو إليه:

Set ws = Sheets("Sheet1")
ws.Range(ws.Range("J1:K1"), ws.Range("J1:K1").End(xlDown)).Copy
Sheets("Sheet2").Range("A1").End(xlDown).Offset(1,0).Paste

حيث:

Sheet1: هي الصفحة أو جدول إكسل.

المجال  (J1:K1) حيث خصصت الكلمة Rang لتعيين المجال الذي نريد تحديده لنسخه باستعمال الوظيفة Copy.

ثم ننسخه في الصفحة الثانية Sheet2 ابتداءً من الخانة A1.

المصدر:

• Dynamic range of data to paste into another sheet
• Copy Data to Another Worksheet with Advanced Filter