Lọc (Duy nhất & Bỏ dòng trống)->Tạo List từ danh sách lọc đó
Hiện tại M@trixs có 1 file muốn nhờ ACE trong diễn đàn giúp giùm.
Nội dung như tiêu đề: Tức là lọc danh sách (danh sách này không cố định mà có thể được chèn thêm hoặc xóa bớt) với các yêu cầu là dữ liệu nào trùng chỉ tính là 1 dữ liệu, loại bỏ dòng trống. Từ danh sách lọc ra đó sẽ dùng để làm List.
Dữ liệu M@trixs muốn cần lọc lấy là ở Sheet, Cột E toàn bộ tên viết tắt của các cơ quan, công ty. Và tạo List đó qua Sheet phần tổ chức đơn vị phát hành.
Kính mong ACE giúp đỡ giùm !!!
Dưới đây M@trixs tìm thấy 1 bài cũng hay nhưng tác giả không diễn giải gì nhiều mà chỉ "làm giúp" nên M@trixs đành bó tay…
Gửi bạn file nhé, sử dụng xem đúng ý bạn chưa nhé
www.giaiphapexcel.com/diendan/threads/l%E1%BB%8Dc-duy-nh%E1%BA%A5t-b%E1%BB%8F-d%C3%B2ng-tr%E1%BB%91ng-t%E1%BA%A1o-list-t%E1%BB%AB-danh-s%C3%A1ch-l%E1%BB%8Dc-%C4%91%C3%B3.74908/
Xây dựng Lương 3P, KPI cho Doanh nghiệp
Làm thế nào để trả lương cho nhân viên chính xác nhất? Đây là một trong những câu hỏi khó trong quản trị nhân...
Xem khóa học
bạn xem lại có đúng yêu cầu của bạn ko???
Bạn xem trong file nhé.
Bạn không nói rõ ràng sao mà giúp. Bạn phải cho biết nguồn dữ liệu lấy từ vùng nào, validation tạo ở vùng nào thì tôi mới giúp được chứ. Không lẽ cùng một vùng vừa làm nguồn dữ liệu vừa làm validation.
bạn xem lại nhe, mình đã chỉnh lại rồi
Thử thế này xem sao. Bạn vẽ hình nhiều quá nhìn rối quá.
Name của ai người đó xài thôi. Bài toán đơn giản mà bạn làm làm căng thẳng quá làm mình rối theo.
Bạn có thể bấm Ctrl F3 và thấy cái name nào không cần thì xóa hết đi. Minh không xài cái name nào hết đâu. Khi chọn vào sheet unique thì name HD sẽ được tạo tự động
Ông Anh Này Toàn xài đao to búa lớn ko a, kinh qua đi. hàng free ko xài toàn móc tiền túi mua mới, dân nghèo (Trình độ kiến thức) nên tận dụng những gì bill free cho thôi)*&^)
Nếu số HĐ mà bị trùng thì mình cho nhân viên này nghỉ việc cho rồi.
Private Sub Worksheet_Activate()
Dim cell, dl(), i
.ClearContents
With CreateObject("scripting.dictionary")
For Each cell In Sheet1.
If cell <> "" And Not .exists(cell.Value) Then
.Add cell.Value, ""
End If
Next
If .Count Then .Resize(.Count) = Application.Transpose(.keys)
.RemoveAll
dl = Sheet3.Range(Sheet3., Sheet3..End(3)).Value
For i = 1 To UBound(dl)
If dl(i, 1) = .Value Then
If Not .exists(dl(i, 2)) Then
.Add dl(i, 2), ""
End If
End If
Next
If .Count Then .Resize(.Count) = Application.Transpose(.keys)
End With
ThisWorkbook.Names.Add "HD", Range(, .End(3))
End Sub
bạn có thể dùng dùng sub Worksheet_change nhưng sẽ không hay khi bạn thay đổi cùng lúc nhiều dự liệu trên sheet hoso (do moi cell thay đổi là cập nhật) nên kiến nghĩ hãy dùng worksheet activate trên Uniquelist của Anh Hải thì hay hơn
sau khi cập nhập xong dự liệu lick sang sheet Uniquelist hoàn tất công việc cũng đâu có gì vất vả đâu