A better way to copy-paste code

[pincivma]

Hi there

Below is my code. It is very simplistic since I recorded the macro. It copies everything, text, numbers, formulas, dropdown boxes etc from one workbook to another. This code works well. Is there a better code I can use? I have many worksheets to copy over from one workbook to another

Application.DisplayAlerts = False
Application.EnableEvents = False
Windows("Quote Transporter.xlsm").Activate
Sheets("Video").Select
Range("B9:H461").Select
Selection.Copy
Windows("NEW Sales Quote Tool USER version 01-191.xlsm").Activate
Sheets("Video").Select
Range("B9").Select
ActiveSheet.Paste

I tried the following code below but it does not transfer any data.

Workbooks("NEW Sales Quote Tool USER version 01-191.xlsm").Worksheets("Video").Range("B9:H461) = Workbooks("Quote Transporter.xlsm").Worksheets("Video").Range("B9:H461")

 

[footoo]

[COLOR=#333333]Workbooks("NEW Sales Quote Tool USER version 01-191.xlsm").Worksheets("Video").Range("B9:H461) = Workbooks("Quote Transporter.xlsm").Worksheets("Video").Range("B9:H461").Value[/COLOR]

 

[pincivma]

Hi Footoo

Thanks for the code. Your code does not carry formulas across. What it does is it turns the formulas into values and I don't want that. I want the formulas to come across as fomulas.

 

[MARK858]

Maybe....

    Application.ScreenUpdating = False
    Workbooks("Quote Transporter.xlsm").Sheets("Video").Range("B9:H461").Copy _
            Workbooks("NEW Sales Quote Tool USER version 01-191.xlsm").Sheets("Video").Range("B9")
    Application.ScreenUpdating = True

 

[pincivma]

Thanks

I will give that a try.