nhờ viết code về kiểm tra dữ liệu (1 người xem)

[Tân Trần 89]

hiện tại mình cần kiểm tra những mã sản phẩm đã có trong dữ liệu bằng VBA như file kèm, mong các ace chỉ giúp.
sheet1 là dữ liệu cần kiểm tra, nếu có thì cột B kế bên sẽ hiện OK, nếu không có dữ liệu hiện NOT OK
sheet data chứa dữ liệu tổng.

Mong các ace chỉ giúp code ạ

 

[giaiphap]

hiện tại mình cần kiểm tra những mã sản phẩm đã có trong dữ liệu bằng VBA như file kèm, mong các ace chỉ giúp.
sheet1 là dữ liệu cần kiểm tra, nếu có thì cột B kế bên sẽ hiện OK, nếu không có dữ liệu hiện NOT OK
sheet data chứa dữ liệu tổng.

Mong các ace chỉ giúp code ạ

VBA sao lại đăng ở Hàm và Công thức. Còn muốn dùng hàm VBA thì thử hàm này.

Public Function Check_Value(s As String, Rng As Range) As String
    If Application.WorksheetFunction.CountIf(Rng, s) > 0 Then
        Check_Value = "OK"
    Else
        Check_Value = "NOT OK"
    End If
End Function

 

[Tân Trần 89]

VBA sao lại đăng ở Hàm và Công thức. Còn muốn dùng hàm VBA thì thử hàm này.

Public Function Check_Value(s As String, Rng As Range) As String
    If Application.WorksheetFunction.CountIf(Rng, s) > 0 Then
        Check_Value = "OK"
    Else
        Check_Value = "NOT OK"
    End If
End Function

Cảm ơn bạn, nhưng cái mình cần là VBA ạ, không phải hàm VBA
để mình đăng bài lại bên cơ sở dữ liệu.