[Risolto] Incrementare formula tramite Lastrow

[Luka2017]

Buongiorno avrei necessita' di un aiuto.
vi allego un file dove nel Foglio2, tramite la macro Rec_inv scrivo i dati gia' presenti.
Il mio problema è che non riesco a far scrivere in automatico nelle colonne I J K le formule gia' presenti nelle righe precedenti.
Grazie mille

[patel]

per copiare un range in un'altra posizione puoi usare questo codice da adattare al tuo caso

Codice: Seleziona tutto

Sub Main
' copia un range in un altro indicando la cella
  With ThisComponent.Sheets(0)
    Range = .getCellRangeByName("A3:B10").getRangeAddress()
    CellAddress  = .getCellRangeByName("D3").getCellAddress()  
    .copyRange(CellAddress, Range)
  end with
end sub

[Luka2017]

Grazie della risposta pero' come vedi nella macro Rec_inv io scrivo i dati nelle colonne dalla A alla H con il metodo lastrow.
Io vorrei che le formule gia' salvate attualmente nelle colonne I J K continuassero automaticamente quando si aziona la macro Rec_inv

[patel]

basta ricopiare il range delle colonne I-K relativo all'ultima riga nella nuova riga aggiunta, se non riesci allega un file di esempio che simuli l'aggiunta di nuovi dati senza finestra di dialogo

[Luka2017]

ok

[Luka2017]

Ti allego il file all'interno è presente la macro che uso per scrivere i dati nel foglio 2 e vorrei che nella colonna i j k le formule attualmente scritte continuassero
di pari in passo con i dati che si scrivono dalle colonne dalla a alla h

[patel]

prova ad aggiungere

Codice: Seleziona tutto

With Sheet
    Range = .getCellRangeByName("I" &  LastRow-1 & ":K" & LastRow-1).getRangeAddress()
    CellAddress  = .getCellRangeByName("I" &  LastRow).getCellAddress() 
    .copyRange(CellAddress, Range)
end with

[Luka2017]

ti volevo ringraziare funziona