repeat formula for every line

[ste]

Hello,
i have this macro:

targetCell = ThisComponent.Sheets(0).getCellRangeByName("L535")
targetCell.setFormula("=CONCATENATE(""Disponibilita' Fornitore (arrivo in 5/7 giorni lavorativi dall ordine)"";"" "";""Pezzi"";;"" "";IFERROR(INDEX(Innova.B:B;MATCH(1;(Innova.A:A=C534)*(Innova.C:C=N535);0));""""")  REM Be careful with references!!
Select Case targetCell.FormulaResultType2
REM Overwriting the properties .Value or .String will dispose the formula again.
  Case 1 REM Number type Double
    v = targetCell.Value
    targetCell.Value = v
  Case 2 REM text type String
    s = targetCell.String
    targetCell.String = s
End Select

i need to repeat the formula for some line. With the L535 is the same (in real formula hai $C$534) and other (L535, N535) change with changed of line.
there is a way to do this beacause i have thousand of line for every sheet
thank’s

[Edit Opaque] Changed code to preformatted text

[anon73440385]

Obviously (don’t speak Italian) crossposted here: ripetere la formula per ogni riga

[ste]

yes sorry but in the Italian forum I have always found few solutions so I have also written in this English in which I have always found more help

[anon73440385]

That’s not a problem at all, if the fact of cross-posting is mentioned.

[ste]

If need i resolve with this:
I have registered a macro with copy and past later copy and special paste

    REM BASIC
    
    rem ("=CONCATENATE(""Disponibilita' Fornitore (arrivo in 5/7 giorni lavorativi dall ordine)"";"" "";""Pezzi"";;"" "";IFERROR(INDEX(Innova.B:B;MATCH(1;(Innova.A:A=C534)*(Innova.C:C=N535);0));""""") REM Be careful with references!!
    
    sub _64000B_ 
rem ---------------------------------------------------------------------- 
rem define variables 
dim document as object dim dispatcher as object
 rem ---------------------------------------------------------------------- 
rem get access to the document 
document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    
    rem ---------------------------------------------------------------------- 
dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "$L$534"
    
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
    
    rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
    
    rem ---------------------------------------------------------------------- 
dim args3(0) as new com.sun.star.beans.PropertyValue args3(0).Name = "ToPoint" args3(0).Value = "$L$535:$L$629"
    
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
    
    rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
    
    rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
    
    rem ---------------------------------------------------------------------- 
dim args6(5) as new com.sun.star.beans.PropertyValue args6(0).Name = "Flags"
 args6(0).Value = "SVD"
 args6(1).Name = "FormulaCommand"
 args6(1).Value = 0
 args6(2).Name = "SkipEmptyCells"
 args6(2).Value = false
args6(3).Name = "Transpose"
 args6(3).Value = false
 args6(4).Name = "AsLink"
 args6(4).Value = false
 args6(5).Name = "MoveMode"
 args6(5).Value = 4
    
    dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args6())
    
    CALL _64000L_ 'avvio altra macro
    
    end sub

[edit formatting @robleyd]