Xem giúp mình lệnh If này sao cứ báo lỗi "mismatch"

Chào bạn bạn đang muốn làm điều kiện gì nhỉ?

Đk: nếu dữ liệu tại dòng cuối cột D trùng với data cột D đã có thì báo Msgbox ah, nếu ko trùng thì thôi

Chào bạn bạn cần viết như sau

If(sheet1.range("D"&dongcuoi)).value = sheet1.range("D1048576") then

Công thức bạn viết như sau nhé.

cảm ơn TB, mình đã làm dc rùi ah

Chúc bạn học tốt cùng gitiho

Vẫn sai ạ, thầy xem lại dùm dòng code này có đúng ko ah

Sub WarningDuplicate()
Dim DongCuoi As Long
    DongCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    If Sheet1.Range("D" & DongCuoi).Value = Sheet1.Range("D1048576").Value Then

    MsgBox "Duplicate No. Contract, Pls change !!!", vbExclamation
    
   
    End If
End Sub

Cú pháp của bạn thì đúng rồi bạn thử dubug đi

Option Explicit

Sub WarningDuplicate()

Dim DongCuoi As Long

    DongCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

    If DongCuoi = D1048576 Then

     MsgBox "Duplicate No. Contract, Pls change !!!", vbExclamation

    End If

End Sub