Code VBA trong Form nhập liệu báo nhập dữ liệu trùng (2 người xem)

[duong22000]

- Nếu không nhập dữ liệu trên form thì việc báo dữ liệu trùng khi nhập, em đang dùng Data Validataion chọn Custom và công thức tại các ô nhập liệu là: =COUNTIF($B$10:$B$65000,B10)=1 . Khi nhập dữ liệu trực tiếp ở các ô này, nếu dữ liệu trùng thì sẽ báo trùng dữ liệu.
- Nhưng em lại nhập liệu trên form: Khi nhập dữ liệu trùng nhau thì nó vẫn ghi vào các ô cell tiếp theo và em chưa biết làm sao để nó báo dữ liệu trùng để ta nhập dữ liệu khác. Vậy em mong mọi người trên GPE giúp em xử lý trong trường hợp này.
Em xin chân thành cảm ơn !
(Em có gửi file đính kèm)

 

[snow25]

- Nếu không nhập dữ liệu trên form thì việc báo dữ liệu trùng khi nhập, em đang dùng Data Validataion chọn Custom và công thức tại các ô nhập liệu là: =COUNTIF($B$10:$B$65000,B10)=1 . Khi nhập dữ liệu trực tiếp ở các ô này, nếu dữ liệu trùng thì sẽ báo trùng dữ liệu.
- Nhưng em lại nhập liệu trên form: Khi nhập dữ liệu trùng nhau thì nó vẫn ghi vào các ô cell tiếp theo và em chưa biết làm sao để nó báo dữ liệu trùng để ta nhập dữ liệu khác. Vậy em mong mọi người trên GPE giúp em xử lý trong trường hợp này.
Em xin chân thành cảm ơn !
(Em có gửi file đính kèm)

Đây bạn xem.

 

[duong22000]

Đây bạn xem.

Đây bạn xem.

Em đã chạy thử Code của bác snow25 và kết quả đã báo trùng khi nhập liệu. Em cảm ơn bác snow25.

 

[SA_DQ]

Bạn tham khảo thêm cái này:

Private Sub them_Click()
Dim Rng As Range, sRng As Range
Dim Dong_Cuoi As Long
With Sheet1
    Dong_Cuoi = .Range("b" & Rows.Count).End(xlUp).Row
    Set Rng = .[b9].Resize(Dong_Cuoi)
    Set sRng = Rng.Find(Me!txtPhanLoai.Text, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        .Range("B" & Dong_Cuoi + 1) = Me!txtPhanLoai.Text
    Else
        MsgBox "Trùng Du Liêu D/c: " & sRng.Address, , "GPE.COM Xin Thông Báo!"
    End If
End With
End Sub

 

[phamdinhnha]

Đây bạn xem.

Thank bác @snow25 , em cũng đang cần