Question

This array formula works just fine if entered using ctrl sht enter:

={IF(ROWS(A$7:A7)>A$4,"",IF(SUMPRODUCT((consumers=$A$6)*(data=A$5)*(data=A$5<>""))>0,INDEX 
(employees,SMALL(IF(((consumers=$A$6)*(data=A$5)*(data=A$5<>"")),COLUMN(Data!$B$2:$AC$2)-COLUMN 
(Data!$B$2)+1),ROWS(A$7:A7)))))}

I did some research and read that I would have to use the R1C1 notatation if I wanted to use this formula in VBA … so this is what I have thus far:

Sub frmarry()
   Range("y28").Select
   Selection.FormulaArray = "=IF(ROWS(R28C25:R28C25)>R26C25,"",IF(SUMPRODUCT((consumers=R27C25)* 
   (data=R24C7)*(data=R24C7<>""))>0,INDEX(staff,SMALL(IF(((consumers=R27C25)*(data=R24C7)* 
   (data=R24C7<>"")),COLUMN(Data!$R2C2:$R2C29)-COLUMN(Data!R2C2)+1),ROWS(R28C25:R28C25)))))"
End Sub

Now, when I run the routine I get a flag:

  'unable to set the FormaulaArray property of the Range class'

and if I select debug, it highlights the above arrayformula.

I just used the excel setting to set my formula to R1C1 notation so maybe something went astray in the conversion. Since I am not to conversant with R1C1 notation I was hoping someone more conversant with R1C1 would help me resolve this issue or point me in a direction so I can troubleshoot this VBA issue.

Thanks.

Answer 1

Try this. This works

Sub frmarry()
    Range("Y28").FormulaArray = _
    "=IF(ROWS(R28C25:R28C25)>R26C25,"""",IF(SUMPRODUCT((consumers=R27C25)*" & _
    "(data=R24C7)*(data=R24C7<>""""))>0,INDEX(staff,SMALL(IF(((consumers=R27C25)" & _
    "*(data=R24C7)*(data=R24C7<>"""")),COLUMN(Data!R2C2:R2C29)-COLUMN(Data!R2C2)" & _
    "+1),ROWS(R28C25:R28C25)))))"
End Sub