Copy/Paste Problem: Runtime error 1004

[Alan]

I am copying and pasting some entries (entire rows, one at a time)
from one worksheet (NewDataWS) to another worksheet (ErrorWS) in the
same workbook. This code works fine:

NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
ErrorWS.Paste Destination:=ErrorWS.Range("A" & ErrorRow)

I want to place another value (not in the source row) in the
destination worksheet for each row, as I process it. However, when I
change the second line to start at Column "B", like below:

ErrorWS.Paste Destination:=ErrorWS.Range("B" & ErrorRow)

I get the following runtime error:

"Runtime error 1004
The information cannot be pasted because the Copy area and the paste
area are not the same size and shape. . . . "

Since I am just specifying the starting cell, I do not understand
why I get this. Do you?

Thanks in advance, Alan

 

[ryguy7272]

I think it could be a couple of things:
http://support.microsoft.com/kb/210684

http://support.microsoft.com/kb/818808

Can you select the destination cell and paste-special-values?
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

That’s what I do and I never get the Error 1004 (well almost never).

Are those Named Ranges? I can’t seem to recreate what you have, but I would
surmise that the code needs to be something like this:
ErrorWS.PasteSpecial Destination:=ErrorWS.Range("A" & ErrorRow)
ErrorWS.PasteSpecial Destination:=ErrorWS.Range("B" & ErrorRow)
‘etc.

Ryan---

 

[Alan]

I also thought that copying the entire source row may be a problem
when trying to paste specifically. I tried this but got the same
error:

NewDataWS.Range(Cells(i, 1), Cells(i, ErrorLastColumn)).Copy
ErrorWS.Range(Cells(ErrorRow, 2), Cells(ErrorRow, ErrorLastColumn +
1)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False

I also tried:

NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
ErrorWS.Cells(ErrorRow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, _
SkipBlanks:=False,
Transpose:=False

but got "Select method of Range class failed".

 

[Simon Lloyd]

It would be good if you could post all of your code, however, try this

Code
-------------------
NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
Destination:=ErrorWS.Range("B" & ErrorRow

-------------------
How are you finding ErrorRow?, how are you defining ErrorWs? have yo
set ErrorWs to be a name?, these are just some of the many reasons yo
should post all of your code :

I also thought that copying the entire source row may be a proble
when trying to paste specifically. I tried this but got the sam
error

NewDataWS.Range(Cells(i, 1), Cells(i, ErrorLastColumn)).Cop
ErrorWS.Range(Cells(ErrorRow, 2), Cells(ErrorRow, ErrorLastColumn
1)).Selec
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False
Transpose:=Fals

I also tried

NewDataWS.Cells(i, FirstNameCol).EntireRow.Cop
ErrorWS.Cells(ErrorRow, 2).Selec
Selection.PasteSpecial Paste:=xlPasteValues
Operation:=xlNone,
SkipBlanks:=False
Transpose:=Fals

but got "Select method of Range class failed"

--
Simon Lloy

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com

 

[Alan]

I just pasted the entire row, then added a cell:

NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
ErrorWS.Paste Destination:=ErrorWS.Range("A" & ErrorRow)
With ErrorWS.Cells(ErrorRow, 1)
.Insert Shift:=xlToRight
.Value = Message
End With


ErrorRow is a row counter to keep up with the next open row.

 

[Simon Lloyd]

Alan, if you wish you can join our forums (link below) for free, when
posting there you can attach a workbook so we can see your structure,
code etc., if you do join and post please post in this thread (link
shown below) so that people who have been following or helping in the
thread can still continue to do so.

I just pasted the entire row, then added a cell:

NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
ErrorWS.Paste Destination:=ErrorWS.Range("A" & ErrorRow)
With ErrorWS.Cells(ErrorRow, 1)
.Insert Shift:=xlToRight
.Value = Message
End With


ErrorRow is a row counter to keep up with the next open row.

--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)

 

[Alan]

  I am copying and pasting some entries (entire rows, one at a time)
from one worksheet (NewDataWS) to another worksheet (ErrorWS) in the
same workbook.  This code works fine:

            NewDataWS.Cells(i, FirstNameCol).EntireRow.Copy
            ErrorWS.Paste Destination:=ErrorWS.Range("A" & ErrorRow)

I want to place another value (not in the source row) in the
destination worksheet for each row, as I process it.  However, when I
change the second line to start at Column "B", like below:

            ErrorWS.Paste Destination:=ErrorWS.Range("B" & ErrorRow)

I get the following runtime error:

"Runtime error 1004
The information cannot be pasted because the Copy area and the paste
area are not the same size and shape. . . . "

   Since I am just specifying the starting cell, I do not understand
why I get this.  Do you?

    Thanks in advance, Alan

Alan,

What version of Excel are you using? I am having similar problems with
2000 but it doesn't seem to happen with 2003

 

[Alan]

Actually, I ran into this using Excel 2007. Alan