Sử dụng validation để lọc theo điều kiện

[100kiss]

Em lần đầu đăng bài. Xin nhờ các bác giúp em.
Em có 2 sheet "loc" và "data". Ở sheet "loc" em đã tạo list xổ xuống dựa vào sheet data.
Vì list hiện tất cả loại hàng Ok và NG nên rất dài. Mong muốn của em là list xổ xuống chỉ hiện những loại hàng NG. Còn loại hàng OK không hiện ạ.
Em cám ơn.

 

[100kiss]

Chưa hiểu ý bạn như thế nào, thử làm ví dụ mong muốn xem sao.

Em gửi lại ạ. Bác xem giúp em.

Bài đã được tự động gộp: 6/2/21

1/ Nội dung và File đều là lọc, sao tiêu đề là Tạo list xổ xuống có điều kiện.
2/ Nội quy quy định Tiêu đề cần phù hợp với nội dung. Vì vậy, bạn nên sửa tiêu đề là Sử dụng Validation để lọc theo điều kiện.

Vâng em lần đầu đăng bài còn nhiều sai sót. Em đã sửa rồi bác.

 

[Hoàng Tuấn 868]

Em gửi lại ạ. Bác xem giúp em.

Vẫn không hiểu được, tốt nhất là đưa một ít dữ liệu nên, trình bày ý định cụ thể, vừa hỏi vừa đoán thế này không hiệu quả bạn ạ.

 

[HieuCD]

Em lần đầu đăng bài. Xin nhờ các bác giúp em.
Em có 2 sheet "loc" và "data". Ở sheet "loc" em đã tạo list xổ xuống dựa vào sheet data.
Vì list hiện tất cả loại hàng Ok và NG nên rất dài. Mong muốn của em là list xổ xuống chỉ hiện những loại hàng NG. Còn loại hàng OK không hiện ạ.
Em cám ơn.

Chạy code

Sub AddDataValidation()
  Dim sArr(), Dic As Object, i&
  Const dk$ = "NG"
 
  sArr = Sheet2.Range("B7", Sheet2.Range("C1000000").End(xlUp)).Value
  With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(sArr)
      If sArr(i, 2) = dk Then .Item(sArr(i, 1)) = ""
    Next i
    Sheet1.Range("B8").Validation.Delete
    If .Count > 0 Then Sheet1.Range("B8").Validation.Add 3, , , Join(.keys, ",")
  End With
End Sub

 

[Ba Tê]

Em gửi lại ạ. Bác xem giúp em.

Bài đã được tự động gộp: 6/2/21

Vâng em lần đầu đăng bài còn nhiều sai sót. Em đã sửa rồi bác.

Công thức tôi "dở bẹt".
Xem tạm cách dùng thêm cột phụ và Name động