Làm sao để cho run 1 macro với điều kiện là khi 1 cell thay đổi

[thanhtratt]

Mình muốn run 1 macro khi 1 cell nào đó thay đổi
Ví dụ mình muốn khi cell A1 thay đổi thì chạy macro Sub Loc, thì phải đặt cú pháp như thế nào, xin mọi người chỉ giúp. Mình cám ơn rất nhiều.

 

[ptlong04x1]

Dùng code này ở sheet chứa ô [A1] cần thay đổi :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target <> [A1] Then Exit Sub
    Loc
End Sub

 

[ndu96081631]

Dùng code này ở sheet chứa ô [A1] cần thay đổi :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target <> [A1] Then Exit Sub
    Loc
End Sub

Sau bạn không ghi là: If Target = [A1] Then Loc nhỉ?

 

[thanhtratt]

Sau bạn không ghi là: If Target = [A1] Then Loc nhỉ?

Sao mình làm nó không chạy được.
Mình muốn khi ô A1 thay đổi thì chạy code :Selection.AutoFilter Field:=2, Criteria1:="<>"
này để kích hoạt lại AutoFilter thì viết code như thế nào?

 

[ndu96081631]

Sao mình làm nó không chạy được.
Mình muốn khi ô A1 thay đổi thì chạy code :Selection.AutoFilter Field:=2, Criteria1:="<>"
này để kích hoạt lại AutoFilter thì viết code như thế nào?

Chắc chắn code này KHÔNG THỰC HIỆN ĐƯỢC
Lý do: Bạn làm sao vừa chọn vùng lại vừa gõ vào A1 ---> Selection là cái nào?
Đưa file lên đây cho dể nhé ---> Bài này quá đơn giản (chỉ là bạn đã sai hướng đi)

 

[thanhtratt]

Chắc chắn code này KHÔNG THỰC HIỆN ĐƯỢC
Lý do: Bạn làm sao vừa chọn vùng lại vừa gõ vào A1 ---> Selection là cái nào?
Đưa file lên đây cho dể nhé ---> Bài này quá đơn giản (chỉ là bạn đã sai hướng đi)

Em dùng 1 combo để chọn 1 dử liệu và combo này liên kết đến ô A1 chứ không nhập trực tiếp vào ô A1.
Khi combo thay đổi thì A1 thay đổi thì em muốn nó chạy lại AutoFilter Field:=2, Criteria1:="<>" để lọc dử liệu lại.
Xin Thầy sửa lại dùm.Em cám ơn rất nhiều.

 

[ndu96081631]

Em dùng 1 combo để chọn 1 dử liệu và combo này liên kết đến ô A1 chứ không nhập trực tiếp vào ô A1.
Khi combo thay đổi thì A1 thay đổi thì em muốn nó chạy lại AutoFilter Field:=2, Criteria1:="<>" để lọc dử liệu lại.
Xin Thầy sửa lại dùm.Em cám ơn rất nhiều.

Bài này quá đơn giản, nhưng dựa vào gợi ý của mọi người mà bạn vẫn làm chưa xong thì có phải là nên đưa dử liệu lên đây không?

 

[thanhtratt]

Bài này quá đơn giản, nhưng dựa vào gợi ý của mọi người mà bạn vẫn làm chưa xong thì có phải là nên đưa dử liệu lên đây không?

Em đưa file lên rồi đó Thầy giúp em nhé.

 

[ndu96081631]

Em đưa file lên rồi đó Thầy giúp em nhé.

Đưa file lên ngay từ đâu có phải đở mất công không

Sub Loc()
  ActiveSheet.AutoFilter.Range.AutoFilter 1, [B1]
End Sub

Xem file

 

[ptlong04x1]

Sau bạn không ghi là: If Target = [A1] Then Loc nhỉ?

Em làm 1 số bài dạng này thì thấy rằng : nếu vì 1 lý do nào đó, do sơ suất chẳng hạn, hay là do người dùng paste cả vùng dữ liệu vào sheet dẫn đến Target không phải là 1 cell thì :
If Target = [A1] Then Loc sẽ báo lỗi Type mismatch.