Copy and Paste

Khalil · April 5th, 2018, 08:31 PM

Hi,

I have a workbook made up of 5 worksheets, and I just wish to copy a range in each of the four worksheets and paste them into the fifth. The code is:

Code:

Worksheets("Option 3").Range("H11:H60").Copy Worksheets("Comparison").Range("B15")
Application.CutCopyMode = False

Worksheets("Option 1").Range("J11:H60").Copy Worksheets("Comparison").Range("D16")
Worksheets("Option 2").Range("J11:H60").Copy Worksheets("Comparison").Range("E16")
Worksheets("Option 3").Range("J11:H60").Copy Worksheets("Comparison").Range("G15")
Worksheets("Option 4").Range("J11:H60").Copy Worksheets("Comparison").Range("H15")

For reasons I don't understand the first range (H11:H60) is pasted in each of the following destinations D16, E16, G15 and H15 and my questions are why the clipboard is not cleared with Application.CutCopyMode = False, and the other copied ranges (J11:H60) are ignored, and the first range keeps pasting itself into the target destinations?
Finally the last range in Option 4 is pasted into a destination not mentioned in the code, which is J15.

I would appreciate your assistance in understanding this puzzle. Thank you

Zakalwe · April 5th, 2018, 11:49 PM

That smells of Merged source or destination cells.

Double check that, if not then seperate the copy and the paste operations.
Wed have to see a snapshot of the source and destination to help

Khalil · April 6th, 2018, 04:09 AM

You are right. It is my mistake.

Thank you very much for drawing my attention.