Xin tạo drop list không trùng dựa vào giá trị chọn từ drop list khác

tle2003 · 6/3/24

Có file Mau, 2 sheet "DuLieu","Mau"
Sheet Dulieu : 2 cột
Cột A: Date
Cột B : Pallet
Sheet Mau: Cell C4 và C5
xin tạo gíup drop list không trùng từ Cột A sheet Dulieu gắn vào C4.
Tạo drop list không trùng từ Cột B dựa vào giá trị đã chọn ở C4 rồi gắn vào C5.
Cám ơn

Hoàng Tuấn 868 · 6/3/24

tle2003 đã viết:
dựa vào giá trí

Từ này mới nghe thấy lần đầu nên không hiểu nghĩa là gì.

HUONGHCKT · 6/3/24

Tôi thì thấy đây không phải là hỏi bài hay nhờ hỗ trợ mà là "yêu cầu"

tle2003 đã viết:
yêu cầu: xin tạo drop list không trùng từ Cột A sheet Dulieu gắn vào C4.
Tạo drop list không trùng từ Cột B dựa vào giá trí chọn ở C4 rồi gắn vào C5.
Cám ơn

tle2003 · 6/3/24

Cám ơn nhắc nhở của các bạn, tôi đã sửa lại

ptm0412 · 7/3/24

Trước tiên phải có danh sách không trùng, sau đó tạo danh mục đúng chuẩn, tạo name như trong chủ đề sau: Validation phụ thuộc

HUONGHCKT · 7/3/24

tle2003 đã viết:
Cám ơn nhắc nhở của các bạn, tôi đã sửa lại

Nên thể hiện sự cầu thị 1 cách tốt nhất có thể.
Tham khảo code trong file

tle2003 · 7/3/24

Cám ơn bác HUONGHCKT nhiều

Bài đã được tự động gộp: 7/3/24

ptm0412 đã viết:
Trước tiên phải có danh sách không trùng, sau đó tạo danh mục đúng chuẩn, tạo name như trong chủ đề sau: Validation phụ thuộc

Cám ơn gợi ý của bác ptm0412 nhiều

tle2003 · 7/3/24

HUONGHCKT đã viết:
Nên thể hiện sự cầu thị 1 cách tốt nhất có thể.
Tham khảo code trong file

Chào Bác,
Tôi có 2 thắc mắc, nhờ bác xem giúp
1. Drop list ngày không trùng đã không thay đổi sau khi tôi thêm dữ liệu . Tôi có thể code riêng để tạo drop list rồi thêm vào Worksheet_Activate(), nhưng không biết có dư thừa không vì có thể bao hàm trong code của bác ?
2. Vì drop list ở E5 dựa vào cột EB, cho nên không biết tôi có thể dùng
Private Sub Worksheet_Activate() thay vì Private Sub Worksheet_Change(ByVal Target As Range)
được không?

HUONGHCKT · 8/3/24

tle2003 đã viết:
Chào Bác,
Tôi có 2 thắc mắc, nhờ bác xem giúp
1. Drop list ngày không trùng đã không thay đổi sau khi tôi thêm dữ liệu . Tôi có thể code riêng để tạo drop list rồi thêm vào Worksheet_Activate(), nhưng không biết có dư thừa không vì có thể bao hàm trong code của bác ?
2. Vì drop list ở E5 dựa vào cột EB, cho nên không biết tôi có thể dùng
Private Sub Worksheet_Activate() thay vì Private Sub Worksheet_Change(ByVal Target As Range)
được không?

1/Ô E4 được Làm bằng DataValidation trên có sở Remove Duplicates cột Ngày và gắn vào cột EA
Ô E5 được Làm bằng DataValidation trên cơ sở code lấy được dữ liệu cột Pallet# thỏa mãn với E4 và gán vào cột EB
Nếu

1. Drop list ngày không trùng đã không thay đổi sau khi tôi thêm dữ liệu .

thì bạn có thể post file lên xem sai chỗ nào được không?
2/Bạn đã biết VBA thì cứ thử lần lượt từng ý tưởng của mình và dần rút ra được cách làm nào phù hợp nhất với mong muốn.
Theo tôi được biết thì Trừ những chuyên gia VBA ra còn lại phần đông người viết code VBA đều phải cho chạy thử và khi lại phát hiện ra bài toán chưa được giải quyết triệt để (dữ liệu ở nhiều dạng, logic có thể phát sinh thêm nhiều trường hợp khác nữa, có thể phát sinh lỗi trong tương lai,...) thì họ lại phải code lại cho phù hợp với cái mà họ vừa mới nảy sinh ấy.

tle2003 · 8/3/24

Chào bác,
Tôi đính kèm 2 file ở đây.
Mau.xlsm : Khi tôi thêm dữ liệu vào sheet DULIEU, thì dop list tại E4 ở sheet MAU vẫn không đổi (cột EA không thay đổi)
Mau1.xlsm: Tôi thêm Sub CreateUniqueLists() vào Module1 và thêm code dưới vào sheet MAU thì tạm ổn
Private Sub Worksheet_Activate()
Call CreateUniqueLists
End Sub
Nhờ bác xem lại giùm

HUONGHCKT · 8/3/24

tle2003 đã viết:
Chào bác,
Tôi đính kèm 2 file ở đây.
Mau.xlsm : Khi tôi thêm dữ liệu vào sheet DULIEU, thì dop list tại E4 ở sheet MAU vẫn không đổi (cột EA không thay đổi)
Mau1.xlsm: Tôi thêm Sub CreateUniqueLists() vào Module1 và thêm code dưới vào sheet MAU thì tạm ổn
Private Sub Worksheet_Activate()
Call CreateUniqueLists
End Sub
Nhờ bác xem lại giùm

Như bài #9 đã nói
Ô E4 được Làm bằng DataValidation (Source = Date) trên có sở Remove Duplicates cột Ngày và gắn vào cột EA (cái này làm thủ công chứ không làm bằng VBA) Và Cột EA ấy đã được đặt thành Namerange (tên nó là Date)
Bạn xem file tôi có sửa lại code để cứ mỗi khi sheet MAU được activate là NameRange Date thay đổi theo.
Bạn xem file đính kèm.

tle2003 · 9/3/24

HUONGHCKT đã viết:
Như bài #9 đã nói
Ô E4 được Làm bằng DataValidation (Source = Date) trên có sở Remove Duplicates cột Ngày và gắn vào cột EA (cái này làm thủ công chứ không làm bằng VBA) Và Cột EA ấy đã được đặt thành Namerange (tên nó là Date)
Bạn xem file tôi có sửa lại code để cứ mỗi khi sheet MAU được activate là NameRange Date thay đổi theo.
Bạn xem file đính kèm.

Tôi bỏ nhiều thời gian để tìm cách giải quyết vấn để tại E5 nhưng không được. Cám ơn bác nhiều lắm.

HUONGHCKT · 9/3/24

tle2003 đã viết:
Tôi bỏ nhiều thời gian để tìm cách giải quyết vấn để tại E5 nhưng không được. Cám ơn bác nhiều lắm.

vấn đề ở E5 là gì? có thể nói rõ ra và port bài lên được không?

tle2003 · 10/3/24

HUONGHCKT đã viết:
vấn đề ở E5 là gì? có thể nói rõ ra và port bài lên được không?

Trước tiên là rất cám ơn sự giúp đỡ của bác. Việc này đã giúp tôi giải quyết nhu cầu và tôi cũng đã học hỏi ... . Tuy nhiên vì file làm ra sẽ cho các bạn đồng nghiệp của tôi dùng , cho nên các cột phụ EA và EB có thể bị ảnh hưởng nên họ xóa nguyên dòng. Cuối cùng cũng nhờ sự nhắc nhỡ của bác tôi cũng làm được file không qua dùng cột phụ , và chưa thấy sai sót gì. Nhờ bác xem giùm , cho ý kiến để hoàn thiện hơn.
Cám ơn

HUONGHCKT · 10/3/24

tle2003 đã viết:
Trước tiên là rất cám ơn sự giúp đỡ của bác. Việc này đã giúp tôi giải quyết nhu cầu và tôi cũng đã học hỏi ... . Tuy nhiên vì file làm ra sẽ cho các bạn đồng nghiệp của tôi dùng , cho nên các cột phụ EA và EB có thể bị ảnh hưởng nên họ xóa nguyên dòng. Cuối cùng cũng nhờ sự nhắc nhỡ của bác tôi cũng làm được file không qua dùng cột phụ , và chưa thấy sai sót gì. Nhờ bác xem giùm , cho ý kiến để hoàn thiện hơn.
Cám ơn

Tuyệt vời.
Cái đoạn code đưa kết quả vào DataValidation tôi thực sự còn phải học hỏi nhiều.
Chỉ xin góp vui thêm 1 đoạn là
Set uniqueDates = Nothing
Set uniquePallets = Nothing
End Sub
Việc này nhằm giải phóng dictionary đã set ở trên. Điều này chắc bạn còn biết hơn tôi nhiều.

TongDe · 10/3/24

Thêm giải pháp khác cho thớt chọn lựa

Mã:

Private Sub Worksheet_Activate()
'Sub chay khi sheet duoc chon
  
'Xoa list cu
Sheet5.Range("g1:i5000").ClearContents
 
    
  'Tao List cho validation
  With CreateObject("ADODB.Connection")
 
  .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
  Sheet5.Range("g1").CopyFromRecordset .Execute("Select Distinct f1 From [DULIEU$a2:b] Where f1 is not null ")
  Sheet5.Range("i1").CopyFromRecordset .Execute("Select Distinct f2 From [DULIEU$a2:b] Where f2 is not null ")

  End With
 
  'Name cho validation
  Sheet5.Range("g1", Sheet5.Range("g1000").End(xlUp)).Name = "Ngay"
  Sheet5.Range("i1", Sheet5.Range("i1000").End(xlUp)).Name = "Palet"
 

End Sub

tle2003 · 10/3/24

HUONGHCKT đã viết:
Tuyệt vời.
Cái đoạn code đưa kết quả vào DataValidation tôi thực sự còn phải học hỏi nhiều.
Chỉ xin góp vui thêm 1 đoạn là
Set uniqueDates = Nothing
Set uniquePallets = Nothing
End Sub
Việc này nhằm giải phóng dictionary đã set ở trên. Điều này chắc bạn còn biết hơn tôi nhiều.

Cám ơn bác,

HUONGHCKT đã viết:
Tuyệt vời.
Cái đoạn code đưa kết quả vào DataValidation tôi thực sự còn phải học hỏi nhiều.
Chỉ xin góp vui thêm 1 đoạn là
Set uniqueDates = Nothing
Set uniquePallets = Nothing
End Sub
Việc này nhằm giải phóng dictionary đã set ở trên. Điều này chắc bạn còn biết hơn tôi nhiều.

Cám ơn bác

Bài đã được tự động gộp: 10/3/24

TongDe đã viết:

Thêm giải pháp khác cho thớt chọn lựa

Mã:

Private Sub Worksheet_Activate()
'Sub chay khi sheet duoc chon
 
'Xoa list cu
Sheet5.Range("g1:i5000").ClearContents
 
   
  'Tao List cho validation
  With CreateObject("ADODB.Connection")
 
  .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
  Sheet5.Range("g1").CopyFromRecordset .Execute("Select Distinct f1 From [DULIEU$a2:b] Where f1 is not null ")
  Sheet5.Range("i1").CopyFromRecordset .Execute("Select Distinct f2 From [DULIEU$a2:b] Where f2 is not null ")

  End With
 
  'Name cho validation
  Sheet5.Range("g1", Sheet5.Range("g1000").End(xlUp)).Name = "Ngay"
  Sheet5.Range("i1", Sheet5.Range("i1000").End(xlUp)).Name = "Palet"
 

End Sub

Code bị lỗi, bạn xem lại nhé
Cám ơn

HUONGHCKT · 10/3/24

tle2003 đã viết:
Cám ơn bác,

File chạy êm rồi, bạn có thể xáo bỏ 2 cái namerange đi bởi có dùng đến nó đâu, để lại chỉ làm cho nặng file chứ chả ích gì.

tle2003 · 10/3/24

HUONGHCKT đã viết:
File chạy êm rồi, bạn có thể xáo bỏ 2 cái namerange đi bởi có dùng đến nó đâu, để lại chỉ làm cho nặng file chứ chả ích gì.

XIn lỗi chắc bác hiểu nhầm. Tôi nói file của TongDe bị lỗi chứ Mau4 chay bình thường

HUONGHCKT · 10/3/24

tle2003 đã viết:
XIn lỗi chắc bác hiểu nhầm. Tôi nói file của TongDe bị lỗi chứ Mau4 chay bình thường

Bạn thử xem trong File Mau4 ấy có 2 cái namerange không? và code hay có cell nào gọi 1 trong hai các namerange ấy không? Tôi nhắc bạn vậy, còn xóa hay không thì bạn là người dùng file ấy chắc là hiểu nhất.
Code của bạn TongDe tôi không xem và cũng không chạy thử nên tất nhiên là tôi sẽ không có ý kiến gì?

Xin tạo drop list không trùng dựa vào giá trị chọn từ drop list khác

Thành viên hoạt động

File đính kèm

Đăng ký hôm qua

dựa vào giá trí​

Zalo 0986997214

Thành viên hoạt động

Bad Excel Member

Zalo 0986997214

File đính kèm

Thành viên hoạt động

Thành viên hoạt động

Zalo 0986997214

Thành viên hoạt động

File đính kèm

Zalo 0986997214

File đính kèm

Thành viên hoạt động

Zalo 0986997214

Thành viên hoạt động

File đính kèm

Zalo 0986997214

Thành viên tiêu biểu

File đính kèm

Thành viên hoạt động

Zalo 0986997214

Thành viên hoạt động

Zalo 0986997214

Facebook

Group

dựa vào giá trí