anh chị giúp em với ạ. em làm mãi mà không hiểu sao cứ bị lỗi mãi 1 dòng

[chandoi1992xhn]

anh chị giúp em với ạ. em làm mãi mà không hiểu sao cứ bị lỗi mãi 1 dòng

 

[CHAOQUAY]

anh chị giúp em với ạ. em làm mãi mà không hiểu sao cứ bị lỗi mãi 1 dòng

Sub nhap_vao_he_thong()
Thay Sheet3 thành Sheets("Sheet3") rồi chạy thử

 

[be_09]

anh chị giúp em với ạ. em làm mãi mà không hiểu sao cứ bị lỗi mãi 1 dòng

Góp ý cho bạn:
1/ Bạn nên sửa Tiêu đề bài viết cho ngắn gọn và rõ ràng hơn, có thể là "Giúp sửa code nhập liệu".
2/ Code trong File của bạn sửa Sheet3 thành Sheet2 mới đúng.
3/ Nên nhập liệu theo chiều dọc cho nhanh và chuẩn hơn là nhập liệu theo chiều ngang vì di chuyển ngang sẽ dễ bị sai.

Lưu ý:
- Tiêu đề và Nội dung bài viết nên cụ thể, rõ ràng chứ không nên viết chung chung.
- Đúng ra tôi không trả lời bài viết này vì Tiêu đề bài viết của bạn vi phạm nội quy, nhưng tôi đã lỡ trả lời rồi nên tôi để nguyên bài viết của tôi mà không xóa (bài 3).

 

[SA_DQ]

1./ Cả 2 trang tính của bạn không có 1 dòng dữ liệu nào thì biết sao là code chạy đúng hay sai?
2./ Bạn viết:

   Range("A1:J1048567").Select
    Range(Selection, Selection.End(xlDown)).Select

Cò thể thay bỡi Range("A1").CurrentRegion.Select

Bạn thử xem sao với mươi, mười lăm dòng dữ liệu liên tục

 

[chandoi1992xhn]

1./ Cả 2 trang tính của bạn không có 1 dòng dữ liệu nào thì biết sao là code chạy đúng hay sai?
2./ Bạn viết:

   Range("A1:J1048567").Select
    Range(Selection, Selection.End(xlDown)).Select

Cò thể thay bỡi Range("A1").CurrentRegion.Select

Bạn thử xem sao với mươi, mười lăm dòng dữ liệu liên tục

em cảm ơn ạ