Hello, All.
I have researched this error quite a bit and still cannot find a fix to the code below. I am trying to set an Array Forumla using VBA. The formula is less than 255 characters.
Any advice would be greatly appreciated.
Call insertFormula(strCFA, "CompetencyFinAnalysisAT", "Total Paid to Sub-K", "=SUM(SUMIFS(Categories[PO Amount - Labor], Categories[Comp. Map], $D3, Categories[Active/Termed], {""=A*"",""=T*""}))", "A3", "Yes")
...
Sub insertFormula(activeSheet As String, tableName As String, columnName As String, formula As String, startRange As String, Optional isArray As Variant)
Dim myListObject As ListObject
ActiveWorkbook.Sheets(activeSheet).Activate
Set myListObject = ActiveWorkbook.activeSheet.ListObjects(tableName)
If (IsMissing(isArray)) Then
myListObject.ListColumns(columnName).DataBodyRange.formula = formula
Else
myListObject.ListColumns(columnName).DataBodyRange.FormulaArray = forumla
End If
End Sub
Bookmarks