Thay Đổi Giá Trị Tự Động Chạy Macro

[LamNA]

Chào anh chị GPE
Nhờ anh chị hỗ trợ làm sao để tham chiếu Sheet"DATA" và chọn vùng "A2:K1000" thay đổi 1 giá trị bất kỳ sẽ tự động chạy Sub TEST
Code ở Sheet"TH"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:K1000")) Is Nothing Then
Call TEST
End If
End Sub

 

[phulien1902]

Chào anh chị GPE
Nhờ anh chị hỗ trợ làm sao để tham chiếu Sheet"DATA" và chọn vùng "A2:K1000" thay đổi 1 giá trị bất kỳ sẽ tự động chạy Sub TEST
Code ở Sheet"TH"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:K1000")) Is Nothing Then
Call TEST
End If
End Sub

Bạn cho sự kiện Worksheet_Change vào Sheets("TH") là được.

 

[LamNA]

Bạn cho sự kiện Worksheet_Change vào Sheets("TH") là được.

Chào anh phulien1902
Nếu em gán code vào Sheet("TH") thì nó chỉ hiểu lấy vùng Range("A2:K1000") của Sheet("TH") , ý em muốn lấy ở Sheet"DATA" nhưng em lại không biết thêm vào đâu cho đúng để khi giá trị ở Sheet"DATA" thay đổi thì nó sẽ tự động chạy sub "Test"
Em cám ơn

 

[HieuCD]

Chào anh phulien1902
Nếu em gán code vào Sheet("TH") thì nó chỉ hiểu lấy vùng Range("A2:K1000") của Sheet("TH") , ý em muốn lấy ở Sheet"DATA" nhưng em lại không biết thêm vào đâu cho đúng để khi giá trị ở Sheet"DATA" thay đổi thì nó sẽ tự động chạy sub "Test"
Em cám ơn

Cho vào Sheet("TH") không được thì thảy đại vào Sheet"DATA"

 

[phulien1902]

Chào anh phulien1902
Nếu em gán code vào Sheet("TH") thì nó chỉ hiểu lấy vùng Range("A2:K1000") của Sheet("TH") , ý em muốn lấy ở Sheet"DATA" nhưng em lại không biết thêm vào đâu cho đúng để khi giá trị ở Sheet"DATA" thay đổi thì nó sẽ tự động chạy sub "Test"
Em cám ơn

Bạn đã thử chưa?

 

[Phuocam]

để khi giá trị ở Sheet"DATA" thay đổi thì nó sẽ tự động chạy sub "Test"

Bạn cho sự kiện Worksheet_Change vào Sheets("DATA") là được.

 

[LamNA]

Bạn đã thử chưa?

Dạ e đã thử rồi em thử bỏ qua sheet"DATA" thi nó chạy được.
Em cá ơn

Bài đã được tự động gộp: 12/6/18

Cho vào Sheet("TH") không được thì thảy đại vào Sheet"DATA"

Đúng như anh hướng dẫn nó chạy được khi bỏ vào sheet"DATA"

Bài đã được tự động gộp: 12/6/18

Bạn cho sự kiện Worksheet_Change vào Sheets("DATA") là được.

Cám ơn bạn nhe

 

[phulien1902]

Dạ e đã thử rồi em thử bỏ qua sheet"DATA" thi nó chạy được.
Em cá ơn

Bài đã được tự động gộp: 12/6/18

Đúng như anh hướng dẫn nó chạy được khi bỏ vào sheet"DATA"

Bài đã được tự động gộp: 12/6/18

Cám ơn bạn nhe

Thì ra tôi đọc không kỹ, ý của bạn là tác động vào 1 Cell bất kỳ trong vùng Range("A2:K1000") của Sheets("DATA").
Mình thì nghĩ ngược lại. Cảm ơn các bạn.

 

[LamNA]

Thì ra tôi đọc không kỹ, ý của bạn là tác động vào 1 Cell bất kỳ trong vùng Range("A2:K1000") của Sheets("DATA").
Mình thì nghĩ ngược lại. Cảm ơn các bạn.

Em đang vướng 1 trường hợp khi xóa dữ liệu nó không chạy, trong trường hợp này mình thêm dữ kiện thế nào để nó cũng tự xóa bên sheet"TH" khi bên sheet"DATA" xóa hết dữ liệu.
Em cám ơn

 

[phulien1902]

Em đang vướng 1 trường hợp khi xóa dữ liệu nó không chạy, trong trường hợp này mình thêm dữ kiện thế nào để nó cũng tự xóa bên sheet"TH" khi bên sheet"DATA" xóa hết dữ liệu.
Em cám ơn

Code cho sự kiện mới:
<code>
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("TH").Range("A2:L1000").ClearContents
If Not Intersect(Target, Range("A2:K1000")) Is Nothing Then
Call TEST
End If
End Sub
</code>

 

[LamNA]

Code cho sự kiện mới:
<code>
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("TH").Range("A2:L1000").ClearContents
If Not Intersect(Target, Range("A2:K1000")) Is Nothing Then
Call TEST
End If
End Sub
</code>

Em cám ơn anh trước nhe, do đang dùng máy laptop bị update nên chưa thử.
Có gì cần hỗ trợ sẽ báo anh sau.