Xin giúp đỡ về đề tài nhập liệu (1 người xem)

[tle2003]

Tôi có 1 file Nhập Liệu chưa hoàn chỉnh, xin nhờ các bạn giúp đỡ.

Thắc mắc:
1. Làm sao để không ghi vào dữ liệu nếu C11 là rỗng.
2. Làm sao để không ghi vào dữ liệu nếu C11 trùng dữ liệu ở sheet DuLieu cột J

Cám ơn rất nhiều

 

[SA_DQ]

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

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C11]) Is Nothing Then
    On Error GoTo LoiCT
    If Target.Value = "" Then Exit Sub
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    
    Set Sh = ThisWorkbook.Worksheets("DuLieu")
    Set Rng = Sh.Columns("J:J")
    Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [c3:C11].Copy
        Sh.Cells(1, 2).End(xlDown).Offset(1).PasteSpecial 3, Transpose:=True
        Application.CutCopyMode = False
    Else
        MsgBox sRng.Address
    End If
    [c3:C11].ClearContents
 End If
Err_:               Exit Sub
LoiCT:
    If Err <> 13 Then MsgBox Error(), , Err
    GoTo Err_
End Sub

 

[tle2003]

Cám ơn bạn nhiều, mình sẽ thử ngay.

Mình đã không thành công, nhờ bạn xem lại giúp.

Thắc mắc:
1. Làm sao để không ghi vào dữ liệu nếu C11 là rỗng. (Vẫn giữ con trỏ ở C11)
2. Làm sao để không ghi vào dữ liệu nếu C11 trùng dữ liệu ở sheet DuLieu cột J.
Nguợc lại thì ghi vào dữ liệu , chỉ xóa C11 và vẫn giữ con trỏ ở C11.

Cám ơn bạn nhiều

 

[tle2003]

Nhờ bạn xem lại giúp, mình chỉ còn trở ngại

1. Con trỏ vẫn chạy xuống C12, khi C11 là rỗng

Cám ơn bạn nhiều,

 

[ChanhTQ@]

Mình nghĩ chỉ còn cách như sau:

 '. . . . . . . '
LoiCT: 
    If Err <> 13 Then 
        MsgBox Error(), , Err 
    Else
        [C11].Select    
    End If
    GoTo Err_ 
End Sub

Bạn thử xem, mình cũng không chắc cho lắm, vì chưa thử!

 

[tle2003]

Cám ơn các bạn, nhưng vẫn chưa được bạn ạ

Rất mong các bạn giúp cho mình đoạn code cho con trỏ không thể chạy đi cho khác được (khóa nút "Enter" hay trở lại C11)

1.1 Nếu [C11] là rỗng hay là
1.2 Nếu "Len của C11 = 0"

Cám ơn