Nhờ giúp sửa lỗi run-time error '1004' (1 người xem)

[trongmuaanhvancho]

http://www.mediafire.com/file/c35gc8a1bwh8ilz/Kiem_tra_tre_em_VB.xls
http://www.mediafire.com/view/wflnm65zjddka86/2017-03-28_164808.bmp

Nhờ a/c xem giúp cách khắc phục lỗi này với

 

[ndu96081631]

http://www.mediafire.com/file/c35gc8a1bwh8ilz/Kiem_tra_tre_em_VB.xls
http://www.mediafire.com/view/wflnm65zjddka86/2017-03-28_164808.bmp

Nhờ a/c xem giúp cách khắc phục lỗi này với

Lỗi xuất hiện tại dòng:

If Ws.Range("A[COLOR=#ff0000]1048576[/COLOR]").End(xlUp).Row > 2 Then

Bởi code này chủ yếu viết để chạy trên Excel 2007 trở về sau nên có con số màu (1048576). Giờ muốn code trên file XLS thì phải sửa số đỏ ấy thành 60000

 

[trongmuaanhvancho]

Lỗi xuất hiện tại dòng:

If Ws.Range("A[COLOR=#ff0000]1048576[/COLOR]").End(xlUp).Row > 2 Then

Bởi code này chủ yếu viết để chạy trên Excel 2007 trở về sau nên có con số màu (1048576). Giờ muốn code trên file XLS thì phải sửa số đỏ ấy thành 60000

Thanks a......................

 

[trongmuaanhvancho]

Anh chị xem giúp em sao trong file có sheet nào chỉ có 2 dòng dữ liệu thì lại báo lỗi này như hình với, phải sửa lại như nào mới chạy được

http://www.mediafire.com/view/yfshu886r8tykio/2017-04-03_165732.bmp
Lối
http://www.mediafire.com/view/adomtr535g2283n/2017-04-03_165153.bmp