Tự động chạy macro khi giá trị Cell thay đổi

[nguyenkhoiffc]

Các bạn xem giúp mình code bên dưới bị thiếu hay sai chỗ nào mà macro không tự động chạy được.

Sub app_vlookup()
Sheets("Sheet1").Range("B4") = Application.Vlookup(Sheets("Sheet1").Range("F4"), Sheets("LIST CARRIERS-VENDORS").Range("A2:H165"), 6, False)
End Sub
Private Sub cell_Change(ByVal Target As Range)

If Target.Address = "$F$4" Then
Sheets("Sheet1").Range("B4") = Application.Vlookup(Sheets("Sheet1").Range("F4"), Sheets("LIST CARRIERS-VENDORS").Range("A2:H165"), 6, False)

End If
End Sub


Mình đính kèm file cho các bạn dễ hình dung.

Xin cảm ơn

 

[vanthinh3101]

Các bạn xem giúp mình code bên dưới bị thiếu hay sai chỗ nào mà macro không tự động chạy được.

Sub app_vlookup()
Sheets("Sheet1").Range("B4") = Application.Vlookup(Sheets("Sheet1").Range("F4"), Sheets("LIST CARRIERS-VENDORS").Range("A2:H165"), 6, False)
End Sub
Private Sub cell_Change(ByVal Target As Range)

If Target.Address = "$F$4" Then
Sheets("Sheet1").Range("B4") = Application.Vlookup(Sheets("Sheet1").Range("F4"), Sheets("LIST CARRIERS-VENDORS").Range("A2:H165"), 6, False)

End If
End Sub




Mình đính kèm file cho các bạn dễ hình dung.

Xin cảm ơn

Không có sự kiện cell_Change bạn nhé!
Sự kiện đúng là Worksheet_Change

 

[nguyenkhoiffc]

Không có sự kiện cell_Change bạn nhé!
Sự kiện đúng là Worksheet_Change

Vâng, mình đã sửa lại là Worksheet_Change nhưng kết quả ko đổi bạn ah.

 

[vanthinh3101]

Vâng, mình đã sửa lại là Worksheet_Change nhưng kết quả ko đổi bạn ah.

Sự kiện của Sheet nào thì bạn phải để code bắt sự kiện ở sheet đó.
Bạn để ở Module nó không chạy được đâu.

 

[nguyenkhoiffc]

Sự kiện của Sheet nào thì bạn phải để code bắt sự kiện ở sheet đó.
Bạn để ở Module nó không chạy được đâu.

Bạn có thể giúp mình sửa lại code cho chạy được ko?

 

[vanthinh3101]

Bạn có thể giúp mình sửa lại code cho chạy được ko?

Bạn xem file đính kèm

 

[nguyenkhoiffc]

Bạn xem file đính kèm

Thanks bạn nhiều