FormulaArray Run-time error 1004 unable to set the FormulaArray property of the Range class

[FreddieITA91]

Hi all

i'm desperate. Ive this formula that needs to be calculated as matrix array on specific row. I think the problem is that it's too long.

 Dim formula As String
                formula = "=IF(TEXTJOIN("","", TRUE, IF(G" & RowIndex & ":AAF" & RowIndex & " <> """", " & _
             "IFERROR(LEFT(G" & RowIndex & ":AAF" & RowIndex & ", FIND(CHAR(10), G" & RowIndex & ":AAF" & RowIndex & ") - 1) & "":"" & " & _
             "TEXT(G$3:AAF$3, ""dd-mm"") & "" ("" & G$1:AAF$1 & "")"", " & _
             "G" & RowIndex & ":AAF" & RowIndex & " & ""("" & G$1:AAF$1 & "")""), """"), """"), " & _
             "IF(TEXTJOIN("","", TRUE, IF(G" & RowIndex & ":AAF" & RowIndex & " <> """", " & _
             "IFERROR(LEFT(G" & RowIndex & ":AAF" & RowIndex & ", FIND(CHAR(10), G" & RowIndex & ":AAF" & RowIndex & ") - 1) & "":"" & " & _
             "TEXT(G$3:AAF$3, ""dd-mm"") & "" ("" & G$1:AAF$1 & "")"", " & _
             "G" & RowIndex & ":AAF" & RowIndex & " & ""("" & G$1:AAF$1 & "")""), """"), """") <> """", " & _
             "TEXTJOIN("","", TRUE, IF(G" & RowIndex & ":AAF" & RowIndex & " <> """", " & _
             "IFERROR(LEFT(G" & RowIndex & ":AAF" & RowIndex & ", FIND(CHAR(10), G" & RowIndex & ":AAF" & RowIndex & ") - 1) & "":"" & " & _
             "TEXT(G$3:AAF$3, ""dd-mm"") & "" ("" & G$1:AAF$1 & "")"", " & _
             "G" & RowIndex & ":AAF" & RowIndex & " & ""("" & G$1:AAF$1 & "")""), """"), """")), " & _
             "IF(F" & RowIndex & " <> """", ""DA-PIANIFICARE"", """"))"
        
            
            Me.Cells(RowIndex, "D").FormulaArray = formula
            Me.Cells(RowIndex, "D").Calculate
            Me.Cells(RowIndex, "D").Value = Me.Cells(RowIndex, "D").Value

 

[FreddieITA91]

i've tried to use a shorter formula but same problem:


Me.Cells(RowIndex, "D").FormulaArray = _ "=IF(TEXTJOIN("","", TRUE, IF(G" & RowIndex & ":WF" & RowIndex & "<>"""", IF(G$3:WF$3<>"""", TEXT(G$3:WF$3,""dd-mm""), G" & RowIndex & ":WF" & RowIndex & " & "" ("" & G$1:WF$1 & "")""), """"))<>"""", TEXTJOIN("","", TRUE, IF(G" & RowIndex & ":WF" & RowIndex & "<>"""", IF(G$3:WF$3<>"""", TEXT(G$3:WF$3,""dd-mm""), G" & RowIndex & ":WF" & RowIndex & " & "" ("" & G$1:WF$1 & "")""), """")), IF(F" & RowIndex & "<>"""", ""DA-PIANIFICARE"", """"))"