Index của sheet mình không hiểu

[rockydatalone]

Các bác ơi file mình gửi lên các bác xem giùm mình bị lỗi gì mình chả tìm ra gì hết, nó báo sai đối tượng chỉ đến.
Giải thích file:
Sheet Giao gắn đá là mình sẽ giao cho thợ làm và nhấn nút lưu, máy sẽ tự lưu vào sheet kho gắn đá.
Sheet nhận gắn đá: trước tiên nhấn vào nút Nhập, form nhập sẽ hiện ra, khi đánh số btp (ví dụ 3762, thì chương trình sẽ tìm trong kho gắn đá và hiển thị nội dung, bắt buộc mình phải nhập trọng lượng trả về của thợ gắn đá thì nó mới lưu).
Tại sheet nhận gắn đá mình bị lỗi, mong các bác giải quyết giùm hic

 

[hoangdanh282vn]

Các bác ơi file mình gửi lên các bác xem giùm mình bị lỗi gì mình chả tìm ra gì hết, nó báo sai đối tượng chỉ đến.
Giải thích file:
Sheet Giao gắn đá là mình sẽ giao cho thợ làm và nhấn nút lưu, máy sẽ tự lưu vào sheet kho gắn đá.
Sheet nhận gắn đá: trước tiên nhấn vào nút Nhập, form nhập sẽ hiện ra, khi đánh số btp (ví dụ 3762, thì chương trình sẽ tìm trong kho gắn đá và hiển thị nội dung, bắt buộc mình phải nhập trọng lượng trả về của thợ gắn đá thì nó mới lưu).
Tại sheet nhận gắn đá mình bị lỗi, mong các bác giải quyết giùm hic

Trong 2 cái Function timluu của bạn, bạn dùng phép so sánh giữa text (trong bài là rỗng hay text) với một số thì làm sao máy hiểu được.
BẠn phải xét đến điều kiện là rỗng hay text trước rối mới so sánh với một giá trị số.

While tim = False
        If Sheet24.Range("c" & i).Value = "" Then
và

If Sheets(btinh).Range("c" & i).Value = TxtBTP.Text Then