xem giúp em code trong file đính kèm. (1 người xem)

[VU_BAO]

Chào Anh Chị.

trong file em có 2 sheet ( ghi chép & cập nhật giá )

hiện tại em phải ghi trực tiếp bằng tay vào sheet ghi chép, sau đó xem ở sheet cập nhật giá của từng mã hàng trong ngày trước đó. mình có ý tưởng từ sheet cập nhật giá xem giá của ngày cũ sẻ ghi thêm giá của ngày hiện tại sau đó cập nhật vào đúng ngày & mã hàng đang xem. mình có làm thử mà chưa được anh chị xem giúp sửa lại giúp mình nha.

cảm ơn anh chị.

 

[Let'GâuGâu]

Chào Anh Chị.

trong file em có 2 sheet ( ghi chép & cập nhật giá )

hiện tại em phải ghi trực tiếp bằng tay vào sheet ghi chép, sau đó xem ở sheet cập nhật giá của từng mã hàng trong ngày trước đó. mình có ý tưởng từ sheet cập nhật giá xem giá của ngày cũ sẻ ghi thêm giá của ngày hiện tại sau đó cập nhật vào đúng ngày & mã hàng đang xem. mình có làm thử mà chưa được anh chị xem giúp sửa lại giúp mình nha.

cảm ơn anh chị.

tiêu đề của bạn như vậy chắc là bị khóa quá
thử chép cái này vào sheet4

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tenhang As Range, ngay As Long

If Not Intersect(Target, [a5:a10]) Is Nothing Then
Set tenhang = Sheet2.[b:b].Find(Target, , , 1)
ngay = Application.WorksheetFunction.Match([b4], Sheet2.[c3:ag3])
    If ngay Then Target.Offset(, 1) = tenhang.Offset(, ngay)

ElseIf Not Intersect(Target, [c5:c10]) Is Nothing Then
Set tenhang = Sheet2.[b:b].Find(Target.Offset(, -2), , , 1)
ngay = Application.WorksheetFunction.Match([c4], Sheet2.[c3:ag3])
    If ngay Then tenhang.Offset(, ngay).Value = Target.Value
    
End If
End Sub

 

[VU_BAO]

cảm ơn bạn nhiều nha.