Liên kết dữ liệu cột giữa hai sheet (1 người xem)

[khamha]

Nhờ các bạn viết giúp mình cái code liên kết dữ liệu cột giữa hai sheet như sau:
1, Liên kết dữ liệu ở các cột: A,B,C,D,BU,CD,CE Từ dòng thứ 3 Của Sheet HS(Data)
2, Liên kết đến các cột: A,B,C,D,E,F Và G dòng thứ 3 Của Sheet "Theodoi"
Cảm ơn các bạn.

 

[khamha]

Nhờ các bạn viết giúp mình cái code liên kết dữ liệu cột giữa hai sheet như sau:
1, Liên kết dữ liệu ở các cột: A,B,C,D,BU,CD,CE Từ dòng thứ 3 Của Sheet HS(Data)
2, Liên kết đến các cột: A,B,C,D,E,F Và G dòng thứ 3 Của Sheet "Theodoi"
Cảm ơn các bạn.

Cái này mình dùng thử,bằng cách sử dụng Copy Và Paste Special _ PasteLink Cũng cho kết quả như ý,Nhưng nó chạy
chậm và dung lượng tăng nên.
Nhờ các bạn giúp viết Code cho mình với.Cảm ơn

 

[khamha]

Vấn đề này có giải đáp từ năm 2006:

Cách dùng phương thức Intersect:
Code:

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Range("A6:B100"), Target) Is Nothing Then
Sheets("S2").Range("B5:C99").Value = Range("A6:B100").Value
End If
If Not Intersect(Range("J6:L100"), Target) Is Nothing Then
Sheets("S2").Range("D5:F99").Value = Range("J6:L100").Value
End If
If Not Intersect(Range("N6:N100"), Target) Is Nothing Then Sheets("S2").Range("G5:G99").Value = Range("N6:N100").Value
If Not Intersect(Range("M6:M100"), Target) Is Nothing Then Sheets("S2").Range("H5:H99").Value = Range("M6:M100").Value
End Sub


của bạn: SA_DQ giải đáp
​

Đưa lên để bạn nào cần áp dụng vào công việc của mình.​

 

[SA_DQ]

Code của bài 3 là các fép gán

Thật tình chưa hiểu yêu cầu của bài 1 của bạn lắm. Bạn giải thích rõ hơn về "Liên kết"
Mình hình dung chỉ có thể là: Nếu ô này liên kết với ô kia thì 1 ô thay đổi trị sẽ kéo theo ô kia thay đổi.