Vlookup theo chiều ngang bằng VBA

[kokoro mitsubishi]

Chào các bác
em đang mắc 1 bấn đề là khi tìm hàm Vlookup của giá trị theo hàng dọc thì được , tuy nhiên khi tìm theo hàng ngang thì đang bị bế tắc
Em nhờ các bác và các anh chị em trong diễn đàn tư vấn giúp

em cảm ơn

 

[BuiQuangThuan]

Chào các bác
em đang mắc 1 bấn đề là khi tìm hàm Vlookup của giá trị theo hàng dọc thì được , tuy nhiên khi tìm theo hàng ngang thì đang bị bế tắc
Em nhờ các bác và các anh chị em trong diễn đàn tư vấn giúp
View attachment 289322
em cảm ơn

Theo chiều ngang thì tìm hiểu hàm Hlookup nhé
Xin lỗi. Vào file mới thấy.

J2=VLOOKUP(J$4,$D$4:$E$9,2,0)

Xong kéo sang ngang

 

[kokoro mitsubishi]

Theo chiều ngang thì tìm hiểu hàm Hlookup nhé
Xin lỗi. Vào file mới thấy.

J2=VLOOKUP(J$4,$D$4:$E$9,2,0)

Xong kéo sang ngang

Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("D2600")) Is Nothing Then
If Target.Columns.Count = 1 Then
' Tim kiem thong tin
Target.Offset(, 1) = "=IFERROR(VLOOKUP(RC[-1],BANGDANHSACH,2,0),"""")"
Target.Offset(, 1).Value = Target.Offset(, 1).Value

End If
End If
End Sub

em đang dùng code này bác ạ , thông tin theo hàng ngang thì không vấn đề gì tuy nhiên để áp theo hàng ngang thì em chưa biết dùng như nào

 

[VetMini]

With Target.Offset(-2,0)
.FormulaR1C1 = "=IFERROR(VLOOKUP(R[2]C,BANGDANHSACH,2,0),"""")"
.Value = .Value
End With

 

[kokoro mitsubishi]

With Target.Offset(-2,0)
.FormulaR1C1 = "=IFERROR(VLOOKUP(R[2]C,BANGDANHSACH,2,0),"""")"
.Value = .Value
End With

Chạy ra kết quả nhung báo dòng With Target.Offset(-2,0) lỗi về màu vàng bác ơi