Không tìm được lỗi code (3 người xem)

[AnhThu-1976]

Em chào các anh chị
Em có 1 file, hàng ngày em vẫn sử dụng bình thường, nhưng hiện nay có 2 lỗi code mà em chưa tìm được nguyên nhân

Lỗi thứ I
trong This word book, em có code

Private Sub Workbook_Open()
Sheets("TH").Select
Call TimOcuoi
End Sub

nhưng hiện nay bị lỗi là khi mở file lên thì nó không chọn sheet TH nữa (trước đây vẫn chọn)

Lỗi thứ 2
Bình thường ta tích vào Checkbox1 - MO , tại sheet TH thì có form hiện lên => Code vẫn chạy
Bây giờ ta delete dòng thứ 931 ở sheet MA rồi qua sheet TH ta tích vào Checkbox1 - MO , tại sheet TH thì có form KHÔNG hiện lên => Code BỊ LỖI
Tuy nhiên delete các dòng khác thì không bị lỗi code
Em nhờ các anh chị tìm giúp em nguyên nhân, Em cảm ơn nhiều

Bài đã được tự động gộp: Hôm nay lúc 12:08

Lỗi code thứ 2, em đã tìm ra
Khi delete dòng thứ 931 thì dòng thứ 932 bị #REP!

 

[phanphu_91]

bạn xóa dấu " ' " trước lệnh Sheets("TH").range("D9").select là được nhé,

 

[ongke0711]

Nên khai báo Thisworkbook.Sheets() chứ nếu đang mở nhiều workbook thì biết lấy WB nào mà xử lý.

 

[AnhThu-1976]

bạn xóa dấu " ' " trước lệnh Sheets("TH").range("D9").select là được nhé,View attachment 310360

Bỏ đi, Đâu có chạy được bạn

Bài đã được tự động gộp: 40 phút trước

Nên khai báo Thisworkbook.Sheets() chứ nếu đang mở nhiều workbook thì biết lấy WB nào mà xử lý.

Em chưa hiểu ý anh
Anh làm ví dụ cho em nhé

 

[phanphu_91]

mình xóa lưu lại rồi tắt đi bật lại có bị báo lỗi như thế nữa đâu bạn.

Bài đã được tự động gộp: 23 phút trước

hoặc vẫn file cũ của bạn bạn sửa lại lệnh như này.
Private Sub Workbook_Open()
Thisworkbook.Sheets("TH").Select
Call TimOcuoi
End Sub