Validation cho 2 cột khác nhau (1 người xem)

[minhhangg]

Em muốn dùng validation nhưng ở 2 cột khác nhau vậy liệu có thể không? E cảm ơn nhiều.

 

[Quang_Hải]

Em muốn dùng validation nhưng ở 2 cột khác nhau vậy liệu có thể không? E cảm ơn nhiều.

Dùng code đi cho gọn em ơi

 

[minhhangg]

Ý anh là không được à. Nếu vậy cho em xin code của anh nhé.

 

[thanhsangnguyen1982]

vẫn dùng được bình thường mà bạn.

 

[minhhangg]

Bạn cho mình xem file thử nhé

 

[Quang_Hải]

Ý anh là không được à. Nếu vậy cho em xin code của anh nhé.

Trong lúc đợi cao kiến khác thì anh làm cách này cho em nha.
Anh cũng đang đợi cách bạn ấy làm bằng công thức mà chưa thấy

Sub validate_list()
Dim dl(), item
   dl = [I5:I1000].Value
   With CreateObject("scripting.dictionary")
      For Each item In dl
         If item <> "" Then
            If Not .exists(item) Then .Add item, ""
         End If
      Next
      dl = [K5:K1000].Value
      For Each item In dl
         If item <> "" Then
            If Not .exists(item) Then .Add item, ""
         End If
      Next
      [L5].Validation.Delete
      [L5].Validation.Add 3, , , Join(.keys, ",")
   End With
End Sub