Báo trùng ở sheet khác

[LienDong]

Mình có tìm được code trên diễn đàn về báo trùng và sửa lại nhưng nó bị lỗi, các bạn sửa code giúp
Tại sheet TONGHOP, mình muốn nhấn code chạy báo trùng ở sheet TRUNG
Nếu cột D có những chữ trùng nhau thì Thông báo trùng và thoát (không thực hiện gì nữa)
Sub KiemtraDulieutrung()
Dim cell As Range
With Sheets("TRUNG")
.Range("D15" & Range("D5000").End(xlUp).Row).Select
For Each cell In Selection
If WorksheetFunction.CountIf(Selection, cell) > 1 Then MsgBox "Bi trung": Exit Sub
Next
End With
End Sub
* Cho hỏi thêm trường hợp khác: Cũng đang tại sheet TONGHOP, mình muốn nhấn code chạy báo trùng ở sheet TRUNG, nếu cột C có ô nào lớn hơn 1, trường hợp này thì viết code thế nào?
Xin cảm ơn.

 

[LienDong]

Mình có tìm được code trên diễn đàn về báo trùng và sửa lại nhưng nó bị lỗi, các bạn sửa code giúp
Tại sheet TONGHOP, mình muốn nhấn code chạy báo trùng ở sheet TRUNG
Nếu cột D có những chữ trùng nhau thì Thông báo trùng và thoát (không thực hiện gì nữa)
Sub KiemtraDulieutrung()
Dim cell As Range
With Sheets("TRUNG")
.Range("D15" & Range("D5000").End(xlUp).Row).Select
For Each cell In Selection
If WorksheetFunction.CountIf(Selection, cell) > 1 Then MsgBox "Bi trung": Exit Sub
Next
End With
End Sub
* Cho hỏi thêm trường hợp khác: Cũng đang tại sheet TONGHOP, mình muốn nhấn code chạy báo trùng ở sheet TRUNG, nếu cột C có ô nào lớn hơn 1, trường hợp này thì viết code thế nào?
Xin cảm ơn.

Các bạn sửa code hoặc viết giúp code mới cho 2 trường hợp trên.

 

[befaint]

Cũng đang tại sheet TONGHOP, mình muốn nhấn code chạy báo trùng ở sheet TRUNG, nếu cột C có ô nào lớn hơn 1

.
.
... thì sao?

 

[SA_DQ]

Code bài 01 mình chạy không thấy bị lỗi nếu ta thêm 1 dòng lệnh:

Sub KiemtraDulieutrung()
    Dim cell As Range
     With Sheets("TRUNG")
        .Select                             '<=| Thêm Câu Lênh Này Hêt Lôi.             '
        .Range("D15:D" & Range("D5000").End(xlUp).Row).Select
'        MsgBox Selection.Address, , Selection.Parent.Name        '
        For Each cell In Selection
            If WorksheetFunction.CountIf(Selection, cell) > 1 Then
                MsgBox "Bi trung", , cell.Address
                Exit Sub
            End If
           Next
     End With
End Sub

& lời khuyên với bạn là ta nên viết các câu lệnh 1 cách chân phương nhất có thể
Nên xài MsgBox để có nhiều thông tin từ đứa con của mình, nhất là không do mình để ra.

* Cho hỏi thêm trường hợp khác: Cũng đang tại sheet TONGHOP, mình muốn nhấn code chạy báo trùng ở sheet TRUNG, nếu cột C có ô nào lớn hơn 1, trường hợp này thì viết code thế nào?

Đây là 2 câu hỏi hay 1 vậy bạn?
Nếu là 2 thì câu 1 đã được câu lệnh thêm của macro bên trên giải đáp
& nếu sau khi chạy Code, bạn muốn quay về trang hiện hành ban đầu thì cũng có cách

Còn nếu là 1 câu hỏi, thì chưa hiểu câu hỏi của bạn.

 

[LienDong]

.
.
... thì sao?

Đây là 2 câu hỏi hay 1 vậy bạn?

Cột C là kết quả đếm trùng ở 1 cột khác = hàm CountIf. Nghĩa là nếu cột C có giá trị nào lớn hơn 1 thì báo trùng
Cảm ơn các anh!