Tạo macro: Khi ô điều kiện thay đổi thì vùng copy thay đổi (1 người xem)

[ThuyNguyenHN]

Chào các anh chị và các bạn!

Em có file VD-Copy.xlsx đính kèm: File có 2 sheet. Sheet1 là sheet data, sheet2 là sheet tổng hợp.
Em muốn tạo 1 Macro bên sheet2: khi Ô Q2 và R2 thay đổi vùng điều kiện thì khi nhấn nút Macro sẽ copy các vùng tương ứng đó từ bên sheet1 vào sheet2 (ở đây là copy B3:H9 của sheet1 vào B4:H10 của sheet2 và J3:N9 của sheet1 vào J4:N10 của sheet2).

Mong các anh chị và các bạn giúp ạ!

Em cảm ơn!

 

[nghiaphuc]

Chào các anh chị và các bạn!

Em có file VD-Copy.xlsx đính kèm: File có 2 sheet. Sheet1 là sheet data, sheet2 là sheet tổng hợp.
Em muốn tạo 1 Macro bên sheet2: khi Ô Q2 và R2 thay đổi vùng điều kiện thì khi nhấn nút Macro sẽ copy các vùng tương ứng đó từ bên sheet1 vào sheet2 (ở đây là copy B3:H9 của sheet1 vào B4:H10 của sheet2 và J3:N9 của sheet1 vào J4:N10 của sheet2).

Mong các anh chị và các bạn giúp ạ!

Em cảm ơn!

Code như sau (chưa xử lý vấn đề nếu địa chỉ tại các ô Q2 hoặc R2 không hợp lệ):
[GPECODE=vb]Sub CopyDL()
On Error Resume Next
Sheet2.Activate
Sheet1.Range([Q2]).Copy Range([Q2]).Offset(1)
Sheet1.Range([R2]).Copy Range([R2]).Offset(1)
End Sub[/GPECODE]

 

[ThuyNguyenHN]

Code như sau (chưa xử lý vấn đề nếu địa chỉ tại các ô Q2 hoặc R2 không hợp lệ):
[GPECODE=vb]Sub CopyDL()
On Error Resume Next
Sheet2.Activate
Sheet1.Range([Q2]).Copy Range([Q2]).Offset(1)
Sheet1.Range([R2]).Copy Range([R2]).Offset(1)
End Sub[/GPECODE]

Hay quá, thật là gọn nhẹ!
Cảm ơn Mr Hoàng Nghĩa Phúc!