how to copy multiple cells in one time?

[jeffrys]

hi guys,

managed to have a macro that copies 5 different cells in another workbook.

But everytime i let it run, the 2d workbook will be opened and closed really fast, so i changed the macro after a long search to find the option, thinking that when i have one move it would only open once.

But no, result is in fact the same, so i must be doing something wrong.

I include the macro, but do not understand why the move of the 5 cells does not happen in one time.

Even better, how to avoid workbook2 to open and close, i mean can it be done that way?

Any ideas are appreciated

Jeff

Range("K6:O6").Select
    Selection.Copy
    Windows("FACT-2014-SAMEN").Activate
    Range("C2:G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

so the range ("K6:O6") is from workbook 1 that is used to fill in the second workbook

[stnkynts]

Have you tried:

Application.ScreenUpdating = False

Range("K6:O6").Copy
Windows("FACT-2014-SAMEN").Range("C2:G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.ScreenUpdating = True

[jeffrys]

yes,

but i did place it wrong, have corrected this and it works

sorry for the inconvenience, i thought i already posted my fault.

thanks

Jeff

[alansidman]

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added them for you today. Please read all Forum Rules and comply in the future.)