View Single Post
  #2   Report Post  
Old February 24th 06, 03:12 PM posted to microsoft.public.excel.worksheet.functions
Bernie Deitrick
 
Posts: n/a
Default wts wrong with this statement

Jason,

You can't select a range on a sheet unless it is active:

Workbooks(zikr).Activate
Worksheets(zikr).Activate
Range("A1:Z600").Select
Selection.Copy

Would work, except you need to have a "Something.xls" as the string passed as the Workbooks
parameter, so perhaps:

Workbooks(zikr & ".xls").Activate
Worksheets(zikr).Activate
Range("A1:Z600").Select
Selection.Copy

This, of course, assumes that you have a workbook that contains a worksheet of the same name.

But, there is no reason to select the range:

Workbooks(zikr & ".xls").Worksheets(zikr).Range("A1:Z600").Copy

should work as well.

However,

Workbooks("Trend (read only)").Worksheets("Data").Range("A1:Z600").Paste

won't work - the paste method works on a worksheet object, not a range object. Something more along
the lines of:

Workbooks(zikr & ".xls").Worksheets(zikr).Range("A1:Z600").Copy _
Workbooks("Trend (read only).xls").Worksheets("Data").Range("A1:Z600")

would work.

HTH,
Bernie
MS Excel MVP


"Jason" wrote in message
...


zikr = "" & TextBox1.Text & ""
Workbooks(zikr).Worksheets(zikr).Range("A1:Z600"). Select
Selection.Copy
Workbooks("Trend (read only)").Worksheets("Data").Range("A1:Z600").Paste

or

Workbooks(textbox1.text).Worksheets(textbox1.text) .Range("A1:Z600").Select

its coming up with an error, the value of textbox1 is the name of the
worksheet, and i have tried both with and without the quotations..