Em lại làm phiền chútEm có một file sẵn (xem tại đây ) có thể

https://drive.google.com/file/d/1XKyb..." target="_blank">

https://drive.google.com/file/d/1XKyb...

Thầy xem link ở cuối thảo luận này nhé. Em cám ơn thầy

Chào bạn phần gộp file bạn xem file này hoặc chương 10

https://drive.google.com/file/d/1ZfKQ...

Còn phần lấy đơn giá bạn có thể code như sau tại sự kiện sheets

Code ghi dữ liệu tự động

Sub Ghidongiatudong()
     Dim i As Long
    If Sheets("THEM_MOI").Range("C15").Value = "Tu dong" Then
        Dim dc As Long
        dc = Sheet5.Range("B" & Sheet5.Rows.Count).End(xlUp).Row
        For i = 10 To dc
            Sheet4.Range("C16").Value = Sheet5.Range("G" & i).Value
        Next i
    End If
End Sub

khi bạn chọn ô c15 là tự động sẽ tự động cập nhật giá còn không bạn nhập tay, ngoài ra bạn có thể yêu cầu bắt lỗi khi lưu nhé.

thưa thầy,

Em thử copy công thức của thầy nhưng kết quả nó lại ghi mỗi giá ở dong cuối cùng của sheets "BANG_GIA". 

Ý em là khi chọn tên hàng thì nó sẽ cập nhật luôn giá theo ngày gần nhất trong BANG_GIA

Chào bạn bạn cần if dk tên hàng = nữa nhé trước vòng for là được

Chào thầy, thầy có thể hướng dẫn cho em rõ hơn về điều kiện tên hàng ko, em chưa hiểu lắm. Em cảm ơn thầy

Chào bạn nó sẽ như sau

Sub Ghidongiatudong()
     Dim i As Long
    If Sheets("THEM_MOI").Range("C15").Value = "Tu dong" Then
        Dim dc As Long
        dc = Sheet5.Range("B" & Sheet5.Rows.Count).End(xlUp).Row
        For i = 10 To dc
           if(dk) then
              Sheet4.Range("C16").Value = Sheet5.Range("G" & i).Value
          end if
        Next i
    End If
End Sub

Với dk chính là phần so sánh nhé.