ripetere la formula per ogni riga

[ste]

ciao a tutti,
ho questa 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

ma avrei bisogno che si ripeta in automatico per un numero definito di righe, bloccando il codice C534 (come se fosse $C$534) e che gli altri due (L535, N535) cambino al cambiare delle righe.
devo usare una macro e non le formule perchè sono migliaia di righe per ogni foglio e si sovraccarica troppo.
qualcuno ha idea di come fare?
grazie mille

[anon73440385]

Ovviamente crossposted qui: repeat formula for every line

[ste]

Se dovesse servirea qualcuno ho risolto in questo modo (lo so che è un pò macchinoso e sovraccarica un pò il sistema ma meglio che fare ogni riga a mano):
In pratica ho registrato una Macro che mi fa il copia e incolla della formula e successivamente il copia e incolla speciale solo dati così da eliminare la formula e alleggerire il tutto.

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

[schiavinatto]

@ste, file di prova

Sub CopyPasteConvert
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
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 = "$E$14"             '<=================== Cella in cui si trova la formula
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) 
          For Conter = 15 To 20           '<=================== Raggiungi la linea massima
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:ConvertFormulaToValue", "", 0, Array())
          Next Conter
End Sub 

---

ATTENZIONE: Se desideri fornire maggiori dettagli alla tua domanda, utilizza modifica in questione o aggiungi un commento di seguito. Grateful.

Se la risposta soddisfa le tue necessità, fai clic sulla palla a sinistra della risposta, per finire la domanda.