Giúp đỡ lỗi run time erro 1004

[lethong1987]

Chào các bạn, em mới tập tành viết đoạn code vba như file đính kèm, nhưng khi gài code cho nút "lưu" thì nó báo lỗi "run time erro 1004, method range of object_worksheet failed". các bạn hướng dẫn giúp mình với. thanks.

 

[huuthang_bd]

Lỗi ở đây

Range("10000")

 

[snow25]

Chào các bạn, em mới tập tành viết đoạn code vba như file đính kèm, nhưng khi gài code cho nút "lưu" thì nó báo lỗi "run time erro 1004, method range of object_worksheet failed". các bạn hướng dẫn giúp mình với. Cảm ơn.

Bỏ dòng này đi.
' i = Sheet1.Range("10000").End(xlUp).Row
Và sửa lại tên chỗ này cho đúng với bạn đặt tên.
txtTenPT.Text

 

[chucuoi92]

Bạn bỏ đoạn này đi: i = Sheet1.Range("10000").End(xlUp).Row -> Range gì vậy ?
đồng thời sửa lại tên các textbox viết thừa chữ e
ví dụ tên textbox đầu tiên là "txtTenPT" nhưng code lại viết thành:
.Range("A" & dong_cuoi) = textTenPT.Text

 

[lethong1987]

Em các ơn các bác. em đã chỉnh lại được rồi.
Em có vấn đề phát sinh như sau: tại sheet data2
1. Khi em nhập thông tin vào bấm lưu thì nó lưu thông tin ở phần ngoài của bảng chứ không nhảy theo thứ tự hiện có
2.em gán code cho nút tìm kiếm, em muốn hiện phần tìm kiếm từ sheet (data2) vào trong khung
em muốn thể hiện thông tin từ côt A đến cột O, nhưng mà nó lại thể hiện đến cột J là ngưng và nó còn sao chép ra 1 dòng nữa
Mong các bác giúp đỡ.
Em cám ơn

 

[lethong1987]

Bạn bỏ đoạn này đi: i = Sheet1.Range("10000").End(xlUp).Row -> Range gì vậy ?
đồng thời sửa lại tên các textbox viết thừa chữ e
ví dụ tên textbox đầu tiên là "txtTenPT" nhưng code lại viết thành:
.Range("A" & dong_cuoi) = textTenPT.Text

bác ơi bác xem giùm em xem em sai cái gì nhé
1. Khi em nhập thông tin vào bấm lưu thì nó lưu thông tin ở phần ngoài của bảng chứ không nhảy theo thứ tự hiện có
2.em gán code cho nút tìm kiếm, em muốn hiện phần tìm kiếm từ sheet (data2) vào trong khung
em muốn thể hiện thông tin từ côt A đến cột O, nhưng mà nó lại thể hiện đến cột J là ngưng và nó còn sao chép ra 1 dòng nữa
Mong các bác giúp đỡ.
Em cám ơn

 

[chucuoi92]

Mấy cái texbox cuối bạn xếp vị trí sai hết cả , cả tên cũng không đúng.
Bạn xem lại từng cái texbox tên và vị trí có đúng không nhé!

 

[Maika8008]

Chào các bạn, em mới tập tành viết đoạn code vba như file đính kèm, nhưng khi gài code cho nút "lưu" thì nó báo lỗi "run time erro 1004, method range of object_worksheet failed". các bạn hướng dẫn giúp mình với. Cảm ơn.

Nhắc bạn chút. Đây là box Hàm và công thức. Nếu bạn hỏi về VBA thì lần sau đăng vào Lập trình với Excel!

 

[SA_DQ]

Để tránh sai lỗi chính tả, ta nên vận dụng tự kiểm lỗi chính tả của trình biên dịch;
Lấy ví dụ, tên các Control nên có chữ hoa & chữ thường; Chuyện này bạn đã làm được.
Nhưng khi áp dụng thì bạn chưa chính xác khi nhập tên các Control này

Cụ thể như mình thì tên các TextBox sẽ có tiếp đầu là tb hay txt (như bạn đang áp dụng)
Nhưng trong các dòng lệnh ta chỉ nhập hoạc là chữ thường hết như txttenpt hay TXTTENPT & sau khi nhập xong dòng lệnh, bạn sẽ được VBE chỉnh lỗi chính tả cho bạn.

Chúc vui nha & bạn nên nhờ các SMOD hay MODs chuyển bài của bạn về đúng nơi nó đáng phải thuộc về!
!

 

[pt92]

Excel e bị lỗi Khi bấm nút thêm để lưu dữ liệu, nhờ anh chị giúp đỡ