Copy and paste

[Darren Smith]

Hi All

Can someone tell me why this code below is not working.
I think it copies ok but won't paste into merged cells.
It's copying from merged cells to merged cells in separate worksheets.

If ListBox4 = "Add Data to Jobcard Analysis Sheet" Then
   
   Dim wsSource    As Worksheet
   Dim wsDest      As Worksheet
   
   Set wsSource = ThisWorkbook.Sheets("Job Card Master")
   Set Dest = ThisWorkbook.Sheets("Job Card with Time Analysis")
   
        wsSource.Range("G2").Copy
        wsDest.Range("G2").PasteSpecial xlPasteValues
        
       
    End If
End Sub

 

[Peter_SSs]

this below is copying A13 down but does not seem to work.

As before ...

That gives us nothing to go on.

In what way is it failing?
- error message? (what is the error message?)
- pastes the right thing in the wrong place? (details?)
- pastes the wrong thing in the right place? (details?)
- does nothing?
- etc

If you have merged cells in either sheet involving cell G2, please give details of the merged cells.

 

[Darren Smith]

As before ...

- error message? (what is the error message?) Error "Range of object worksheet failed" Error 1004
- pastes the right thing in the wrong place? (details?) Does not paste
- pastes the wrong thing in the right place? (details?) As above
- does nothing? Yes Correct
- etc This is the line not working see below

[U]    wsSource.Range("A13" & Rows.Count).End(xlDown).Copy
   wsDest.Range("A13" & Rows.Count).End(xlDown).PasteSpecial xlPasteValues[/U]

 

[Peter_SSs]

Can you describe in words what you are trying to copy with this code?

 wsSource.Range("A13" & Rows.Count).End(xlDown).Copy

 

[Darren Smith]

Can you describe in words what you are trying to copy with this code?

 wsSource.Range("A13" & Rows.Count).End(xlDown).Copy

Copy rows from A13 down to the bottom of the sheet

 

[footoo]

Set Dest = ThisWorkbook.Sheets("Job Card with Time Analysis")

This presumably should be :

Set wsDest = ThisWorkbook.Sheets("Job Card with Time Analysis")

 

[Darren Smith]

Set Dest = ThisWorkbook.Sheets("Job Card with Time Analysis")

This presumably should be :

Set wsDest = ThisWorkbook.Sheets("Job Card with Time Analysis")

Yes that`s correct

 

[Peter_SSs]

Copy rows from A13 down to the bottom of the sheet

If you want to do that you need something much more like this

With wsSource
  .Range("A13", .Range("A13").End(xlDown)).Copy
End With
wsDest.Range("A13").PasteSpecial xlPasteValues

 

[Peter_SSs]

Set Dest = ThisWorkbook.Sheets("Job Card with Time Analysis")

This presumably should be :

Set wsDest = ThisWorkbook.Sheets("Job Card with Time Analysis")

.. as mentioned in post #2.

 

[Darren Smith]

Still, no luck This line below goes yellow. Some cells to copy & paste are merged if that makes a difference?

wsDest.Range("A13").PasteSpecial xlPasteValues

 

[Peter_SSs]

This line below goes yellow.

.. and what is the full error message?

Some cells to copy & paste are merged if that makes a difference?

It does. Details?