|
Find First empty cell at end of Column A
I am copying a range of data from one sheet1 to the end of sheet2. Sheet1
will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan |
Find First empty cell at end of Column A
Dan
Do your copying here.... then Worksheets("Sheet2").Range("A1").End(XlDown).Offse t(1,0).Select Selection.Paste -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England DTHIS www.nickhodge.co.uk "DG" wrote in message ... I am copying a range of data from one sheet1 to the end of sheet2. Sheet1 will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan |
Find First empty cell at end of Column A
No need to SELECT.
Range("A1").End(xldown).offset(1)=1 'whateveryouwanthere or this one liner range("b2:b22")copy range("a1").end(xldown).offset(1) -- Don Guillett SalesAid Software "DG" wrote in message ... I am copying a range of data from one sheet1 to the end of sheet2. Sheet1 will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan |
Find First empty cell at end of Column A
range("a1").end(xldown).offset(1,0).select
or maybe with activesheet .cells(.rows.count,"A").end(xlup).offset(1,0).sele ct end with To come from the bottom up. DG wrote: I am copying a range of data from one sheet1 to the end of sheet2. Sheet1 will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan -- Dave Peterson |
Find First empty cell at end of Column A
range("a1").end(xldown).offset(1,0).select
or maybe with activesheet .cells(.rows.count,"A").end(xlup).offset(1,0).sele ct end with To come from the bottom up. DG wrote: I am copying a range of data from one sheet1 to the end of sheet2. Sheet1 will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan -- Dave Peterson |
Find First empty cell at end of Column A
Thanks,
That worked except the Selection.Paste didn't. However ActiveSheet.Paste worked. I only have one other problem. The paste brought over the formating (borders) how do I use ActiveSheet.PasteSpecial to just past the values? Dan "Nick Hodge" wrote in message ... Dan Do your copying here.... then Worksheets("Sheet2").Range("A1").End(XlDown).Offse t(1,0).Select Selection.Paste -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England DTHIS www.nickhodge.co.uk "DG" wrote in message ... I am copying a range of data from one sheet1 to the end of sheet2. Sheet1 will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan |
Find First empty cell at end of Column A
Dan
I'm not having a good day, activesheet was what I meant, as most have pointed out this can also be done in a single operation (Pseudo code) Range.Copy Destination:=Worksheets("Sheet2").Range("A1") -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England DTHIS www.nickhodge.co.uk "DG" wrote in message ... Thanks, That worked except the Selection.Paste didn't. However ActiveSheet.Paste worked. I only have one other problem. The paste brought over the formating (borders) how do I use ActiveSheet.PasteSpecial to just past the values? Dan "Nick Hodge" wrote in message ... Dan Do your copying here.... then Worksheets("Sheet2").Range("A1").End(XlDown).Offse t(1,0).Select Selection.Paste -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England DTHIS www.nickhodge.co.uk "DG" wrote in message ... I am copying a range of data from one sheet1 to the end of sheet2. Sheet1 will keep changing and I always want to append it to the bottom of sheet2. Range("A1").End(xldown).Select will get me to the last USED cell. But how do I go one more? Also, I used Range(Range("A2").End(xlToRight), Range("A2").End(xlDown)).Copy to copy the data. One I select the next unused cell in sheet2 how do I paste? Dan |
| All times are GMT +1. The time now is 09:11 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com