define workbook, sheet, and range so I dont have to copy activate and paste

[maxx_daddy]

Hi all.

here is what I have.
I am guessing that not specifically calling out the sheet where the ranges are is my issue here.
I am trying to copy a range in workbook "A" and paste it in workbook "BUTTON" without activating it.

Windows("BUTTON.xlsm").Range("joey") = Windows("a.xls").Range("joe").Value

here is the full code

Sub test2()Windows("BUTTON").Activate
Dim joey As Range
Set joey = Range("A30")


Windows("a.xls").Activate
With Worksheets("Page1")
Dim joe As Range
Set joe = Range("BD6")
End With


Windows("BUTTON.xlsm").Activate




Windows("BUTTON.xlsm").Range("joey") = Windows("a.xls").Range("joe").Value








End Sub

thanks, as always for your help.

Joe

 

[JLGWhiz]

Hi all.

here is what I have.
I am guessing that not specifically calling out the sheet where the ranges are is my issue here.
I am trying to copy a range in workbook "A" and paste it in workbook "BUTTON" without activating it.

Windows("BUTTON.xlsm").Range("joey") = Windows("a.xls").Range("joe").Value

here is the full code

Sub test2()Windows("BUTTON").Activate
Dim joey As Range
Set joey = Range("A30")


Windows("a.xls").Activate
With Worksheets("Page1")
Dim joe As Range
Set joe = Range("BD6")
End With


Windows("BUTTON.xlsm").Activate




Windows("BUTTON.xlsm").Range("joey") = Windows("a.xls").Range("joe").Value








End Sub

thanks, as always for your help.

Joe

If you are going to use the Windows method you have to Acivate before before doing something. One was activated but the other was not. If you use Workbooks() then you need to use the Sheet() and Range(), but you do not have to activate either the source or destination.