Lỗi paste quá dòng cho phép

[dangquang1411]

Em có dòng code như này:
.....

If WorksheetFunction.CountA(Sheets("Bo nho tam thoi").Range("A:A")) > 2 Then
ActiveSheet.Range("D2").Select
Range(Selection, Selection.End(xlDown)).Copy _
Destination:=Sheets("Result").Range("C1048550")
......
'-------------------------------------------------------
Nôm na là em muốn paste dữ liệu vào dòng C1,048,550 nhưng nó đã tới gần giới hạn dòng rồi (max là 1,048,576), vậy có cách nào chuyển tiếp dữ liệu cần paste sang sheet khác không các bác ?

 

[thnghiachau]

Em có dòng code như này:
.....

If WorksheetFunction.CountA(Sheets("Bo nho tam thoi").Range("A:A")) > 2 Then
ActiveSheet.Range("D2").Select
Range(Selection, Selection.End(xlDown)).Copy _
Destination:=Sheets("Result").Range("C1048550")
......
'-------------------------------------------------------
Nôm na là em muốn paste dữ liệu vào dòng C1,048,550 nhưng nó đã tới gần giới hạn dòng rồi (max là 1,048,576), vậy có cách nào chuyển tiếp dữ liệu cần paste sang sheet khác không các bác ?

Đơn giản bạn cứ kiểm tra và theo dõi số dòng copy vào , nếu > Max thì ngắt nó ra và copy vào sheet mới thôi!

 

[anhtuan2939]

Em có dòng code như này:
.....

If WorksheetFunction.CountA(Sheets("Bo nho tam thoi").Range("A:A")) > 2 Then
ActiveSheet.Range("D2").Select
Range(Selection, Selection.End(xlDown)).Copy _
Destination:=Sheets("Result").Range("C1048550")
......
'-------------------------------------------------------
Nôm na là em muốn paste dữ liệu vào dòng C1,048,550 nhưng nó đã tới gần giới hạn dòng rồi (max là 1,048,576), vậy có cách nào chuyển tiếp dữ liệu cần paste sang sheet khác không các bác ?

Bạn thêm điều kiện If để tính số dòng còn lại và viết tiếp code để nó copy đủ sheet hiện hành, phần dư thì copy sang sheet khác.