Selection is too large

  • Thread starter Thread starter Brian
  • Start date Start date
B

Brian

I am trying to use fill down as part of my macro and
sometimes I receive this error message. The file can have
the same amount of data and if I run it right now, it may
be fine, but if I run the same file again later, I
sometimes get this error message. Is there around this?
I have tried to change the macro so that it runs one
column at a time, but its still no good. Maybe I have to
change that part of my macro? Here is what I have right
now. Thanks for any help.

Sheets("Original").Select
Range("B2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),10))"
Range("C2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),14))"
Range("D2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),19))"
Range("E2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),20))"
Range("F2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),22))"
Range("G2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),24))"
Range("H2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),26))"
Range("I2").Select
Selection.FormulaArray = _
"=IF(ISERROR(MATCH(RC1,'Return Info Summary'!
C1,FALSE)),"""",INDEX('Return Info Summary'!C1:C65,MATCH
(RC1,'Return Info Summary'!C1,FALSE),44))"


Dim b As Long
b = Range("A" & Rows.Count).End(xlUp).Row
Range("B2:I" & b).FillDown
 
I think you can change forulaarray to formulaR1C1. I don't see anything
that would require these formulas to be Array formulas.

Since the selection is always a single cell, I am not sure why you would get
that error.


Regards,
Tom Ogilvy
 
Back
Top