paste errors

[rjplante]

I am trying to paste and running into some errors. If I use the code below, I get a "PasteSpecial method of range class failed."

Sheets("QC5003.8 PCB Stab Rec - Storage").Range("BE5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


If I use the code listed this way, I get a "Select method of range class failed."

Sheets("QC5003.8 PCB Stab Rec - Storage").Range("BE5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

How can I get my data pasted into this workbook?

Thanks,

Robert

 

[VoG]

The first code should work. For the second you would need

Sheets("QC5003.8 PCB Stab Rec - Storage").select
Range("BE5").Select
Selection.PasteSpecial Paste:=xlPasteValues

Are you sure the clipboard isn't empty.

 

[rjplante]

Still no success. I get the following error with the code listed.

Run time error '1004':
PasteSpecial method of Range class failed


Sheets("QC5003.8 PCB Stab Rec - Storage").Select
Range("BE5").Select
Selection.PasteSpecial Paste:=xlPasteValues

Line in red is flagged by the debugger when I open the VBA editor. This code resides in a public module and is not found in a code window for a specific sheet. I have rewritten this a couple of times, and saved and restarted the worksheet, and still to no avail.

Thanks for any direction.

Robert

 

[VoG]

Probably the clipboard is empty (nothing to paste). Can you post the code from the line where you Copy to the line that fails.

 

[rjplante]

Here is the code. I am in workbook B and copying data to Workbook A (File1).

Range("B1").End(xlDown).Offset(0, -1).Copy 'From Workbook B

ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks(File1).Activate 'Workbook A

Sheets("QC5003.8 PCB Stab Rec - Storage").Visible = True
Sheets("QC5003.8 PCB Stab Rec - Storage").Select
Range("BE5").Select
Selection.PasteSpecial Paste:=xlPasteValues

Does the Save and Close erase the clipboard? If so then I have to do a back and forth between the two workbooks correct?

Thanks,

Robert

 

[VoG]

Try this

Range("B1").End(xlDown).Offset(0, -1).Copy 'From Workbook B
With Workbooks(File1)
    .Sheets("QC5003.8 PCB Stab Rec - Storage").Visible = True
    .Sheets("QC5003.8 PCB Stab Rec - Storage").Range("BE5").PasteSpecial Paste:=xlPasteValues
End With
ActiveWorkbook.Save
ActiveWorkbook.Close

 

[rjplante]

That last bit of code did the trick. Thanks a ton.