(Nhờ giúp đỡ về code Marco) Chép dữ liệu ô này vào ô khác (1 người xem)

[nanogod]

Chào các Thầy và mọi người !
Xin giúp dùm đoạn code marco khi nhập dữ liệu vào một ô X thì nó sẽ copy ô Y và paste vào ô Z. Vui lòng xem file đính kèm để biết thêm chi tiết.
Xin chân thành cảm ơn !

 

[SA_DQ]

Bạn thử cái này xem có đúng ý mình không?

Const SoDong As Integer = 9999
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Cells("C2:C" & SoDong)) Is Nothing Then
    Target.Offset(, 3).Value = [f1].Value
 End If
End Sub

 

[phulien1902]

Bạn thử cái này xem có đúng ý mình không?

Const SoDong As Integer = 9999
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells("C2:C" & SoDong)) Is Nothing Then
    Target.Offset(, 3).Value = [f1].Value
End If
End Sub

Có lẽ phải thay:

Cells("C2:C" & SoDong)

bằng:

Range("C2:C" & SoDong)

chú SA_DQ nhỉ.

 

[be_09]

Chào các Thầy và mọi người !
Xin giúp dùm đoạn code marco khi nhập dữ liệu vào một ô X thì nó sẽ copy ô Y và paste vào ô Z. Vui lòng xem file đính kèm để biết thêm chi tiết.
Xin chân thành cảm ơn !

Mấy cái đơn giản vầy sao không nghĩ đến cách dùng Link mà lại suy nghĩ đến code kiết chi cho nó mệt óc.

 

[SA_DQ]

Tác gia ghi rằng:
"Khi nhập dữ liệu vào ô C8 thì Marco copy dữ liệu của F1 (lúc này đã thay đổi) vào F8 "

 

[nanogod]

Đã làm thành công.
Chân thành cảm ơn 2 thầy SA_DQ và phulien1902 !