Help with this code

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

matelot - 20 Jan 2006 01:49 GMT

I must be blind. Please help me find what's the problem with this code.
I get the following error when I run it.
"Run-Time error 1004: Application-defined or object-defined error"
My code is really simple and yet I don't know what's wrong with it.

Dim myArray(1,1) as string
c= 1
set s = workbooks("test.xls").sheets(2)
Set theRange = s.Range(Cells(1, c), Cells(UBound(myArray), c)) <-run time
error on this line

Please help.

Reply to this Message

Dave Peterson - 20 Jan 2006 02:44 GMT

Cells() refers to the activesheet. If S isn't the activesheet, then kablewie!!!

Set theRange = s.Range(Cells(1, c), Cells(UBound(myArray), c))
could be
Set theRange = s.Range(s.Cells(1, c), s.Cells(UBound(myArray), c))

or

with s
Set theRange = .Range(.Cells(1, c), .Cells(UBound(myArray), c))
end with

The dots mean that that thing belongs to the previous With object.

> I must be blind. Please help me find what's the problem with this code.
> I get the following error when I run it.
[quoted text clipped - 8 lines]
>
> Please help.

Signature

Dave Peterson

Reply to this Message

Dave Peterson - 20 Jan 2006 02:46 GMT

I'm betting that you did put something in that array.

And maybe...

with s
Set theRange = .Range(.Cells(1, c), .Cells(UBound(myArray,1), c))
end with

Did you really mean to use myArray(1,1)?

> I must be blind. Please help me find what's the problem with this code.
> I get the following error when I run it.
[quoted text clipped - 8 lines]
>
> Please help.

Signature

Dave Peterson

Reply to this Message

Mark Lincoln - 20 Jan 2006 03:01 GMT

Have you dimmed theRange? If not, is Option Explicit declared in this
code module?

Reply to this Message

avveerkar - 20 Jan 2006 03:27 GMT

matelot Wrote:

> I must be blind. Please help me find what's the problem with this code.
> I get the following error when I run it.
[quoted text clipped - 9 lines]
>
> Please help.

VBA will not permit you to set range on a sheet which is not active.
Perhaps you are on sheet1 ( sheet1 is active ) and then trying to set
range in sheet2. Be on sheet2 ( sheet2 is active) and run the macro,
you will not get the error. You could have "s.activate" before your
"set theRange" statement.

A V Veerkar

Signature

avveerkar

Reply to this Message

Dave Peterson - 20 Jan 2006 17:47 GMT

You can set a range on an inactive sheet--but you can't select that range.

> matelot Wrote:
> > I must be blind. Please help me find what's the problem with this code.
[quoted text clipped - 23 lines]
> avveerkar's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=30338
> View this thread: http://www.excelforum.com/showthread.php?threadid=503167

Signature

Dave Peterson

Reply to this Message