[Xin giúp đỡ] Thêm 1 dữ liệu vào 1 cột từ User Form, kiểm tra từ cột cần thêm nếu trùng lặp thì báo và không thêm dữ liệu! (6 người xem)

[gameonly308]

Em có code kiểm tra cái dữ liệu trong textbox là add_cpu_id_txt
Em muốn kiểm tra xem trong cột thêm dữ liệu tại Sheet2 cột A, nếu không trùng thì thêm dữ liệu, nếu trùng dữ liệu rồi thì thông báo.
Khi em chạy code thì toàn bị báo lỗi:
Runtime error '9'
Subscript out of range
Khi debug ra thì nó tô màu vàng ở dòng này
Set FoundCell = Sheet2.Range("A5:A100").Find(Search, LookIn:=xlValue, lookat:=xlWhole)
Mong các bác đi qua chính lại giúp em với ạ, em cảm ơn!

Private Sub add_cpu_id_cmb_Click()
If add_cpu_id_txt.Value = "" Then
MsgBox "Please insert right Value!", vbOKOnly, "Warning!"
Else
Dim dong_cuoi_cpu_id As Long
Dim FoundCell As Range
Dim Search As String
dong_cuoi_cpu_id = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1

Search = add_cpu_id_txt.Value
Set FoundCell = Sheet2.Range("A5:A100").Find(Search, LookIn:=xlValue, lookat:=xlWhole)
    If FoundCell Is Nothing Then
    Sheet2.Range("A" & dong_cuoi_cpu_id).Value = add_cpu_id_txt.Value
    MsgBox "Data [" & add_cpu_id_txt.Value & "] added succesfull!", vbOKOnly, "Succesfull!"
        Else
        MsgBox "CPU ID is available"
    End If
End If
End Sub

 

[SA_DQ]

Vì không tiện tạo Form theo ý của bạn, mình chỉnh thành macro sao & OK:

Private Sub add_cpu_id_cmb_Click()
Const TB As String = "GPE.COM Xin Thông Báo!"
Dim Search As String:                                               Dim dong_cuoi_cpu_id As Long
Dim FoundCell As Range

Search = InputBox("Hay Nhâp 1 Ký Sô: ", TB, "35")
'If add_cpu_id_txt.Value = "" Then     '
If Search = "" Then
    MsgBox "Please insert right Value!", vbOKOnly, TB
Else
    dong_cuoi_cpu_id = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1
'    Search = add_cpu_id_txt.Value      '
'    Search = InputBox("Hay Nhâp 1 Ký Sô: ", TB, "35")                  '
    Set FoundCell = Sheet2.Range(Sheet2.[A5], Sheet2.Range("A5").End(xlDown)).Find(Search, , xlValues, xlWhole)
    If FoundCell Is Nothing Then
        Sheet2.Range("A5").End(xlDown).Offset(1).Value = Search              'add_cpu_id_txt.Value   '
        MsgBox "Nhâp Xong!", , TB
    Else
        MsgBox "CPU ID is available"
    End If
End If
End Sub

 

[gameonly308]

Có bác nào qua giúp em với ạ!
Em muốn biết đoạn code của em lý do vì sao báo lỗi, để lần sau gặp còn sửa ạ!

 

[leonguyenz]

Có bác nào qua giúp em với ạ!

Bạn gửi file lên đi, chứ ngồi đọc lại code chưa chắc nắm được vấn đề bạn cần hỏi.

 

[ongke0711]

...
Set FoundCell = Sheet2.Range("A5:A100").Find(Search, LookIn:=xlValue, lookat:=xlWhole)
...

Mấy cái hằng xlValue, xlWhole bạn chưa khai báo nó thì báo lỗi thôi.
Đổi lại thành số: xlValue: -4163, xlWhole:1

 

[gameonly308]

Mấy cái hằng xlValue, xlWhole bạn chưa khai báo nó thì báo lỗi thôi.
Đổi lại thành số: xlValue: -4163, xlWhole:1

Khai báo như nào ạ, em thấy các video hướng dẫn đều ko thấy khai báo 2 hằng này

 

[SA_DQ]

Em muốn biết đoạn code của em lý do vì sao báo lỗi, để lần sau gặp còn sửa ạ!

Bạn đang sai chính tả mà!; Của mình là:
Find(Search, , xlValues, xlWhole)

(2) Mấy cái hằng xlValue, xlWhole bạn chưa khai báo nó thì báo lỗi thôi.
(1) Đổi lại thành số: xlValue: -4163, xlWhole:1

(1) Để vậy trực quan hơn còn sai chính tả nữa là!
(2) Các hằng này có người khai báo giúp ta rồi.

 

[gameonly308]

Bạn đang sai chính tả mà!; Của mình là:
Find(Search, , xlValues, xlWhole)

(1) Để vậy trực quan hơn còn sai chính tả nữa là!
(2) Các hằng này có người khai báo giúp ta rồi.

Em cảm ơn bác. Em muốn chuyển password đăng nhập thành dạng mã hash trước khi ghi vào file excel thì làm thế nào bác nhỉ, bác có biết bài viết nào về vấn đề đó bảo em với ạ. Viết hoàn toàn = code VBA trên user form!