setting a range not working, please help

D

Dan Mullen

The code looks like this:
Set rngMine = activesheet.range("a1:a5297")
Set rngOther= Worksheets("Sheet2").range("g1:g5297")
rngOther.value = rngMine.value

I recently moved to XP and have been forced to adjust some code that ran fine under NT and 2000.
The one that is driving me crazy is using rngOther.value = rngMine.value.
The line works until the length of the input [rngMine] is 1606.
Then I get "Run-time error '1004' Application-defined or object-defined error."
The maximum length that will propogate under setting one range equal to another is 911, I ran a series of tests and the error occurs at when the input length is 912 or greater.
I am doing this across sheets [can't use fillacrosssheets as the columns on the receiving sheet are different from the input sheet columns.]

HELP!
and thank you!
Dan
 
D

Dave Peterson

I could duplicate your findings. (I got different lengths, though.)

But maybe:

rngMine.Copy
rngOther.PasteSpecial Paste:=xlPasteValues

would work just as well.

Dan said:
The code looks like this:
Set rngMine = activesheet.range("a1:a5297")
Set rngOther= Worksheets("Sheet2").range("g1:g5297")
rngOther.value = rngMine.value

I recently moved to XP and have been forced to adjust some code that ran fine under NT and 2000.
The one that is driving me crazy is using rngOther.value = rngMine.value.
The line works until the length of the input [rngMine] is 1606.
Then I get "Run-time error '1004' Application-defined or object-defined error."
The maximum length that will propogate under setting one range equal to another is 911, I ran a series of tests and the error occurs at when the input length is 912 or greater.
I am doing this across sheets [can't use fillacrosssheets as the columns on the receiving sheet are different from the input sheet columns.]

HELP!
and thank you!
Dan
Click to expand...
 
P

Peter T

I couldn't replicate the problem, so not sure if this as
an alternative workaround might work:

Sub test()
Dim rngMine As Range, rngOther As Range, v
Set rngMine = ActiveSheet.Range("a1:a5297")
Set rngOther = Worksheets("Sheet2").Range("g1:g5297")

rngMine = [ROW(1:5297)]

v = rngMine.Value
rngOther.Value = v

End Sub

Regards,
Peter


-----Original Message-----
The code looks like this:
Set rngMine = activesheet.range("a1:a5297")
Set rngOther= Worksheets("Sheet2").range("g1:g5297")
rngOther.value = rngMine.value

I recently moved to XP and have been forced to adjust
Click to expand...
some code that ran fine under NT and 2000.
The one that is driving me crazy is using rngOther.value = rngMine.value.
The line works until the length of the input [rngMine] is 1606.
Then I get "Run-time error '1004' Application-defined or object-defined error."
The maximum length that will propogate under setting one
Click to expand...
range equal to another is 911, I ran a series of tests and
the error occurs at when the input length is 912 or
greater.
I am doing this across sheets [can't use fillacrosssheets
Click to expand...
as the columns on the receiving sheet are different from
the input sheet columns.]
 
Top