[Risolto] Creazione automatica fogli da elenco

[Giu_Pe]

Salve a tutti, sono semi-analfabeta su Calc.
Ho creato un file con una colonna dedicata alle Aziende ed avrei la necessità che per ogni azienda inserita, venga in automatico creato un foglio di lavoro. è possibile fare una cosa del genere su Calc? Allego file esempio

Grazie a tutti

[charlie]

Ciao e benvenuto/a sul forum.

Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> https://forum.openoffice.org/it/forum/v ... m.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

[patel]

Ciao, occorre una macro come questa
Sub CreaFogli
Doc= ThisComponent
nfogli = 2 ' da modificare
for r = 1 to nfogli
nomefoglio = Doc.Sheets(0).GetCellbyPosition( 1, r ).string
If not Doc.Sheets.hasbyName(nomefoglio) Then Doc.Sheets.insertNewByName(nomefoglio,Doc.Sheets.Count)
next
End Sub

[patel]

Ciao, occorre una macro come questa

Codice: Seleziona tutto

Sub CreaFogli
Doc= ThisComponent
nfogli = 2 ' da modificare
for r = 1 to nfogli
  nomefoglio = Doc.Sheets(0).GetCellbyPosition( 1, r ).string
  If not Doc.Sheets.hasbyName(nomefoglio) Then Doc.Sheets.insertNewByName(nomefoglio,Doc.Sheets.Count)
next
End Sub