Pagina 1 di 1

[Risolto] Macro inserisce nuova riga

Inviato: venerdì 30 giugno 2017, 21:15
da GianlucaB
Salve a tutti, mi servirebbe l'istruzione per inserire una nuova riga in un foglio calc, istruzione da inserire nella macro basic.
Ho trovato qua sul forum una possibile solzuione, ma a me non funziona, escono errori strani, forse una versione diversa del linguaggio di programmazione?
Qualcuno può aiutarmi?
Utilizzo Libreoffice 5.2


Grazie.

Re: Macro inserisce nuova riga

Inviato: sabato 1 luglio 2017, 13:52
da charlie
Ciao, dovresti allegare il tuo file di Calc (basta un esempio, senza dati sensibili) con la macro che ti dà errore.

Re: Macro inserisce nuova riga

Inviato: domenica 2 luglio 2017, 7:22
da patel
dove vuoi inserire la riga ? in corrispondenza della cella attiva ? se è così

Codice: Seleziona tutto

Sub inserisciriga
Dim oSheet, oRangeAddress
oSheet = ThisComponent.Sheets(0)
with oSheet
  RIGA = ThisComponent.CurrentSelection.CellAddress.Row +1
  oRangeAddress = .getCellRangeByName("A" & RIGA).getRangeAddress()
  .insertCells(oRangeAddress, com.sun.star.sheet.CellInsertMode.ROWS)
end with
End Sub

Re: Macro inserisce nuova riga

Inviato: domenica 2 luglio 2017, 17:51
da GianlucaB
Grazie, questo codice funziona.