Moving data from one worksheet to another

[lamaar]

I have the following code on a button:

Columns("BA:BK&quot.Select - select the range
Selection.Copy - copy it
Sheets("Results&quot.Select - select a different worksheet
Range("A1&quot.Select - select a range/cell
ActiveSheet.Paste - paste it

When I run this from tools - macro - run macro - it works fine
when I assign it to the button it errors , 1004 - select method of range class failed

Why? Lamaar75@hotmail.com

 

[SkipVought]

Hi,
I am not sure WHY, but many times Excel is looking for an Object -- in this case the ActiveSheet Ojbect.

So try this...

    ActiveSheet.Columns("BA:BK").Select '- select the range
    Selection.Copy ' - copy it
    Sheets("Results").Select '- select a different worksheet
    ActiveSheet.Range("A1").Select '- select a range/cell
    ActiveSheet.Paste '- paste it

Hopt this helps Skip,
metzgsk@voughtaircraft.com

 

[DaleWatson123321]

lamaar,

Tested this, and it works...

Sub test()
Range("BA:BK&quot.Select '- select the range
Selection.Copy ' - copy it
Worksheets("Results&quot.Select '- select a different worksheet
ActiveSheet.Range("A1&quot.Select '- select a range/cell
ActiveSheet.Paste '- paste it
End Sub

Please confirm that it works for you.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[CDN]

I'm not too familiar with VBA but wouldn't this code do the same trick?? if not explain the difference.

Sheet1
CELL A1 = Hello

Sheet2
CELL A1 code ='sheet1'!a1

 

[CDN]

I get error 400 using Office XP Pro

 

[SkipVought]

this, in fact, does work

Sheet1.Activate
Cells(1.1).Value = "Hello"

Sheet2.Activate
Cells(1, 1).Value = Sheet1.Cells(1.1).Value

Skip,
metzgsk@voughtaircraft.com

 

[lamaar]

Thanks to all - I have successfully inmplemented the above and will award everyone a star for their input.

Thanks

Lamaar Lamaar75@hotmail.com