Code tìm kiếm (tương tự Vlookup) ở nhiều Sheet (1 người xem)

[Excel365]

Nhờ các anh, chị giúp em viết code tìm kiếm ở nhiều sheet (giống như Vlookup)
Nếu tìm ở sheet TK không có sẽ tìm sang sheet TK2 sau đó điền vào sheet ATM
Trân trọng cảm ơn

 

[chuot0106]

Nhờ các anh, chị giúp em viết code tìm kiếm ở nhiều sheet (giống như Vlookup)
Nếu tìm ở sheet TK không có sẽ tìm sang sheet TK2 sau đó điền vào sheet ATM
Trân trọng cảm ơn

Bạn chỉ có 2 sheet "TK" và "TK2" thôi hay còn nhiều sheet nữa?

 

[ndu96081631]

Nhờ các anh, chị giúp em viết code tìm kiếm ở nhiều sheet (giống như Vlookup)
Nếu tìm ở sheet TK không có sẽ tìm sang sheet TK2 sau đó điền vào sheet ATM
Trân trọng cảm ơn

Dùng 2 cái VLOOUP tìm trên 2 sheet, lồng bên ngoài hàm IFERROR là được rồi, cần gì code!

 

[Excel365]

Bạn chỉ có 2 sheet "TK" và "TK2" thôi hay còn nhiều sheet nữa?

Dạ còn khoản 3 sheet nưa anh

 

[Excel365]

Dùng 2 cái VLOOUP tìm trên 2 sheet, lồng bên ngoài hàm IFERROR là được rồi, cần gì code!

Dạ cái này thì em cũng có làm thử rồi anh ạ.
Nay em muốn sử dụng code. Rất mong được các anh, chị giúp đỡ.
Trân trọng

 

[arexthena]

Dạ cái này thì em cũng có làm thử rồi anh ạ.
Nay em muốn sử dụng code. Rất mong được các anh, chị giúp đỡ.
Trân trọng

Mình thấy thầy ndu nói hợp lí rồi, ko biết mục đích của bạn là gì, còn nếu bạn ngại viết dài, thử nghiên cứu pivot table consolidate multiple ranges thử xem, rồi dùng 1 hàm vlookup duy nhất.

 

[ndu96081631]

Dạ cái này thì em cũng có làm thử rồi anh ạ.
Nay em muốn sử dụng code. Rất mong được các anh, chị giúp đỡ.
Trân trọng

Định làm giúp bạn nhưng phát hiện ra một chuyện rất kỳ cục: MSCN ở cả 3 sheet hoàn toàn không "ăn nhậu" gì với nhau, vậy tìm ra giống gì đây?
-------------------
Ah.. xin lỗi, tôi nhầm.
Bạn dùng code này trong module:

Function MVlookUp(ByVal Find_Value, ByVal Range_Address As String, byVal ColIndex As Long)
  Dim wks As Worksheet, rngTmp As Range
  MVlookUp = CVErr(xlErrNA)
  For Each wks In ActiveWorkbook.Worksheets
    If UCase(wks.Name) <> UCase(Application.ThisCell.Parent.Name) Then
      Set rngTmp = wks.Range(Range_Address).Resize(, 1).Find(Find_Value, , xlFormulas, xlWhole, , , False)
      If Not rngTmp Is Nothing Then
        MVlookUp = rngTmp(, ColIndex)
        Exit Function
      End If
    End If
  Next
End Function

Công thức tại cell D8 sheet ATM

=IF(A8="","",MVlookUp(A8,"A4:C1000",3))

Kéo fill xuống

 

[Excel365]

Định làm giúp bạn nhưng phát hiện ra một chuyện rất kỳ cục: MSCN ở cả 3 sheet hoàn toàn không "ăn nhậu" gì với nhau, vậy tìm ra giống gì đây?
-------------------
Ah.. xin lỗi, tôi nhầm.
Bạn dùng code này trong module:

Function MVlookUp(ByVal Find_Value, ByVal Range_Address As String, byVal ColIndex As Long)
  Dim wks As Worksheet, rngTmp As Range
  MVlookUp = CVErr(xlErrNA)
  For Each wks In ActiveWorkbook.Worksheets
    If UCase(wks.Name) <> UCase(Application.ThisCell.Parent.Name) Then
      Set rngTmp = wks.Range(Range_Address).Resize(, 1).Find(Find_Value, , xlFormulas, xlWhole, , , False)
      If Not rngTmp Is Nothing Then
        MVlookUp = rngTmp(, ColIndex)
        Exit Function
      End If
    End If
  Next
End Function

Công thức tại cell D8 sheet ATM

=IF(A8="","",MVlookUp(A8,"A4:C1000",3))

Kéo fill xuống

Cám ơn anh rất nhiều.