Form tìm dữ liệu ở 1 sheet sau đó add dữ liệu tìm được vào 1 sheet khác (2 người xem)

[manhhung12]

Tôi có 1 Book gồm 3 sheet:
Sheet 1: Tôi tạo nút bấm (commandButton)
Sheet 2: Dữ liệu gốc.
Sheet 3: Dữ liệu được add sau khi tìm được trong sheet 2.
các bạn giúp tôi làm sao đẻ khi tôi nhập dữ liệu vào form nó tìm trên sh2, nếu được thì add vào sheet 3.
Và nếu được thì giúp tôi luôn:
Khi gõ soCMT vào textbox1 nếu tìm thấy thì hiển thị tên vào Label(Họ và Tên).
Trong form tôi đang dùng Textox đẻ nhập Họ và Tên và để trước Textbox(soCmt) .
Tôi gửi file kèm theo và có form tôi đã tạo
Xin cảm ơn

 

[manhhung12]

Sao kg có ai giúp tôi nhỉ?
Nhân đây nhờ Mod xóa đi 1 bài(02 bài cùng 1 nội dung), lý do là mạng bị đơ nên nhấp đúp
cảm ơn

 

[manhhung12]

Nguyên nhân của lỗi này

Private Sub CmdOK_Click()
Dim Rng As Range, MaKH As String, TenCd As String
MaKH = Trim(TxtCmt1.Text)
With Worksheets("DSCD").Range("a1:a" & Range("a65432").End(xlUp).Row)
    Set Rng = .Find(MaKH, LookIn:=xlValues)
    If Not Rng Is Nothing Then Rng.Activate
    TenCd = .Cells(Rng.Offset(0, 1).Value, 2)
    '????: lay gia tri tu cell tren cot B va dong vua tim duoc
    MsgBox "vvvvvvv: " & TenCd
End With
'.....
End Sub

báo lỗi: Object variable or With block variable not set
Tai dòng: Tencd=.....(tôi muốn lấy giá trị tìm kiếm được đẻ gan lại cho biến Tencd sau đó add vào sheet("dsdh").
TxtCmt2.text nhận từ Userform

Các bạn cho biết nguyên nhân.