Nhờ thêm code copy dữ liệu cho file đính kèm! (1 người xem)

[hoaak2005]

Hi mọi người!
Mình muốn nhờ mọi người thêm giùm đoạn code copy dữ liệu cho file đính kèm. Nghĩa là khi mình nhập số liệu ở sheet DataInput thì dữ liệu sẽ tự động cập nhật vào sheet Data theo từng ngày mình đã tạo ở đó.. Đã vọc vạch thử nhưng chưa thành công, mong mọi người giúp đỡ!! thanks thanks
PS: Pass VBA: hoaak2005

 

[nghiaphuc]

Hi mọi người!
Mình muốn nhờ mọi người thêm giùm đoạn code copy dữ liệu cho file đính kèm. Nghĩa là khi mình nhập số liệu ở sheet DataInput thì dữ liệu sẽ tự động cập nhật vào sheet Data theo từng ngày mình đã tạo ở đó.. Đã vọc vạch thử nhưng chưa thành công, mong mọi người giúp đỡ!! thanks thanks
PS: Pass VBA: hoaak2005

Với những gì đã có trong file thì code của bạn cần chỉ có 1 câu lệnh thế này:

Sheet2.[A:A].Find(Format(Sheet1.[A4], "dd-MMM"), , xlValues).Offset(, 1).Resize(20, 8).Value = Sheet1.[A8:H27].Value

 

[hoaak2005]

Với những gì đã có trong file thì code của bạn cần chỉ có 1 câu lệnh thế này:

Sheet2.[A:A].Find(Format(Sheet1.[A4], "dd-MMM"), , xlValues).Offset(, 1).Resize(20, 8).Value = Sheet1.[A8:H27].Value

Thanks bạn! bạn có thể giúp giải thích đoạn code đó luôn giùm mình không!

 

[phucbugis]

Thanks bạn! bạn có thể giúp giải thích đoạn code đó luôn giùm mình không!

bạn vào các Link sau tham khảo nhé ! (tìm đến các phần Offset, Resize, Find)
- Kiến thức cơ bản về Visual Basic for Applications (VBA)
- Index - Lập trình với Form, controls và Objects
- Chập chững đến VBA!
Range, Cells, Offset, Union, Resize
Application Object
Thừa số chung cho nhóm dòng lệnh trong macro
- Tổng hợp về phương thức tìm kiếm FIND (Find Method)