Nhờ hỗ trợ về VBA (1 người xem)

[lephong249]

Nhờ các anh chị em giúp đỡ ạ.
Tình hình em mới tập tành về VBA, đang thử làm vlookup trong VBA nhưng làm bị lỗi.
Các anh chị em xem và giải đáp giúp.
Cảm ơn mọi người

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell.FormulaR1C1 = "=VLOOKUP("a2",range("i2:j2"),2,0)"
Range("B2:B5").Select
Selection.FillDown
If Not Application.ScreenUpdating Then
Application.ScreenUpdating = True
End If
End Sub

 

[Minh15.01.1991]

Line này bị sai nè 'ActiveCell.FormulaR1C1 = "=VLOOKUP("a2",range("i2:j2"),2,0)"'. Sửa lại cho đúng đi bạn. ví dụ như này nè.
ActiveCell.FormulaR1C1 = "=VLOOKUP(A2,I2:J2,2,0)"'