Worksheet change tự động cập nhật dữ liêuk khi cells thay đổi

[lananh1312]

Em có viết một private sub Worksheet change tự động cập nhật dữ liệu khi cells thay đổi, nhưng mà viết cho code thứ nhất thì chạy bình thường, sang code thứ hai thì private sub Worksheet change không còn tự động cập nhật cho code 2 nữa. Có anh chị nào biết nguyên nhân không ạ. Đây là hai đoạn code của em.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet5.Range([d3], [d3].End(xlDown))) Is Nothing Then
Call mat_hang
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet6.Range([e3], [e3].End(xlDown))) Is Nothing Then
Call mat_hang_ban
End If
End Sub
Cảm ơn mọi người !

 

[HieuCD]

Em có viết một private sub Worksheet change tự động cập nhật dữ liệu khi cells thay đổi, nhưng mà viết cho code thứ nhất thì chạy bình thường, sang code thứ hai thì private sub Worksheet change không còn tự động cập nhật cho code 2 nữa. Có anh chị nào biết nguyên nhân không ạ. Đây là hai đoạn code của em.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet5.Range([d3], [d3].End(xlDown))) Is Nothing Then
Call mat_hang
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet6.Range([e3], [e3].End(xlDown))) Is Nothing Then
Call mat_hang_ban
End If
End Sub
Cảm ơn mọi người !

Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect(Target, Sheet5.Range([d3], [d3].End(xlDown))) Is Nothing Then

    Call mat_hang

  end if
  If Not Intersect(Target, Sheet6.Range([e3], [e3].End(xlDown))) Is Nothing Then

    Call mat_hang_ban

  End If

End Sub

 

[lananh1312]

Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect(Target, Sheet5.Range([d3], [d3].End(xlDown))) Is Nothing Then

    Call mat_hang

  end if
  If Not Intersect(Target, Sheet6.Range([e3], [e3].End(xlDown))) Is Nothing Then

    Call mat_hang_ban

  End If

End Sub

em có chạy cách này rồi nhưng cũng không tự động được, với lại nếu quay lại sheet5 đổi dữ liệu thì nó bị lỗi

 

[befaint]

Có anh chị nào biết nguyên nhân không

Trả lời: Có!

Giải thích: Một Sheet chỉ có duy nhất 1 sự kiện Worksheet_Change. Cố nhét 2 thằng vào là chúng vật lộn với nhau chóng mặt.

 

[HieuCD]

Em có viết một private sub Worksheet change tự động cập nhật dữ liệu khi cells thay đổi, nhưng mà viết cho code thứ nhất thì chạy bình thường, sang code thứ hai thì private sub Worksheet change không còn tự động cập nhật cho code 2 nữa. Có anh chị nào biết nguyên nhân không ạ. Đây là hai đoạn code của em.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet5.Range([d3], [d3].End(xlDown))) Is Nothing Then
Call mat_hang
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet6.Range([e3], [e3].End(xlDown))) Is Nothing Then
Call mat_hang_ban
End If
End Sub
Cảm ơn mọi người !

Mình quên để ý tên sheet
Xóa các code trong sheet5 và sheet6
Cho vào code của sheet5

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range([d3], [d3].End(xlDown))) Is Nothing Then
Call mat_hang
End If
End Sub

Cho vào code của sheet6

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range([e3], [e3].End(xlDown))) Is Nothing Then
Call mat_hang_ban
End If
End Sub

 

[lananh1312]

Trả lời: Có!

Giải thích: Một Sheet chỉ có duy nhất 1 sự kiện Worksheet_Change. Cố nhét 2 thằng vào là chúng vật lộn với nhau chóng mặt
dạ em cảm ơn .

Bài đã được tự động gộp: 2/9/20

Mình quên để ý tên sheet
Xóa các code trong sheet5 và sheet6
Cho vào code của sheet5

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range([d3], [d3].End(xlDown))) Is Nothing Then
Call mat_hang
End If
End Sub

Cho vào code của sheet6

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range([e3], [e3].End(xlDown))) Is Nothing Then
Call mat_hang_ban
End If
End Sub

dạ em cảm nhiều ạ