autofill multiple formula in specific columns

[MKLAQ]

hi
I try autofilling the formulas in specific ranges but it shows application defined or object defined error in this line

 .Range("C2:E2").Formula = strFormulas

Sub FillDown()

    Dim strFormulas(1 To 3) As Variant

    With ThisWorkbook.Sheets("Sheet1")
        strFormulas(1) = "=IFERROR(HOUR(B9-$B$3)*30+MINUTE(B9-$B$3);"")"
        strFormulas(2) = "=PRODUCT(A2:B2)"
        strFormulas(3) = "=A2/B2"

        .Range("C2:E2").Formula = strFormulas
        .Range("C2:E11").FillDown
    End With
    End Sub

any help to fix it ,please ?

 

[Fluff]

The first formula should be

        strFormulas(1) = "=IFERROR(HOUR(B9-$B$3)*30+MINUTE(B9-$B$3),"""")"

 

[Joe4]

OK, we got a bunch of things going on here.

1. I don't think you can populate a range of different formulas like that at once like that. If "strFormulas" is an array, you need to use an index with it to designate which one.
2. Your last formula should have """" instead of "" at the end, since you want literal quotes.
3. Do NOT use reserved words like "FillDown" as the name of your procedures, functions, and variables! This ambiguity can cause erorrs and unexpected results. When you reference "FillDown", Excel cannot be sure if you are referring to the FillDown method (which you are actually using right in your code!) or your FillDown procedure.

Here is fixed up code (no need for the array variable at all, it isn't saving you anything):

Sub MyFillDown()

    With ThisWorkbook.Sheets("Sheet1")
        .Range("C2").Formula = "=IFERROR(HOUR(B9-$B$3)*30+MINUTE(B9-$B$3);"""")"
        .Range("D2").Formula = "=PRODUCT(A2:B2)"
        .Range("C2").Formula = "=A2/B2"
        .Range("C2:E11").FillDown
    End With
   
End Sub

 

[MKLAQ]

@Fluff thanks for fixing the code
@Joe4 your choice without array is excellent
thanks guys

 

[Joe4]

You are welcome.
Glad we were able to help.