Giúp sửa code tính thành tiền (1 người xem)

[minhtuan55]

Code này em có hỏi tại bài http://www.giaiphapexcel.com/forum/...-Giúp-code-tính-thành-tiền-từ-1-chuỗi-dữ-liệu
Do em chưa test kỹ giờ test kỷ mới thấy nó lỗi như sau
- Khi bảng dữ liệu em trống thì code không xuất được dữ liệu ( em muốn sửa lại dòng nào trống thì dòng đó = 0 các dòng khác thì vẫn tính bình thường )
- Khi bảng giá trống thì không xuất được dữ liệu ( em muốn sửa lại bảng giá trống ở dòng nào thì cứ hiểu giá của năm đó = 0, các dòng khác thì vẫn tính bình thường )

 

[sealand]

Bạn chỉ cần sửa 2 dòng xác định vùng như sau là được:

SArr = Sheet1.Range("B2", Sheet1.Range("B65000").End(xlUp))
Cnd = Sheet1.Range("G3", Sheet1.Range("L65000").End(xlUp))

 

[minhtuan55]

Bạn chỉ cần sửa 2 dòng xác định vùng như sau là được:

SArr = Sheet1.Range("B2", Sheet1.Range("B65000").End(xlUp))
Cnd = Sheet1.Range("G3", Sheet1.Range("L65000").End(xlUp))

Thank anh nhiều nhiều, Em làm giống như anh Code ok rồi