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

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

But maybe:

rngMine.Copy
rngOther.PasteSpecial Paste:=xlPasteValues

would work just as well.

Dan Mullen wrote:

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

--

Dave Peterson

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
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

.