Tôi muốn lấy giá vật liệu từ Biểu 01 sang biểu 02. (2 người xem)

[kyma]

Các bạn giúp mình lấy giá từ biểu 01 sang biểu 02 thì dùng công thức nào. Cái này mình chưa biết nhưng lại đang cần.

 

[SA_DQ]

Tối thiểu có 2 cách

Mình xin giới thiệu đến bạn cách VBA sẽ làm điều đó như thế nào

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns(3)) Is Nothing And Target.Count = 1 _
         And Target.Value <> "" Then
   Dim Rng As Range, sRng As Range, Sh As Worksheet
   
   Set Sh = Sheets("Bieu 01-XD")
   Set Rng = Sh.Range(Sh.[c7], Sh.[c65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Target.Offset(, 1).Value = "Nothing!"
   Else
      Target.Offset(, 1).Value = sRng.Offset(, 1).Value
      Target.Offset(, 3).Value = sRng.Offset(, 3).Value
   End If
End If
End Sub

(Hễ bạn nhập tên vật tư có trong Table 1 tại cột 'C' của Table 2 thì macro sẽ điền cho bạn 2 cột giá trị tương ứng với vật tư đó bên table 1)

Cách 2: dùng hàm VLOOKUP()

Chúc thành công!

 

[lelam.lam]

Mình nghĩ bạn nên dùng hàm vlookup() thì đơn giản hơn đó

 

[kellyfe]

bạn dùng vlookup đó bạn

 

[tuanlichviet]

Chào bạn Hải Yến tôi là TuanLichViet cám ơn đoạn Code của bạn tôi đã dùng thử chạy rất tốt . Tôi nhờ bạn giúp đỡ thêm đoạn code trên như thế nào để tôi có thế ví dụ: Tại cell A2 tôi nhập MSKhách hàng tôi được Điảchi , điện thoại vv tại Sheet( Danh mục khách hàng)và tôi muốn từ cell E2 tôi nhập MSHàng hóa tôi lấy dữ liêu ổ Sheet(" Danh mục hàng hóa") tôi lây được dữ liệu tương ứng cho các cell còn lại việc này tôi thử copy code của bạn 2 lần rồi sửa toàn báo lỗi xung đột nhau tôi không hiểu tại sao. rất mong bàn giúp đỡ trả lời cám ơn nhiều nhiệu.