Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find first empty cell in column | Excel Discussion (Misc queries) | |||
Find first empty cell in column | Excel Discussion (Misc queries) | |||
How to: Find first empty cell in column | Excel Worksheet Functions | |||
Find a empty cell in next column | Excel Discussion (Misc queries) | |||
How to find next empty cell within a column? | Excel Programming |