Tạo ghi chú theo điều kiện

[vietjet1122]

Em chào anh/chị
Em đang muốn tạo ghi chú theo điều kiện dữ liệu CODE ở các cột. Chi tiết em ghim file bên dưới. Mong anh/chị giúp đỡ ạ. Em cảm ơn.

 

[HUONGHCKT]

Em chào anh/chị
Em đang muốn tạo ghi chú theo điều kiện dữ liệu CODE ở các cột. Chi tiết em ghim file bên dưới. Mong anh/chị giúp đỡ ạ. Em cảm ơn.

Thử tham khảo hàm UDF này.

Option Explicit

Function COD(ByVal Tieude As Range, Rng As Range) As Variant
Dim Cls As Range
For Each Cls In Rng
If Cls <> Empty Then
    If Cls <> "-" Then
        If COD = Empty Then COD = Tieude(1, Cls.Column) Else COD = COD & ", " & Tieude(1, Cls.Column)
End If
End If
Next
End Function

lưu ý: Tieude=Range("An:....) từ cột A.

 

[Hoàng Tuấn 868]

Em chào anh/chị
Em đang muốn tạo ghi chú theo điều kiện dữ liệu CODE ở các cột. Chi tiết em ghim file bên dưới. Mong anh/chị giúp đỡ ạ. Em cảm ơn.

Bạn thử tham khảo file này xem sao.

 

[vietjet1122]

Bạn thử tham khảo file này xem sao.

Tuyệt vời ạ , cảm ơn bác nhiều.

Thử tham khảo hàm UDF này.

Option Explicit

Function COD(ByVal Tieude As Range, Rng As Range) As Variant
Dim Cls As Range
For Each Cls In Rng
If Cls <> Empty Then
    If Cls <> "-" Then
        If COD = Empty Then COD = Tieude(1, Cls.Column) Else COD = COD & ", " & Tieude(1, Cls.Column)
End If
End If
Next
End Function

lưu ý: Tieude=Range("An:....) từ cột A.

Dạ đúng rồi ạ. Em cảm ơn nhiều ạ