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

 

[Darren Smith]

.. and what is the full error message?


It does. Details?

Full Message= Application-defined or object-defined error

On both spreadsheets E & F, I & J columns are merged

 

[Peter_SSs]

On both spreadsheets E & F, I & J columns are merged

None of that has anything to do with column A which the code is operating on so should be irrelevant.

Can you post small sample data for column A from 'Job Card Master' with XL2BB?

 

[Darren Smith]

1

UNDERFRAME

#6393-4400

Runner - CH51

6400

2

8.00

ORDER

Service Metals

72.00​

144.00​

31.232​

#6362-2114

Bearer - C30

2350

7

ORDER

Service Metals

17.20​

120.40​

18.918​

6105-5050

Blade angles 50 x 50 x 5 Ali

195

14

Stock

0.68​

9.52​

3.440​

0237-7062

Mounting brackets

ATEGO KIT

12

Stock

1.21​

14.52​

9.600​

0245-6753

Springs - YELLOW

4

Stock

3.25​

13.00​

0.000​

2

WINGS

0817-3110

Plastic flat top

singles

n/a

7.25​

0.000​

0857-0912

Mudflaps

9"

n/a

2.36​

0.000​

3

BULKHEAD

Panel - CPR14

2276X2182

1

2.00

ORDER

Carlier

117.45​

117.45​

#6915-5000

Pillars - CP15B

2254

2

ORDER

Service Metals

15.61​

31.22​

9.377​

#6461-6100

Rave - MS2P

2180

1

ORDER

Service Metals

11.76​

11.76​

3.270​

Bearer 100 x 50 x 2.5 Galv

2274

1

Fab Shop

8.49​

8.49​

 

[Darren Smith]

Sorry, can`t seem to activate XL2BB on my excel spreadsheet. Is this any help above

 

[Darren Smith]

Sorry, what I need is not just column A but the range from ("A13:N13") down to the bottom of the sheet.

 

[Peter_SSs]

Sorry, can`t seem to activate XL2BB on my excel spreadsheet.

Which step in the linked XL2BB page seems to be the problem?

Is this any help above

It could be but which sheet is it?
.. and see below

Sorry, what I need is not just column A but the range from ("A13:N13") down to the bottom of the sheet.

I also cannot tell what column is what and same for rows.

 

[Darren Smith]

Hi Peter,

With xl2bb I can`t find it in the add inn section of the excel worksheet
It`s "Job Card Master" Sheet
The sheet above Starts A13 to N13 down

I`ve had success in copying the sheet "Job Card Master" Range ("A13:N299") but for some reason, it will not paste in Sheet"Job Card with Time Analysis"
See below

- error message? (what is the error message?) : CommentThreaded : <Application-defined or object-defined error> : CommentThreaded
- pastes the right thing in the wrong place? (details?) No paste
- pastes the wrong thing in the right place? (details?) No paste
- does nothing? Yes correct
- etc Copies but no paste

If ListBox4 = "Add Data to Jobcard Analysis Sheet" Then

  Dim wsSource    As Worksheet
  Dim wsDest      As Worksheet
  Dim RngwsSource As Range


  Set wsSource = ThisWorkbook.Sheets("Job Card Master")
  Set wsDest = ThisWorkbook.Sheets("Job Card with Time Analysis")
  Set RngSource = wsSource.Range("A13:N288")


    With wsSource
    RngSource.Copy
    End With
    wsDest.Range("A13").Paste

End if

End Sub

 

[Peter_SSs]

With xl2bb I can`t find it in the add inn section of the excel worksheet

After you downloaded, where did you save the file: xl2bb.xlam?

The sheet above Starts A13 to N13 down

That doesn't compute for me. A:N is 14 columns but I can count 15 columns in post 23

- error message? (what is the error message?) : CommentThreaded : <Application-defined or object-defined error> : CommentThreaded

So there are threaded comments in the copied area of 'Job Card Master'?
If so, in what cell(s)?

 

[Darren Smith]

Seems to be working now sorry to bother you?

 

[Peter_SSs]

Seems to be working now

Good news. Thanks for letting us know.