Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy to next blank row
Hi
I have a few cells of data which I need to copy to the next blank row of another sheet. I can find the row number required by doing this : Dim Rownumber As Integer If Range("A20").Value = "" Then Rownumber = 20 If Range("A19").Value = "" Then Rownumber = 19 If Range("A18").Value = "" Then Rownumber = 18 If Range("A17").Value = "" Then Rownumber = 17 If Range("A16").Value = "" Then Rownumber = 16 But I am then having problems with defining the destination to copy to. I have tried using : Worksheets("CURRENT").Range("B2").Copy _ Destination:=Worksheets("Balance Order Form").Cells(2, Rownumber) but I keep getting Runtime Error '1004 ' Application defined or object defined error, and I don't know what that means or how I should get round it. Can someone help? Many thanks Phil |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy cells become blank | New Users to Excel | |||
Copy, next blank row? | Excel Worksheet Functions | |||
COPY A CONCATENATE CELL TO BLANK CELL PUTTING IN THE NEXT BLANK C. | Excel Discussion (Misc queries) | |||
copy blank cells | Excel Discussion (Misc queries) | |||
Copy Until Blank | Excel Programming |