Tạo VBA check trạng thái ô thay đổi

[baopham1606]

Xin chào các thấy, e đang làm code VBA kiểm tra nếu ô B2 trong sheet BCCT thay đổi sẽ call Moduls lapBCCT và chạy tiếp code trong đó. Nhưng hiện tại e lại bị lỗi này và không biết fix ntn. Nhờ mọi người coi và hướng dẫn giúp với ạ

E xin cảm ơn và chúc mọi người 1 ngày mới may mắn
------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, BCCT.Range("B2")) Is Nothing Then
'Application.EnableEvents = False
Call lapBCCT
'Application.EnableEvents = True
End If
End Sub

 

[leonguyenz]

Xin chào các thấy, e đang làm code VBA kiểm tra nếu ô B2 trong sheet BCCT thay đổi sẽ call Moduls lapBCCT và chạy tiếp code trong đó. Nhưng hiện tại e lại bị lỗi này và không biết fix ntn. Nhờ mọi người coi và hướng dẫn giúp với ạ

E xin cảm ơn và chúc mọi người 1 ngày mới may mắn
------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, BCCT.Range("B2")) Is Nothing Then
'Application.EnableEvents = False
Call lapBCCT
'Application.EnableEvents = True
End If
End Sub

Bạn đặt tên Module trùng với tên Sub, nên sửa lại.
Code trong Sub cần sửa lại, chưa rõ kết quả bạn muốn thế nào.

 

[snow25]

Xin chào các thấy, e đang làm code VBA kiểm tra nếu ô B2 trong sheet BCCT thay đổi sẽ call Moduls lapBCCT và chạy tiếp code trong đó. Nhưng hiện tại e lại bị lỗi này và không biết fix ntn. Nhờ mọi người coi và hướng dẫn giúp với ạ

E xin cảm ơn và chúc mọi người 1 ngày mới may mắn
------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, BCCT.Range("B2")) Is Nothing Then
'Application.EnableEvents = False
Call lapBCCT
'Application.EnableEvents = True
End If
End Sub

View attachment 254814

Bạn sửa tên sub hoặc tên modules không cho nó giống nhau là được.

 

[BuiQuangThuan]

Xin chào các thấy, e đang làm code VBA kiểm tra nếu ô B2 trong sheet BCCT thay đổi sẽ call Moduls lapBCCT và chạy tiếp code trong đó. Nhưng hiện tại e lại bị lỗi này và không biết fix ntn. Nhờ mọi người coi và hướng dẫn giúp với ạ

E xin cảm ơn và chúc mọi người 1 ngày mới may mắn
------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, BCCT.Range("B2")) Is Nothing Then
'Application.EnableEvents = False
Call lapBCCT
'Application.EnableEvents = True
End If
End Sub

Bạn kiểm tra lại kết quả nhé.hình như tên sub nó trùng với tên modul sao á

 

[baopham1606]

Dạ ... sau khi tham khảo thì e hỉu được với đề rồi ạ ... e xin cảm ơn mọi người rất nhiều ạ

Bài đã được tự động gộp: 4/3/21

Bạn đặt tên Module trùng với tên Sub, nên sửa lại.
Code trong Sub cần sửa lại, chưa rõ kết quả bạn muốn thế nào.

dạ cái này là kiểu Auto filter ạ ... nếu code check ô B2 thay đổi thì nó sẽ tự động filter theo ô B2 ... e đã fix dc .. cảm ơn anh nhiều ạ