Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
what is wrong with this code?
Hi,
This doesn't work: '*** NOTICE: This does not include the header row as we are adding on to the bottom of 'what is already on BA Approved Dim lastcell1 As Integer lastcell1 = Range("A1").End(xlDown).Count Range("A3:R(lastcell1)").Select Range("R(lastcell1)").Activate Selection.Copy Sheets("Estimated - BA Approved").Select ' 'Find the first cell in column A WITHOUT Data and start paste in this cell Range("A1").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste Can you tell me why? And can you tell me if there is an easier way to select used rows only up until the two row header? Thank you, Nicole |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
what is wrong with this code?
set rng = cells(rows.count,1).end(xlup)(2)
will give you the blank cell at the bottom of the data as determined by column 1. If you do that, you are not concerned with header rows as even if there are only header rows, it would be below those. -- Regards, Tom Ogilvy "Nicole Seibert" wrote: Hi, This doesn't work: '*** NOTICE: This does not include the header row as we are adding on to the bottom of 'what is already on BA Approved Dim lastcell1 As Integer lastcell1 = Range("A1").End(xlDown).Count Range("A3:R(lastcell1)").Select Range("R(lastcell1)").Activate Selection.Copy Sheets("Estimated - BA Approved").Select ' 'Find the first cell in column A WITHOUT Data and start paste in this cell Range("A1").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste Can you tell me why? And can you tell me if there is an easier way to select used rows only up until the two row header? Thank you, Nicole |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
what is wrong with this code?
See one possible answer to your previous posting of this question <bg.
Nicole Seibert wrote: Hi, This doesn't work: '*** NOTICE: This does not include the header row as we are adding on to the bottom of 'what is already on BA Approved Dim lastcell1 As Integer lastcell1 = Range("A1").End(xlDown).Count Range("A3:R(lastcell1)").Select Range("R(lastcell1)").Activate Selection.Copy Sheets("Estimated - BA Approved").Select ' 'Find the first cell in column A WITHOUT Data and start paste in this cell Range("A1").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste Can you tell me why? And can you tell me if there is an easier way to select used rows only up until the two row header? Thank you, Nicole -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
what is wrong with this code?
Thank you to both of you for both of your responses on both my posts.
-Nicole "Tom Ogilvy" wrote: set rng = cells(rows.count,1).end(xlup)(2) will give you the blank cell at the bottom of the data as determined by column 1. If you do that, you are not concerned with header rows as even if there are only header rows, it would be below those. -- Regards, Tom Ogilvy "Nicole Seibert" wrote: Hi, This doesn't work: '*** NOTICE: This does not include the header row as we are adding on to the bottom of 'what is already on BA Approved Dim lastcell1 As Integer lastcell1 = Range("A1").End(xlDown).Count Range("A3:R(lastcell1)").Select Range("R(lastcell1)").Activate Selection.Copy Sheets("Estimated - BA Approved").Select ' 'Find the first cell in column A WITHOUT Data and start paste in this cell Range("A1").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste Can you tell me why? And can you tell me if there is an easier way to select used rows only up until the two row header? Thank you, Nicole |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
wrong code? | Excel Programming | |||
What's wrong with the code,pls hv a look | Excel Programming | |||
What is wrong with this code? | Excel Programming | |||
What is wrong with this code? | Excel Programming | |||
what's wrong with my code???? | Excel Programming |