Nhờ giúp đỡ về Data Validation

[sunnyhuu]

Các bác giúp mình với:
Mình có sheet 1 có 1 ô text nhập dữ liệu kiểm tra
Sheet 2: chứa dữ liệu sẵn,
Yêu cầu ràng buộc: Chỉ cho nhập dữ liệu kiểm tra trong danh sách có của Sheet 2 và không được trùng nhau,
Cám ơn các bác

 

[giaiphap]

Các bác giúp mình với:
Mình có sheet 1 có 1 ô text nhập dữ liệu kiểm tra
Sheet 2: chứa dữ liệu sẵn,
Yêu cầu ràng buộc: Chỉ cho nhập dữ liệu kiểm tra trong danh sách có của Sheet 2 và không được trùng nhau,
Cám ơn các bác

Ban phải up file lên đây có sẳn dữ liệu đi mình sẽ giúp cho. Còn không được trùng là sao trong khi sheet1 chỉ có 1 ô text để nhập.

 

[sunnyhuu]

Bạn giúp mình nha, Mình up file lên rồi đó

 

[sunnyhuu]

Trong file đính kèm, mình có ràng buộc bằng VBA, nhưng khi khóa sheet thì VBA không chạy được, do vậy mình tính làm 2 điều kiện trong Data Validation. cám ơn bác

 

[dhn46]

Bạn dùng thêm Conditional Formatting để báo nhập trùng.

 

[giaiphap]

Trong file đính kèm, mình có ràng buộc bằng VBA, nhưng khi khóa sheet thì VBA không chạy được, do vậy mình tính làm 2 điều kiện trong Data Validation. cám ơn bác

Bạn gửi file mà khóa Password VBA thì làm sao giúp đây. Như #5 bạn có thể bạn có thể thực hiện theo.

 

[sunnyhuu]

Bạn gửi file mà khóa Password VBA thì làm sao giúp đây. Như #5 bạn có thể bạn có thể thực hiện theo.

Pass: 123 bác, cám ơn bác

 

[sunnyhuu]

Hình như Conditional Formatting chỉ thông báo bằng tô màu, mình muốn ó hiện ra thông báo giống Data Validation vậy á

 

[giaiphap]

Bạn thay code của bạn thành đoạn code này, và sau đó bạn khóa sheet lại và nhập liệu thử xem còn báo lỗi nửa hay không.

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("A1:A" & Target.Offset(-1).Row), Target.Value) > 0 Then
   MsgBox "Ma so ban nhap bi trung" & vbCrLf & vbCrLf & "Vui Long Nhap Lai", vbCritical + vbRetryCancel, "Thong bao"
   Target.ClearContents
   Target.Select
End If
End Sub

 

[sunnyhuu]

Bạn thay code của bạn thành đoạn code này, và sau đó bạn khóa sheet lại và nhập liệu thử xem còn báo lỗi nửa hay không.

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("A1:A" & Target.Offset(-1).Row), Target.Value) > 0 Then
   MsgBox "Ma so ban nhap bi trung" & vbCrLf & vbCrLf & "Vui Long Nhap Lai", vbCritical + vbRetryCancel, "Thong bao"
   Target.ClearContents
   Target.Select
End If
End Sub

Ra6t1 cám ơn bác, code chạy kể cả lock sheet.