copy a range of values to another range

[luolovepi]

I face a problem copying a range of values from one workbook to another workbook.

GLB_rngToPaste.Value = GLB_rngToCopy.Value

I confirm that GLB_rngToCopy has gotten the correct range of values.
But GLB_rngToPaste only received the first value of GLB_rngToCopy range.

I tested this kind of rang to range assignment in the same worksheet, it could work. Can't it apply to ranges in different workbook or worksheet?

Rgds,
lolo

 

[Arcticwarrio]

is GLB_rngToCopy dim as String?

and you would need the code to be in a module to run on different sheets / books

 

[Trevor G]

Look at this sample to see if it helps.

Sub mcrNamedRange()
Range("GLB_rngToPaste").Copy
Workbooks.Open "Path etc .xls"
Range("GLB_rngToCopy").PasteSpecial xlPasteAll

End Sub

 

[Arcticwarrio]

Sub Paste_Script()
Workbooks.Open Filename:= _
        "C:\Stationary\Book1.xls", UpdateLinks _
        :=0
    With Workbooks("Book1.xls").Sheets("Sheet1")
    Range("GLB_rngToCopy").PasteSpecial xlPasteAll 'might need a . before Range
    End With
End Sub

 

[luolovepi]

Thank you Arcticwarrio,
Actually, my GLB_rngToCopy is declared as a range.
When I change the code to

 GLB_rngToCopy.Copy
GLB_rngToPaste.PasteSpecial xlPasteAll

I get an error message saying that can't copy a range.
How could that happen?

Best regards,
lolo

Sub Paste_Script()
Workbooks.Open Filename:= _
        "C:\Stationary\Book1.xls", UpdateLinks _
        :=0
    With Workbooks("Book1.xls").Sheets("Sheet1")
    Range("GLB_rngToCopy").PasteSpecial xlPasteAll
    End With
End Sub

 

[Arcticwarrio]

where and how is it declared as a range so i can test it?

 

[luolovepi]

So sorry Arcticwarrio,
Mail to you later can? busy working right now. Thank you so much~~~

Yours sincerely,
lolo^^

where and how is it declared as a range so i can test it?