Update worksheet when changing another sheet
To get rid of the "copy lines" add this line after the second pastespecial.
Application.CutCopyMode = False
Then select any one cell to clear the selected range.
But...........................................
You can shorten the code and make it run faster by not selecting things.
Note also you won't need the Application.CutCopyMode = False
With Sheets("Master")
.Range("A7:D11500").copy Destination:= _
Sheets("Retail").Range("A7")
.Range("F7:F1500").copy Destination:= _
Sheets("Retail").Range("E7")
End With
Range("A7").Select
Gord Dibben MS Excel MVP
On Sat, 30 May 2009 05:28:01 -0700, Sarah
wrote:
Thanks for the help Roger. I fiddled around and came up with the following
Macro:
Application.ScreenUpdating = False
Sheets("Master").Select
Range("A7:D1500").Copy
Sheets("Retail").Select
Range("A7:D1500").PasteSpecial
Sheets("Master").Select
Range("F7:F1500").Copy
Sheets("Retail").Select
Range("E7:E1500").PasteSpecial
Application.ScreenUpdating = True
However......I get the "copy lines" around the range F7:F1500 in Master
sheet, and a gray background in the range selected to paste to in Retail
sheet. Are you able to help me where I've gone wrong with this?
|