PDA

View Full Version : [SOLVED] Remove the limitation 65536 rows



parscon
02-14-2014, 11:39 AM
I have this VBA code that will copy all data on "DATA" Column A and paste them on column A on "Sheet1"

Now i want to remove the limitation 65536 , could you please help me .



With Sheets("DATA")
.Range(.Range("A1"), .Range("A65536").End(xlUp)).Copy
End With
Sheets("Sheet1").[A65536].End(xlUp)(1).PasteSpecial Paste:=xlValues


Also i need it for column B and .....



With Sheets("DATA")
.Range(.Range("B1"), .Range("B65536").End(xlUp)).Copy
End With
Sheets("Sheet1").[B65536].End(xlUp)(1).PasteSpecial Paste:=xlValues


Thank you very much .

Kenneth Hobs
02-14-2014, 12:00 PM
.Range(.Range("A1"), .Range("A" & rows.count).End(xlUp)).Copy

parscon
02-14-2014, 12:03 PM
Thank you very much but what about for paste ?



Sheets("Sheet1").[A65536].End(xlUp)(1).PasteSpecial Paste:=xlValues

Kenneth Hobs
02-14-2014, 12:18 PM
The concept is the same. I am not sure why you need the (1).

Sheets("Sheet1").Range("B" & rows.count).End(xlUp).PasteSpecial Paste:=xlValues

westconn1
02-14-2014, 02:30 PM
I am not sure why you need the (1).yeah, if it was (2) or offset(1), it would then paste into the first empty row