View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Brian Brian is offline
external usenet poster
 
Posts: 49
Default Selection is too large

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