Giúp E: Copy Từ Sheet Này Sang Sheet Khác (1 người xem)

[nad582]

Em muốn coy dữ liệu từ Sheet "noiluc" sang Sheet "thuchanh" thì khi dữ liệu copy qua nó sẽ chạy từ ô "A7" đến ô "J7" rồi nó xuống hàng chạy tiếp đến khi hết dữ liệu của Sheet "noiluc" thì dừng lại. và trong Vba có sử dụng hàm Vlook của cột B vs H
E mong các anh chị trong GPE viết code giúp e!!
e mới học VBA nên chưa hiểu nhiều mong anh chị giúp đỡ!!!
Hình như trong code có sử dụng hàm "TargetRange.Offset(i, 0).." để cho khi copy nó chạy hết hàng trên rồi chạy xuống hàng dưới đến hết dữ liệu copy rồi dừng lại!!!!
Thank Anh, Chị nhiều@@@@@

 

[Quang_Hải]

Em muốn coy dữ liệu từ Sheet "noiluc" sang Sheet "thuchanh" thì khi dữ liệu copy qua nó sẽ chạy từ ô "A7" đến ô "J7" rồi nó xuống hàng chạy tiếp đến khi hết dữ liệu của Sheet "noiluc" thì dừng lại. và trong Vba có sử dụng hàm Vlook của cột B vs H
E mong các anh chị trong GPE viết code giúp e!!
e mới học VBA nên chưa hiểu nhiều mong anh chị giúp đỡ!!!
Hình như trong code có sử dụng hàm "TargetRange.Offset(i, 0).." để cho khi copy nó chạy hết hàng trên rồi chạy xuống hàng dưới đến hết dữ liệu copy rồi dừng lại!!!!
Thank Anh, Chị nhiều@@@@@

Copy hết vùng dữ liệu không chọn lọc thì hốt nguyên em đem qua, mắc mớ gì chạy từng dòng. Thử xem cái này được không

Sub copy_dulieu()
With Sheets("noiluc")
   .Range(.[A4], .[A65536].End(3)).Resize(, 3).Copy [A7]
   .Range(.[D4], .[D65536].End(3)).Resize(, 5).Copy [F7]
End With
With Range([C7], [C65536].End(3))
   .Offset(, 1).Formula = "=Vlookup(RC[-3],noiluc!R4C11:R15C14,3,0)"
   .Offset(, 2).Formula = "=Vlookup(RC[-4],noiluc!R4C11:R15C14,4,0)"
   .Offset(, 1).Resize(, 2).Value = .Offset(, 1).Resize(, 2).Value
End With
End Sub

 

[nad582]

Copy hết vùng dữ liệu không chọn lọc thì hốt nguyên em đem qua, mắc mớ gì chạy từng dòng. Thử xem cái này được không

Sub copy_dulieu()
With Sheets("noiluc")
   .Range(.[A4], .[A65536].End(3)).Resize(, 3).Copy [A7]
   .Range(.[D4], .[D65536].End(3)).Resize(, 5).Copy [F7]
End With
With Range([C7], [C65536].End(3))
   .Offset(, 1).Formula = "=Vlookup(RC[-3],noiluc!R4C11:R15C14,3,0)"
   .Offset(, 2).Formula = "=Vlookup(RC[-4],noiluc!R4C11:R15C14,4,0)"
   .Offset(, 1).Resize(, 2).Value = .Offset(, 1).Resize(, 2).Value
End With
End Sub

Anh ơi tại còn các cột tiếp theo em còn đặt các công thức nữa!! nên em muốn cho nó chạy từng dòng để em hoàn thành bảng tính của em để làm đề tài!!
cho em bổ sung thêm: Cột "a" chính là giá trị lớn nhất của ô "J2"
Cột "L" chính là giá trị lớn nhất của phần tử cột "A"..
Mong anh giúp đỡ em với!!! Thank very much@@@

 

[nad582]

Xin các anh trong GPE giúp em cái phần bổ sung đó ạ!!!
cảm ơn nhiều!!!!