Nhờ các anh chị giúp em code cập nhật dữ liệu nhưng thực hiện trên sheet với ạ (1 người xem)

[namkpac]

Nhờ các anh chị giúp em code cập nhật dữ liệu nhưng thực hiện trên sheet với ạ
Nội dung câu hỏi em soạn trong file luôn. cảm ơn anh chị trên diễn đàn.

 

[Ba Tê]

Giúp em giải quyết vấn đề lọc và nạp giá trị tương ứng sau khi chọn dữ liệu trong list cột C sheet "nhap" thì cột P sheet nhập sẽ lấy giá trị tương ứng nằm trong dữ liệu của cột C sheet "nguon". em xin cảm ơn.

Kết quả như hàm Vlookup() phải không?
Thử code này cho sự kiện Worksheet_Change trong sheet Giay nhap

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tem As Variant
If Target.Column = 3 Then
    If Target.Rows.Count = 1 Then
        Tem = Application.WorksheetFunction.VLookup(Target, Sheets("nguon").[A10:C78], 3, 0)
       Target.Offset(, 13).Value = Tem
    End If
End If
End Sub

 

[nguyenthuy13388]

.
Xem cách củ chuối ở file đính kèm nhé.

Em nghĩ bạn ý của bạn ấy là thế này:

 

[namkpac]

Kết quả như hàm Vlookup() phải không?
Thử code này cho sự kiện Worksheet_Change trong sheet Giay nhap

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tem As Variant
If Target.Column = 3 Then
    If Target.Rows.Count = 1 Then
        Tem = Application.WorksheetFunction.VLookup(Target, Sheets("nguon").[A10:C78], 3, 0)
       Target.Offset(, 13).Value = Tem
    End If
End If
End Sub

Hay quá đúng rồi thanks mọi người nhiều nhiều.